De:Markierte Textabschnitte entfernen

From NeoWiki

Revision as of 22:29, 15 February 2006 (edit) Yessica ( | contribs) m ← Previous diff		Revision as of 22:31, 15 February 2006 (edit) (undo) Yessica ( | contribs) m Next diff →
Line 17:		Line 17:
	''Dieses Makro stammt von Fabrizio Venerandi (mit einer kleinen Verbesserung von Matteo Cavalleri) und wurde in den [http://trinity.neooffice.org/modules.php?name=Forums&file=viewtopic&t=2040 NeoOffice-Foren] empfohlen.''		''Dieses Makro stammt von Fabrizio Venerandi (mit einer kleinen Verbesserung von Matteo Cavalleri) und wurde in den [http://trinity.neooffice.org/modules.php?name=Forums&file=viewtopic&t=2040 NeoOffice-Foren] empfohlen.''
-	{{botlangbarDE|[[Removing_marked_text|English]]	+	{{botlangbarDE|[[Removing_marked_text|English]]}}
	[[Category:NeoOffice]][[Category:Tips and Hints]][[Category:NeoWikiDE]]		[[Category:NeoOffice]][[Category:Tips and Hints]][[Category:NeoWikiDE]]

---

Revision as of 22:31, 15 February 2006

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.