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