ocr: a Meine Makros & Dialoge.Erwerweiterungen a Openoffice.org Basic o X Datei Bearbeiten Ansicht Extras Fenster Hilfe [Meine Makros &U Dialoge).Erweite UF REM ***** BASIC ***** Option Explicit Sub AlleNot izenLoeschen Dim oDokument AS Object Dim OText As Object Dim OTextFelder As Object Dim OTextFeld As Object oDokument 11 ThisComponent OText = oDokument.getText () OTextFelder == oDokument.getTextFields0).createEnumeration() While OlextFelder.hasMoreElements0 oTextFeld =1 OTextFelder.ner.nextElement () If OTextFeld.supportsService("com. - sun.star.text.TextField.Annotation") Then OText.removeText ...
