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