Thema Datum  Von Nutzer Rating
Antwort
16.07.2021 21:02:53 Sommergewitter
Solved
Blau Suchen & Ersetzen - Schleife
 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:
Gast6907		 Datum:
20.07.2021 12:24:17		 Views:
416		 Rating:
     
Antwort:
 Nein
Thema:
Suchen & Ersetzen - Schleife

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...

Du meinst so?

Option Explicit

Sub Suchfunktion()
  
  Dim vntReplaces As Variant
  Dim vntReplace As Variant
  
  vntReplaces = Array( _
                  Array("Text1", "ErsetzterText1"), _
                  Array("Text2", "ErsetzterText2"), _
                  Array("Text3", "ErsetzterText3"))
  
  With ActiveDocument.Content.Find
    
    .ClearFormatting
    .Replacement.ClearFormatting
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Forward = True
    .Wrap = wdFindContinue
    
    For Each vntReplace In vntReplaces
      Call .Execute(FindText:=vntReplace(0), ReplaceWith:=vntReplace(1), Replace:=wdReplaceAll)
    Next
    
  End With
  
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
16.07.2021 21:02:53 Sommergewitter
Solved
Blau Suchen & Ersetzen - Schleife
 20.07.2021 12:24:17 Gast6907
*****
Solved
23.07.2021 19:45:38 Sommergewitter
Solved
26.07.2022 14:14:23 Ilona
NotSolved