De:Markierte Textabschnitte entfernen

From NeoWiki

NeoOffice hat leistungsstarke Suchen-und-Ersetzen-Funktionen, aber verschiedene Abschnitte mit markiertem (z.B. [in Klammern gesetztem]) Text zu entfernen, ist mit den Basisfunktionen nicht möglich.

Sie können dafür das folgende Makro benutzen:

sub seekanddestroy4
dim seek
seek = thiscomponent.createReplaceDescriptor()
seek.SearchString = "\[[^\[\]]+\]"
seek.ReplaceString = ""
seek.SearchRegularExpression=True
thiscomponent.ReplaceAll(seek)
end sub

Das Makro findet alle Abschnitte mit eingeklammertem Text [wie z.B. Vorschläge für anderen Text] und ersetzt ihn mit einem leeren String [keine Zeichen].

Dieses Makro stammt von Fabrizio Venerandi (mit einer kleinen Verbesserung von Matteo Cavalleri) und wurde in den NeoOffice-Foren empfohlen.