Suchen und Ersetzen via Macro in Textdokument

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Suchen und Ersetzen via Macro in Textdokument

Beitrag von Stephan »

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!?
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
Kann mir vielleicht jemand helfen?
z.B.

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
Gruß
Stephan
F3K Total
********
Beiträge: 3704
Registriert: Mo, 28.02.2011 17:49

Re: Suchen und Ersetzen via Macro in Textdokument

Beitrag von F3K Total »

Moin,
bitteschön, funktioniert in einer Writer Datei.

Code: Alles auswählen

Sub Main
    oSD = thisComponent.createReplaceDescriptor
    with oSD
        .SearchString = "Ich"
        .ReplaceString = "Du"
    end with
    thisComponent.replaceAll(oSD)
End Sub
Gruß R
EDIT: UPS, Stefan war eher, aber ich lasse meinen Code stehen, da er statt Searchdescriptor den Replacedescriptor verwendet.
Antworten