ocr: Meine Makros & Dialoge.Erwerweiterungen a openofice.org Basic - X Datei Bearbeiten Ansicht Extras Fenster Hilfe [Meine Makros & Dialoge).Erweite) Y U REM ***** BASIC ***** Option Explicit Sub AlleNotizenLoeschen Dim oDokument AS Object Dim oText As Object Dim OTextFelder As Object Dim oTextFeld As Object oDokument = ThisComponent OText = oDokment.getText ( OTextFelder == oDokument.getTextFields0.createEnumeration0 While OTextFelder.hasMoreElements() oTextFeld = OTextFelder.ner.nextElement () If OTextFeld.supportsService("com. sun.star.text. TextField.Annotation") Then OText.removeTextCont 6 en ...
