Wie sucht und ersetzt man mehrere Texte in Word mithilfe von Excel?
AutorXiaoyang•Änderungsdatum
In Microsoft Word bietet die Funktion „Suchen und Ersetzen“ eine effiziente Möglichkeit, gezielt nach bestimmtem Text zu suchen und ihn schnell zu ersetzen. Müssen Sie jedoch mehrere verschiedene Begriffe ersetzen, wird die manuelle Eingabe jedes einzelnen schnell zeitaufwendig.
Um diesen Prozess zu vereinfachen, können Sie Excel nutzen, um eine Liste der zu suchenden und ersetzenden Texte zu erstellen, und die Aufgabe anschließend mit einem einfachen VBA-Code automatisieren. In diesem Tutorial erfahren Sie, wie Sie mithilfe von Excel und VBA mehrere Texte innerhalb eines einzelnen Word-Dokuments suchen und ersetzen. Außerdem zeigen wir Ihnen, wie Sie dies auf mehrere Dokumente ausweiten können, und stellen Ihnen eine leistungsstarke Kutools-Funktion für die stapelweise Textersetzung vor.
Suchen und Ersetzen mehrere Texte in einem Word-Dokument aus Excel mithilfe von VBA-Code
Wenn Sie bestimmte Texte in einer einzelnen Word-Datei suchen und ersetzen möchten, unterstützt Sie der folgende VBA-Code.
1. Erstellen Sie in einem Excel-Arbeitsblatt eine Spalte mit den Texten, die Sie suchen und ersetzen möchten, und eine weitere Spalte mit den entsprechenden Ersetzungstexten – wie im folgenden Screenshot gezeigt. Drücken Sie anschließend gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie dann auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das Fenster ein.
VBA-Code: Suchen und Ersetzen mehrerer Texte in einer Word-Datei
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 im Fenster Microsoft Visual Basic für Applikationen auf Extras > Verweise, siehe Screenshot:
4. Wählen Sie im erscheinenden Dialogfeld Verweise – VBAProject in der Listenbox die Option Microsoft Word 16,0 Object Library aus, siehe Screenshot:
5. Klicken Sie auf die Schaltfläche OK, um das Dialogfeld zu schließen, und drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Wählen Sie im erscheinenden Durchsuchen-Fenster die Word-Datei aus, in der Sie die Texte ersetzen möchten – siehe Screenshot:
6. Klicken Sie dann im folgenden Dialogfeld auf OK und halten Sie die Taste Strg gedrückt, um die Zellen für Originaltext und Neuer Text separat auszuwählen – siehe Screenshot:
7. Klicken Sie anschließend auf die Schaltfläche OK, und der Text in Ihrem angegebenen Dokument wird durch den neuen Text ersetzt. Die Datei wird ebenfalls geöffnet – speichern Sie sie, um Ihre Änderungen zu behalten.
Suchen und Ersetzen mehrerer Texte in mehreren Word-Dokumenten aus Excel mithilfe von VBA-Code
Ich habe ebenfalls einen VBA-Code erstellt, der Ihnen dabei hilft, mehrere Textstellen in mehreren Word-Dokumenten zu suchen und zu ersetzen. Gehen Sie dazu wie folgt vor:
1. Öffnen Sie die Excel-Datei mit den beiden Spalten, die die zu ersetzenden Werte und die entsprechenden Ersetzungswerte enthalten – wie im folgenden Screenshot gezeigt –, und drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie dann auf Einfügen>Modul, und kopieren Sie den folgenden VBA-Code in das Fenster.
VBA-Code: Suchen und Ersetzen mehrerer Texte in mehreren Word-Dateien
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. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Extras > Verweise. Wählen Sie im Dialogfeld Verweise – VBAProject in der Listenbox die Optionen Microsoft Word 16,0 Object Library und Microsoft Scripting Runtime aus (siehe Screenshot):
4. Nachdem Sie die beiden Optionen aktiviert haben, klicken Sie auf OK, um das Dialogfeld zu schließen, und drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Wählen Sie im erscheinenden Durchsuchen-Fenster einen Ordner mit den Word-Dokumenten aus, an denen Sie die Suchen-und-Ersetzen-Aktion durchführen möchten (siehe Screenshot):
5. Klicken Sie auf die Schaltfläche OK, und drücken Sie im erscheinenden Dialogfeld die Taste Strg, um die Spalten für Originaltext und Neuer Text separat auszuwählen, die Sie verwenden möchten. Siehe Screenshot:
6. Klicken Sie abschließend auf OK, und die Originaltexte in diesen Dateien werden durch die neuen ersetzt. Nach Abschluss erscheint ein Dialogfeld wie im folgenden Screenshot gezeigt:
7. Klicken Sie auf OK, um das Dialogfeld zu schließen. Anschließend können Sie die Dateien öffnen, um die konvertierten Ergebnisse zu überprüfen.
Suchen und Ersetzen mehrerer Texte in mehreren Word-Dokumenten mit einer leistungsstarken Funktion
In diesem Abschnitt zeige ich Ihnen, wie Sie Text in mehreren Word-Dokumenten direkt in Word – und nicht in Excel – per Stapelverarbeitung suchen und ersetzen können. Mithilfe der leistungsstarken Funktion Kutools für Word können Sie effizient nach bestimmten Texten suchen und diese im Haupttext, in Kopf- und Fußzeilen, Kommentaren und mehr durch neue Inhalte ersetzen – und bei Bedarf die Ergebnisse hervorheben.
Kutools für Word
Kutools für Word unterstützt Sie dabei, alltägliche Dokumentaufgaben mithilfe praktischer Werkzeuge, die direkt in Microsoft Word integriert sind, schneller zu erledigen – ganz ohne Programmierkenntnisse und komplizierte Einrichtung.
KI-gestütztes Schreiben, Überarbeiten, Übersetzen und Zusammenfassen
Stapelweise Suchen und Ersetzen dokumentübergreifend
Word-Dokumente einfach zusammenführen und aufteilen
1. Öffnen Sie eine Word-Datei und klicken Sie anschließend auf KUTOOLS PLUS > Stapelweise Suchen und Ersetzen. Siehe Screenshot:
2. Führen Sie im geöffneten Dialogfeld Stapelweise Suchen und Ersetzen die folgenden Schritte aus:
Klicken Sie auf die Schaltfläche Hinzufügen, um die Word-Dateien hinzuzufügen, in denen Sie Texte Suchen und Ersetzen möchten;
Klicken Sie im linken Bereich auf Zeile hinzufügenoben im Menüband;
Geben Sie im eingefügten Feld den Originaltext und den neuen Text in die Spalten Suchen und Ersetzen ein, die Sie suchen und ersetzen möchten. Außerdem können Sie bei Bedarf eine Farbe festlegen, um die ersetzten Texte hervorzuheben.
3. Klicken Sie nach dem Erstellen der Suchkriterien auf die Schaltfläche Ersetzen, um zur Registerkarte Vorschauergebnis zu wechseln und die Ergebnisse von Suchen und Ersetzen anzuzeigen. Siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche Schließen, woraufhin ein Hinweisfenster erscheint, 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 unterstützt auch die folgenden Vorgänge:
Suchen und Ersetzen Sonderzeichen in mehreren Word-Dokumenten;
Suchen und Ersetzen mehrere Zeichenfolgen mit bestimmter Formatierung in mehreren Word-Dokumenten;
Mehrere Zeichenfolgen in mehreren TXT-, HTM- oder HTML-Dateien suchen und ersetzen.
Mehr erreichen in kürzerer Zeit mit KI-gestütztem Kutools für Word
Kutools für Word ist weit mehr als nur eine Sammlung von Werkzeugen – es ist eine intelligente Lösung, speziell entwickelt, um Ihre Produktivität spürbar zu steigern. Mit KI-gestützten Funktionen und den wichtigsten Tools ermöglicht Ihnen Kutools, in kürzerer Zeit noch mehr zu erreichen:
Fassen Sie Inhalte prägnant zusammen, formulieren Sie sie neu und verfassen oder übersetzen Sie sie sofort.
Lassen Sie Ihren Text beim Schreiben in Echtzeit mit Vorschlägen zu Grammatik, Zeichensetzung und Stil korrigieren.
Formulieren und übersetzen Sie Inhalte neu, ohne Layout, Formatierung oder Struktur zu verändern.
Übersetzen Sie Ihre Inhalte mühelos in über 40 Sprachen und erweitern Sie so Ihre globale Reichweite.
Erhalten Sie sofortige Unterstützung und intelligente Einblicke basierend auf den Inhalten Ihres aktuellen Dokuments.
Fragen Sie einfach, wie eine Aufgabe – etwa das Entfernen eines Abschnittsumbruchs – ausgeführt wird, und die KI führt Sie Schritt für Schritt durch den Prozess oder erledigt sie direkt für Sie.
Schwärzen Sie sensible oder vertrauliche Informationen innerhalb von Sekunden – für absolute Privatsphäre.
Alle Werkzeuge funktionieren nahtlos in Word und sind jederzeit griffbereit.
Erstellen, optimieren, übersetzen, fassen Sie Dokumente zusammen und sichern Sie sie ganz mühelos.
Verbessern Sie Grammatik, Klarheit und Tonfall in Echtzeit – direkt beim Schreiben.
Formulieren und übersetzen Sie Inhalte, ohne Layout oder Formatierung zu verändern.
Fragen Sie einfach, wie eine Aufgabe – etwa das Entfernen eines Abschnittsumbruchs – ausgeführt wird, und die KI führt Sie Schritt für Schritt durch den Prozess oder erledigt sie direkt für Sie.
Alle Werkzeuge funktionieren nahtlos in Word und sind jederzeit griffbereit.
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins
