De:Markierte Textabschnitte entfernen

From NeoWiki

Revision as of 13:04, 23 November 2006 (edit) Jgd (Talk | contribs) (botlangbar -> FR) ← Previous diff		Revision as of 14:55, 10 February 2007 (edit) (undo) Valterb (Talk | contribs) (botlangbar -> IT) 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]] [[Fr:Supprimer_du_texte_délimité|Français]]}}	+	{{botlangbarDE|[[Removing_marked_text|English]] [[Fr:Supprimer_du_texte_délimité|Français]] [[It:rimuovere_testo_delimitato|Italiano]]}}
	[[Category:NeoOffice]][[Category:Tips and Hints]][[Category:NeoWikiDE]]		[[Category:NeoOffice]][[Category:Tips and Hints]][[Category:NeoWikiDE]]

---

Revision as of 14:55, 10 February 2007

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.