Wie kann man mehrere Texte in Word mithilfe von Excel finden und ersetzen?
Author: XiaoyangLast 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
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.
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:
4. Aktivieren Sie im aufgepoppten Dialogfeld Verweise – VBAProject die Option Microsoft Word 16.0 Object Library aus der Liste, siehe Screenshot:
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:
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:
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.
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:
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:
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:
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:
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:
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.
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:
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:
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.
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.