suchen & ersetzen in WriterText

[clag]

Hallo Kenner und Könner,

zwei Fragen zu suchen und ersetzen in einem Writer Dokument per Makro

1. einen String möchte ich von störenden Zeichen oder Worten befreien,
dazu verwende ich im Moment diesen Code

Code: Alles auswählen

	
  Enum = Doc.Text.createEnumeration
  TextElement = Enum.nextElement
  myText01 = TextElement.string
		
  myText01 = RTrim(myText01,)				
  myText01 = Replace(myText01,"\","_")

  myText01 = Replace(myText01,"/","-")
  myText01 = Replace(myText01,":","- ")
  myText01 = Replace(myText01,"?","- ")

  myText01 = Replace(myText01,chr(10),"")
  myText01 = Replace(myText01,"pi","")
  myText01 = Replace(myText01,"ah","")
  myText01 = Replace(myText01,"ooh","")
  myText01 = Replace(myText01,"tut","")

  myText01 = Replace(myText01,"Heullo Late","Hallo Leute")

kann man die Aktionen mit der selben Ersetzung irgend wie in eine Codezeile zusammenfassen ?


2. wie müsste der Code aussehen um im gesamten Dokument ein Wort zu ersetzen ?

meinen Dank für eine Antwort gibt es schon vorweg

[DPunch]

Aloha

Zu Punkt 2:
Suchbegriff: ReplaceDescriptor