Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen & Ersetzen - Schleife
16.07.2021 21:02:53 Sommergewitter
Solved
20.07.2021 12:24:17 Gast6907
*****
Solved
23.07.2021 19:45:38 Sommergewitter
Solved
26.07.2022 14:14:23 Ilona
NotSolved

Ansicht des Beitrags:
Von:
Sommergewitter
Datum:
16.07.2021 21:02:53
Views:
404
Rating: Antwort:
 Nein
Thema:
Suchen & Ersetzen - Schleife

Hallo,

ich komme mit meinem Makro nicht weiter...
Ich möchte gerne mehrere Worte im Dokument finden und durch jeweils andere Worte ersetzen.
Das klappt soweit, aber leider nur einmal. Ich bekomme keine Schleife hin...

Hat jemand eine Idee?
VIelen lieben Dank!

 

Sub Suchfunktion
  With ActiveDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Forward = True
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
        .Execute FindText:="Text1", ReplaceWith:="ErsetzterText1"
        .Execute FindText:="Text2", ReplaceWith:="ErsetzterText2"
        .Execute FindText:="Text3", ReplaceWith:="ErsetzterText3"
    End With 
    If (ActiveDocument.Content.Find.Found = False) Then Call Suchfunktion
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen & Ersetzen - Schleife
16.07.2021 21:02:53 Sommergewitter
Solved
20.07.2021 12:24:17 Gast6907
*****
Solved
23.07.2021 19:45:38 Sommergewitter
Solved
26.07.2022 14:14:23 Ilona
NotSolved