Text in writer ersetzen, z.B. %name, %ort, ...

[egerlach]

Hallo,
kann mir jemand freundlicherweise den BASIC-code für Text-Ersetzen in einem writer-Dokument zusammenschreiben? - Ich bin in dieser Sache Anfänger, ich kann im Gegenzug einen megastarken Code für die Ersetzung von Textmarken ("bookmarks") bieten :

Code: Alles auswählen

Dim Msg as String
' text  an der Textmarke "adr" einsetzen.
Msg = "hallo"
oDoc = ThisComponent
oDoc.getBookmarks().getByName("adr").getAnchor().String=Msg

Vielleicht ist hier ja ein "Profi" unterwegs und schreibt den Code "schnell" um. Ich will in meinem writer-Dokument das eingetippte Wort %name durch "hallo" ersetzen. Wenn % als Markierung ungeeignet ist, darf es auch z.B. & oder XXX sein.

@7.6.09: habe die Lösung selbst gefunden:

Code: Alles auswählen

Sub Main
  Dim oDoc As Object
  Dim oReplace As Object
  oDoc = ThisComponent
  oReplace = oDoc.createReplaceDescriptor
  oReplace.SearchString = "$xxxx"
  oReplace.ReplaceString = "mmmmm"
  oDoc.replaceAll(oReplace) 
End Sub

Das ganz dann noch in einer Schleife für andere $yyyy, $name, ...

Gruss Eckard