Zum Hauptinhalt springen

Kutools für Office — Eine Suite. Fünf Tools. Erledigen Sie mehr.

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

Author Amanda Li Last modified

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".
    Browse window
  5. Geben Sie im Eingabefeld "Suchen nach" das Wort oder die Phrase ein, nach der gesucht werden soll, und klicken Sie auf "OK".
    Find what box
  6. Geben Sie im Eingabefeld "Ersetzen durch" den Ersetzungstext ein und klicken Sie auf "OK".
    Replace with box
  7. Klicken Sie im letzten Microsoft Word-Dialogfeld auf "OK".
    Confirmation dialog

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.

Kutools for Word,ausgestattet mit KI 🤖, bietet über 100 praktische Funktionen, um Ihre Aufgaben zu vereinfachen.
  1. Klicken Sie auf "Kutools" > "Stapelersetzung".
    Batch Replacement button
  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 Add button 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.
      Batch Find and Replace configuration
  3. Schließen Sie das Dialogfeld "Stapelweise Suchen und Ersetzen", wenn Sie fertig sind.

Hinweise:

  • Wenn Sie auf "Suchen" klicken, erscheinen die Treffer unter dem Reiter "Vorschau Ergebnis". Um anschließend Ersetzungen anzuwenden, wechseln Sie zurück zum Reiter "Suchen und Ersetzen".
  • Wenn Sie auf "Ersetzen" klicken, werden alle Treffer sofort ersetzt und unter "Vorschau Ergebnis" angezeigt.
  • Wenn Hervorhebungsfarben angegeben wurden, werden die Ersetzungen in Ihren Word-Dokumenten entsprechend farbcodiert.

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

Kutools für Word ist das ultimative Word-Add-in, das Ihre Arbeit optimiert und Ihre Dokumentverarbeitungsfähigkeiten steigert. Jetzt herunterladen!

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

Kutools for Word – Erweitern Sie Ihr Word-Erlebnis mit mehr als 100 bemerkenswerten Funktionen!

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

📘 Dokument beherrschen: Seiten aufteilen / Dokumente zusammenführen / Bereich in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML ...) / Stapelweise Konvertierung zu PDF ...

✏ Text bearbeiten: Stapelweise Suchen und Ersetzen in mehreren Dateien / Alle Bilder skalieren / Tabelle transponieren (Zeilen und Spalten) / Tabelle in Text umwandeln ...

🧹 Mühelos reinigen: Zusätzliche Leerzeichen entfernen / Abschnittsumbrüche / Textfeld / Verknüpfungen / Weitere Entfernen-Werkzeuge finden Sie in der Gruppe Entfernen ...

➕ Kreative Einfügen: Tausendertrennzeichen einfügen / Kontrollkästchen / Optionsfeld / QR-Code / Barcode / Mehrere Bilder / Entdecken Sie weitere Funktionen in der Gruppe Einfügen ...

🔍 Präzise Auswahl: Einzelne Seiten, Referenztabellen, Form, Überschriftenabsatz gezielt festlegen / Navigation mit weiteren Auswählen -Features verbessern ...

⭐ Besondere Erweiterungen: Zu jedem Bereich navigieren / Automatisches Einfügen von wiederkehrendem Text / Zwischen Dokument-Fenster umschalten /11 Konvertierungs-Werkzeuge ...

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

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Möchten Sie diese Funktionen ausprobieren? Jetzt Kutools for Word herunterladen! 🚀
 

✨ Kutools for Office – Eine Installation, fünf leistungsstarke Tools!

Enthält Office Tab Pro · Kutools für Excel · Kutools für Outlook · Kutools for Word · Kutools for PowerPoint

📦 Alle5 Tools in einer Suite erhalten | 🔗 Nahtlose Integration in Microsoft Office | ⚡ Sofort Zeit sparen und Produktivität steigern

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

Kutools for Word – 100+ Tools für Word

Kostenloser Download Jetzt kaufen Mehr erfahren über Kutools