Zum Hauptinhalt springen

Wie kann man mehrere Texte in Word mithilfe von Excel finden und ersetzen?

Author: Xiaoyang Last Modified: 2025-08-06

In Microsoft Word ist die Funktion „Suchen und Ersetzen“ eine effiziente Möglichkeit, um schnell nach bestimmten Texten zu suchen und diese zu ersetzen. Wenn Sie jedoch mehrere verschiedene Begriffe ersetzen müssen, kann das manuelle Eingeben jedes einzelnen zeitaufwendig sein.

Um diesen Prozess zu optimieren, können Sie Excel verwenden, um eine Liste der zu suchenden und zu ersetzenden Texte zu erstellen, und dann die Aufgabe mit einem einfachen VBA-Code automatisieren. Dieses Tutorial führt Sie durch die Verwendung von Excel und VBA, um mehrere Texte innerhalb eines einzigen Word-Dokuments zu finden und zu ersetzen. Darüber hinaus zeige ich Ihnen, wie Sie dies auf mehrere Dokumente ausweiten und eine leistungsstarke Kutools-Funktion für die Stapeltextersetzung vorstellen.

Mehrere Texte in einem Word-Dokument aus Excel mit VBA-Code finden und ersetzen

Mehrere Texte in mehreren Word-Dokumenten aus Excel mit VBA-Code finden und ersetzen

Mehrere Texte in mehreren Word-Dokumenten mit einer leistungsstarken Funktion finden und ersetzen


Mehrere Texte in einem Word-Dokument aus Excel mit VBA-Code finden und ersetzen

Wenn Sie einige Texte nur in einer Word-Datei finden und ersetzen möchten, kann der folgende VBA-Code Ihnen helfen.

1. Erstellen Sie in einem Excel-Arbeitsblatt eine Spalte mit den Texten, die Sie finden und ersetzen möchten, und eine weitere Spalte mit den zu ersetzenden Texten, wie im folgenden Screenshot gezeigt. Drücken Sie dann gleichzeitig die Tasten Alt+ F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

A screenshot showing an Excel worksheet with columns containing texts to find and replace

2. Klicken Sie anschließend auf Einfügen > Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.

VBA-Code: Mehrere Texte in einer Word-Datei finden und ersetzen

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Nachdem Sie den Code eingefügt haben, klicken Sie immer noch im Fenster Microsoft Visual Basic for Applications auf Extras > Verweise, siehe Screenshot:

A screenshot showing the Microsoft Visual Basic for Applications window with the Tools menu expanded

4. Aktivieren Sie im aufgepoppten Dialogfeld Verweise – VBAProject die Option Microsoft Word 16.0 Object Library aus der Liste, siehe Screenshot:

A screenshot showing the References dialog box in the Microsoft Visual Basic for Applications window with the Microsoft Word 16.0 Object Library selected

5. Klicken Sie auf die Schaltfläche OK, um das Dialogfeld zu schließen, und drücken Sie nun die Taste F5, um diesen Code auszuführen. Wählen Sie im sich öffnenden Fenster Durchsuchen die Word-Datei aus, in der Sie die Texte ersetzen möchten, siehe Screenshot:

A screenshot showing the Browse window for selecting a Word file

6. Klicken Sie dann auf OK. Im nächsten Dialogfeld halten Sie die Strg-Taste gedrückt, um die Zellen mit dem Originaltext und dem neuen Text separat auszuwählen, die Sie verwenden möchten, siehe Screenshot:

A screenshot showing the selection of two ranges in Excel for find and replace text

7. Klicken Sie anschließend auf die Schaltfläche OK. Nun werden die Texte gefunden und durch die neuen Texte in Ihrem angegebenen Dokument ersetzt. Die Datei wird ebenfalls geöffnet, und Sie sollten sie speichern, um die Änderungen beizubehalten.


Mehrere Texte in mehreren Word-Dokumenten aus Excel mit VBA-Code finden und ersetzen

Ich habe auch einen VBA-Code erstellt, um Ihnen bei der Suche und dem Ersetzen mehrerer Texte in mehreren Word-Dokumenten zu helfen. Folgen Sie diesen Schritten:

1. Öffnen Sie die Excel-Datei, die zwei Spalten mit zu ersetzenden Werten und deren Ersatzwerte enthält, wie im folgenden Screenshot gezeigt, und drücken Sie dann gleichzeitig die Tasten Alt+ F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

A screenshot showing an Excel worksheet with columns containing texts to find and replace

2. Klicken Sie anschließend auf Einfügen > Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.

VBA-Code: Mehrere Texte in mehreren Word-Dateien finden und ersetzen

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Noch im Fenster Microsoft Visual Basic for Applications klicken Sie auf Extras > Verweise. Aktivieren Sie im Dialogfeld Verweise – VBAProject die Optionen Microsoft Word 16.0 Object Library und Microsoft Scripting Runtime aus der Liste, siehe Screenshot:

A screenshot showing the References dialog box with Microsoft Word 16.0 Object Library and Microsoft Scripting Runtime selected

4. Nachdem Sie die beiden Optionen aktiviert haben, klicken Sie auf OK, um das Dialogfeld zu schließen. Drücken Sie dann weiterhin die Taste F5, um diesen Code auszuführen. Wählen Sie im sich öffnenden Fenster Durchsuchen einen Ordner aus, der die Word-Dokumente enthält, in denen Sie die Suchen-und-Ersetzen-Funktion ausführen möchten, siehe Screenshot:

A screenshot showing the folder selection dialog for choosing a folder containing Word documents for find and replace

5. Klicken Sie auf die Schaltfläche OK. Im aufgepoppten Dialogfeld halten Sie die Strg-Taste gedrückt, um die Spalten mit dem Originaltext und dem neuen Text separat auszuwählen, die Sie verwenden möchten, siehe Screenshot:

A screenshot showing the selection of original and new text columns in Excel for find and replace

6. Klicken Sie abschließend auf OK, und die Originaltexte werden durch die neuen Texte in diesen Dateien ersetzt. Nach Abschluss des Vorgangs wird ein Dialogfeld aufpoppen, wie im folgenden Screenshot gezeigt:

A screenshot showing the confirmation dialog box after completing the find and replace process across multiple Word documents

7. Klicken Sie auf OK, um das Dialogfeld zu schließen. Sie können zu den Dateien gehen, um die konvertierten Ergebnisse zu überprüfen.


Mehrere Texte in mehreren Word-Dokumenten mit einer leistungsstarken Funktion finden und ersetzen

In diesem Abschnitt erkläre ich, wie Sie Texte mithilfe von Word selbst statt Excel in mehreren Word-Dokumenten stapelweise finden und ersetzen können. Mit dem leistungsstarken Kutools for Word können Sie effizient nach bestimmten Texten suchen und diese im Haupttext, in Kopf- und Fußzeilen, Kommentaren und mehr durch neue Texte ersetzen, während Sie die Ergebnisse bei Bedarf auch hervorheben können.

Kutools für Word,ausgestattet mit KI 🤖, bietet über 100 praktische Funktionen, um Ihre Aufgaben zu vereinfachen.

1. Öffnen Sie eine Word-Datei, und klicken Sie dann auf Kutools Plus > Stapelweise Suchen und Ersetzen, siehe Screenshot:

A screenshot showing the Kutools for Word Batch Find and Replace feature in the Ribbon

2. Führen Sie im geöffneten Dialogfeld Stapelweise Suchen und Ersetzen die folgenden Aktionen aus:

  • Klicken Sie auf die Schaltfläche Hinzufügen, um die Word-Dateien hinzuzufügen, in denen Sie Texte finden und ersetzen möchten;
  • Klicken Sie im linken Bereich auf Zeile hinzufügen in der oberen Symbolleiste;
  • Geben Sie im eingefügten Feld den Originaltext und den neuen Text getrennt in die Spalten Suchen und Ersetzen ein, die Sie finden und ersetzen möchten. Außerdem können Sie eine Farbe zum Hervorheben der ersetzten Texte festlegen, falls erforderlich.

A screenshot showing the Batch Find and Replace dialog box with the option to add Word files

3. Nachdem Sie die Suchkriterien erstellt haben, klicken Sie auf die Schaltfläche Ersetzen, um zur Registerkarte Vorschau der Ergebnisse zu gelangen und die Suchen-und-Ersetzen-Ergebnisse anzuzeigen. Siehe Screenshot:

A screenshot showing the Preview Result tab after performing find and replace

4. Klicken Sie dann auf die Schaltfläche Schließen, und es wird ein Hinweisfenster aufpoppen, das Sie fragt, ob Sie dieses Szenario speichern möchten. Klicken Sie auf Ja, um es zu speichern, oder auf Nein, um es zu ignorieren, siehe Screenshot:

A screenshot showing the prompt asking if the user wants to save the batch find and replace scenario in Kutools for Word

Tipps: Diese Funktion kann auch dabei helfen, die folgenden Operationen durchzuführen:
  • Spezielle Zeichen in mehreren Word-Dokumenten finden und ersetzen;
  • Mehrere Zeichenfolgen mit spezifischer Formatierung in mehreren Word-Dokumenten finden und ersetzen;
  • Mehrere Zeichenfolgen in mehreren txt/htm/html-Dateien finden und ersetzen.

Klicken Sie hier, um weitere detaillierte Informationen zu dieser Funktion zu erhalten…

Erledigen Sie mehr in weniger Zeit mit KI-optimierten Kutools für Word

Kutools für Word ist nicht nur eine Sammlung von Werkzeugen – es ist eine intelligente Lösung, die entwickelt wurde, um Ihre Produktivität zu steigern. Mit KI-gestützten Funktionen und den wichtigsten Features hilft Ihnen Kutools, mehr in weniger Zeit zu erreichen:

  • Fassen Sie Inhalte zusammen, schreiben Sie sie um, verfassen Sie neue Texte und übersetzen Sie sie sofort.
  • Texte in Echtzeit korrekturlesen mit Vorschlägen zur Grammatik, Interpunktion und zum Stil, während Sie schreiben.
  • Inhalte umformulieren und übersetzen, ohne das Layout, den Stil oder die Struktur zu verändern.
  • Übersetzen Sie Ihre Inhalte mühelos in über 40 Sprachen und erweitern Sie so Ihren globalen Einfluss.
  • Erhalten Sie sofortige Hilfe und intelligente Einblicke basierend auf dem Inhalt Ihres aktuellen Dokuments.
  • Fragen Sie, wie Sie eine Aufgabe ausführen – wie das Entfernen von Abschnittsumbrüchen – und die KI wird Sie anleiten oder es für Sie erledigen.
  • Schwärzen Sie sensible oder vertrauliche Informationen innerhalb von Sekunden, um absolute Privatsphäre zu gewährleisten.
  • Alle Werkzeuge arbeiten nahtlos innerhalb von Word und sind immer griffbereit.
  • Dokumente mühelos erstellen, verfeinern, übersetzen, zusammenfassen und schützen.
  • Grammatik, Klarheit und Tonfall in Echtzeit verbessern, während Sie schreiben.
  • Inhalte umformulieren und übersetzen, ohne Änderungen am Layout oder der Formatierung vorzunehmen.
  • Fragen Sie, wie Sie eine Aufgabe ausführen – wie das Entfernen von Abschnittsumbrüchen – und die KI wird Sie anleiten oder es für Sie erledigen.
  • Alle Werkzeuge arbeiten nahtlos innerhalb von Word und sind immer griffbereit.
Erfahren Sie mehr über Kutools für Word Jetzt herunterladen
Kutools for Word features

Die besten Office-Produktivitätstools

🤖 Kutools AI Aide: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung |  Code generieren  |  Benutzerdefinierte Formeln erstellen |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Doppelte suchen, hervorheben oder markieren | Leere Zeilen löschen | Spalten oder Zellen ohne Datenverlust zusammenführen | Runden
Erweiterte SVERWEIS: SVERWEIS mit mehreren Kriterien | SVERWEIS für mehrere Werte | Mehrblatt-SVERWEIS | Fuzzy Match
Erweiterte Dropdown-Liste: Dropdown-Liste schnell erstellen | Abhängige Dropdown-Liste | Mehrfachauswahl-Dropdown-Liste
Spalten-Manager: Eine bestimmte Anzahl an Spalten hinzufügen | Spalten verschieben | Sichtbarkeit von ausgeblendeten Spalten umschalten | Bereiche & Spalten vergleichen
Hervorgehobene Funktionen: Gitterfokus | Entwurfsansicht | Erweiterte Formelleiste | Arbeitsmappen- & Blattmanager | AutoText-Bibliothek | Datumsauswahl | Daten zusammenführen | Zellen verschlüsseln/entschlüsseln | E-Mail senden nach Liste | Super Filter | Spezialfilter (Filtern nach Fett/Kursiv/Durchgestrichen...)…
Top15 Toolsets:12 Text-Tools (Text hinzufügen, Bestimmte Zeichen löschen, ...) | 50+ Diagramm typen (Gantt-Diagramm, ...) | 40+ praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...) | 19 Einfüge-Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...) | 12 Konvertierungs-Tools (In Wörter umwandeln, Währungsumrechnung, ...) | 7 Konsolidieren & Aufteilen-Tools (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...) | ... und mehr
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere Sprachen!

Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre Produktivität zu steigern und Zeit zu sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt die Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen in Reitern in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Reitern desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich Hunderte von Mausklicks!