OpenOffice.info

Sub Main
    oSD = thisComponent.createReplaceDescriptor
    with oSD
        .SearchString = "Ich"
        .ReplaceString = "Du"
    end with
    thisComponent.replaceAll(oSD)
End Sub

Moin,
bitteschön, funktioniert in einer Writer Datei.
[code]Sub Main
oSD = thisComponent.createReplaceDescriptor
with oSD
.SearchString = "Ich"
.ReplaceString = "Du"
end with
thisComponent.replaceAll(oSD)
End Sub[/code]
Gruß R
EDIT: UPS, Stefan war eher, aber ich lasse meinen Code stehen, da er statt Searchdescriptor den Replacedescriptor verwendet.

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

[quote]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!?[/quote]

Was bitte soll gleich sein? Deine Frage betrifft ein völlig neues Thema und dazu sollte ein neuer Thread eröffnet werden, siehe auch:
http://de.openoffice.info/viewtopic.php?f=3&t=54568

[quote]Kann mir vielleicht jemand helfen?[/quote]

z.B.

[code]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
[/code]

Gruß
Stephan