Wie kann man in Word in mehreren Dateien gleichzeitig suchen und ersetzen?

Wenn Sie Dutzende von Word-Dateien haben, die denselben Inhalt (wie Kopfzeilen, Fußzeilen oder spezifischen Text) enthalten, und Sie diesen Inhalt in allen Dokumenten ersetzen müssen, kann dies manuell mühsam sein. Dieses Tutorial stellt zwei Methoden vor, um schnell denselben oder unterschiedlichen Inhalt in mehreren Word-Dokumenten auf einmal zu ersetzen.

Suchen und Ersetzen von Texten in mehreren Word-Dokumenten gleichzeitig mit VBA-Code
Einfaches Suchen und Ersetzen unterschiedlicher Texte in mehreren Dokumenten gleichzeitig mit Kutools für Word

Suchen und Ersetzen von Texten in mehreren Word-Dokumenten gleichzeitig mit VBA-Code

Diese Methode zeigt, wie Sie VBA-Code verwenden, um Inhalte in mehreren Dokumenten gleichzeitig zu suchen und zu ersetzen.

1. Drücken Sie Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf "Einfügen" > "Modul", und fügen Sie den folgenden Code ein:

   Sub CommandButton1_Click()
   'Updated by Extendoffice 20180625
   Dim xFileDialog As FileDialog, GetStr(1 To 100) As String
   Dim xFindStr As String
   Dim xReplaceStr As String
   Dim xDoc As Document
   On Error Resume Next
   Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
   With xFileDialog
       .Filters.Clear
       .Filters.Add "All WORD File ", "*.docx", 1
       .AllowMultiSelect = True
       i = 1
       If .Show = -1 Then
           For Each stiSelectedItem In .SelectedItems
               GetStr(i) = stiSelectedItem
               i = i + 1
           Next
           i = i - 1
       End If
       Application.ScreenUpdating = False
       xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
       xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
       For j = 1 To i Step 1
           Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
           Windows(GetStr(j)).Activate
           Selection.Find.ClearFormatting
           Selection.Find.Replacement.ClearFormatting
           With Selection.Find
               .Text = xFindStr
               .Replacement.Text = xReplaceStr
               .Forward = True
               .Wrap = wdFindAsk
               .Format = False
               .MatchCase = False
               .MatchWholeWord = False
               .MatchByte = True
               .MatchWildcards = False
               .MatchSoundsLike = False
               .MatchAllWordForms = False
           End With
           Selection.Find.Execute Replace:=wdReplaceAll
           ActiveDocument.Save
           ActiveWindow.Close
       Next
       Application.ScreenUpdating = True
   End With
   MsgBox "Operation end, please view", vbInformation
   End Sub

3. Drücken Sie F5, um den Code auszuführen.
4. Wählen Sie im Durchsuchen-Fenster die Dokumente aus, die Sie verarbeiten möchten, und klicken Sie auf "OK".

   

5. Geben Sie im Eingabefeld "Suchen nach" das Wort oder die Phrase ein, nach der gesucht werden soll, und klicken Sie auf "OK".

   

6. Geben Sie im Eingabefeld "Ersetzen durch" den Ersetzungstext ein und klicken Sie auf "OK".

   

7. Klicken Sie im letzten Microsoft Word-Dialogfeld auf "OK".

   

Alle Vorkommen des angegebenen Textes in den ausgewählten Word-Dateien werden auf einmal ersetzt.

Einfaches Suchen und Ersetzen unterschiedlicher Texte in mehreren Dokumenten gleichzeitig mit Kutools für Word

Die Funktion "Stapelweise Suchen und Ersetzen" in Kutools für Word ermöglicht es Ihnen, mehrere Textelemente in verschiedenen Word-Dokumenten gleichzeitig zu suchen und zu ersetzen.

1. Klicken Sie auf "Kutools" > "Stapelersetzung".

   

2. Konfigurieren Sie im Dialogfeld "Stapelweise Suchen und Ersetzen" die Einstellungen:
   1. Klicken Sie auf die Schaltfläche "Zeile hinzufügen".
   2. In der neuen Zeile:
      1. Geben Sie den zu suchenden Text unter "Suchen" ein.
      2. Geben Sie den Ersetzungstext unter "Ersetzen" ein.
      3. Optional können Sie einen Suchtyp, den Ort, an dem gesucht und ersetzt werden soll, eine Hervorhebungsfarbe und andere Optionen je nach Bedarf in den entsprechenden Spalten angeben.
   3. Klicken Sie auf die Schaltfläche im Abschnitt "Dateityp", um Word-Dateien zum Stapel hinzuzufügen.
   4. Klicken Sie auf "Ersetzen" oder "Suchen".
      Tipp: Wiederholen Sie die Schritte 1) und 2), um weitere Suchen-und-Ersetzen-Regeln hinzuzufügen.

      

3. Schließen Sie das Dialogfeld "Stapelweise Suchen und Ersetzen", wenn Sie fertig sind.

Für weitere Informationen zur Funktion "Stapelweise Suchen und Ersetzen" besuchen Sie bitte die Tutorialseite.

Die besten Produktivitätstools für das Büro

Kutools für Word – Steigern Sie Ihr Word-Erlebnis mit über 100 bemerkenswerten Funktionen!

🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren (Format beibehalten) / Super Übersetzen (Format beibehalten) / KI-Redaktion / KI Korrekturlesen...

📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...) / Stapelweise Konvertierung nach PDF...

✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen über mehrere Dateien / Alle Bilder skalieren / Tabellenzeilen und -spalten transponieren / Tabelle in Text umwandeln...

🧹 Mühelos bereinigen: Entfernen Sie ganz einfach zusätzliche Leerzeichen / Abschnittsumbrüche / Textfelder / Hyperlinks / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen...

➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfelder / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen im Bereich Einfügen...

🔍 Präzise Auswahl: Bestimmen Sie gezielt bestimmte Seiten / Tabellen / Formen / Überschriftenabsätze / Verbessern Sie die Navigation mit weiteren Auswählen -Funktionen...

⭐ Herausragende Verbesserungen: Navigieren Sie zu beliebigen Standorten / Automatisches Einfügen von wiederkehrendem Text / Umschalten zwischen Dokument-Fenstern /11 Konvertierungswerkzeuge...

🌍 Unterstützt über40 Sprachen: Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und mehr als40 weitere!

👉 Möchten Sie diese Funktionen ausprobieren? Laden Sie Kutools für Word jetzt herunter! 🚀

Kostenloser Download     Jetzt kaufen     Mehr erfahren über Kutools für Word

 

Die besten Produktivitätstools für das Büro

Kutools für Word – 100+ Werkzeuge für Word

• 🤖 Kutools AI-Features: KI-Assistent / Echtzeit-Assistent / Super Polieren / Super Übersetzen / KI-Redaktion / KI Korrekturlesen
• 📘 Dokumenten-Beherrschung: Seiten teilen / Dokumente zusammenführen / Stapelweise Konvertierung nach PDF
• ✏ Inhaltsbearbeitung: Stapelweise Suchen und Ersetzen / Alle Bilder skalieren
• 🧹 Mühelos bereinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche entfernen
• ➕ Kreative Einfügungen: Tausendertrennzeichen einfügen / Kontrollkästchen einfügen / QR-Codes erstellen
• 🌍 Unterstützt über40 Sprachen: Kutools spricht Ihre Sprache – mehr als40 Sprachen werden unterstützt!

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools