Was bitte soll gleich sein? Deine Frage betrifft ein völlig neues Thema und dazu sollte ein neuer Thread eröffnet werden, siehe auch:Hallo bin genau auf der suche nach so einem code. In einer Tabelle funktioniert alles sehr gut brauche es aber für ein normales Textdokument!?
http://de.openoffice.info/viewtopic.php?f=3&t=54568
z.B.Kann mir vielleicht jemand helfen?
Code: Alles auswählen
Sub Suchen_Ersetzen()
oDescriptor = ThisComponent.createSearchDescriptor()
oDescriptor.SearchString = "Suchtext"
oFoundAll = ThisComponent.findAll(oDescriptor)
For i = 0 To oFoundAll.getCount()-1
oFound = oFoundAll.getByIndex(i)
oFound.setString("Neuer Text")
Next
End Sub
Stephan