suchen & ersetzen in WriterText

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: suchen & ersetzen in WriterText

Re: suchen & ersetzen in WriterText

von DPunch » Mi, 25.08.2010 20:09

Aloha

Zu Punkt 2:
Suchbegriff: ReplaceDescriptor

;)

suchen & ersetzen in WriterText

von clag » 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

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 :)

Nach oben