suchen & ersetzen in WriterText
Verfasst: Mo, 23.08.2010 10:03
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
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
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")
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
