Note: The other languages of the website are Google-translated. Back to English

Wie finde und ersetze ich Text in einem Word-Dokument aus Excel?

In Word-Dokumenten können wir die Funktion Suchen und Ersetzen anwenden, um einen Text schnell zu finden und zu ersetzen. Wenn jedoch mehrere Texte gesucht und ersetzt werden müssen, ist es zeitaufwändig, die Texte einzeln in die Funktion „Suchen und Ersetzen“ einzugeben. In diesem Fall können Sie die Texte zum Suchen und Ersetzen in die Liste der Zellen eingeben und diese Aufgabe mit Hilfe von VBA-Code in Excel problemlos erledigen. In diesem Artikel werde ich auch eine nützliche Funktion zum Stapelsuchen und Ersetzen von Texten in mehreren Word-Dokumenten vorstellen.

Suchen und ersetzen Sie mehrere Texte in einem Word-Dokument aus Excel mit VBA-Code

Suchen und ersetzen Sie mehrere Texte in mehreren Word-Dokumenten aus Excel mit VBA-Code

Suchen und ersetzen Sie mehrere Texte in mehreren Word-Dokumenten mit einer leistungsstarken Funktion


Suchen und ersetzen Sie mehrere Texte in einem Word-Dokument aus Excel mit VBA-Code

Wenn Sie einige Texte in nur einer Word-Datei suchen und ersetzen möchten, kann Ihnen der folgende VBA-Code einen Gefallen tun.

1. Erstellen Sie im Excel-Arbeitsblatt eine Spalte mit den Texten, die Sie suchen und ersetzen möchten, und eine weitere Spalte mit Texten, die Sie ersetzen möchten, wie im folgenden Screenshot gezeigt. Und dann drücken Alt + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Dann klick Insert > Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.

VBA-Code: Finden und ersetzen Sie mehrere 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. Nach dem Einfügen des Codes immer noch in der Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > Referenzen, siehe Screenshot:

4. In der herausgesprungenen Referenzen - VBAProject Wählen Sie im Dialogfeld Microsoft Word 16.0-Objektbibliothek aus dem Listenfeld, siehe Screenshot:

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

6. Dann klick OK, drücken Sie im folgenden Dialogfeld Ctrl Taste, um den Originaltext und neue Textzellen, die Sie verwenden möchten, separat auszuwählen, siehe Screenshot:

7. Und dann klicken OK klicken, jetzt werden die Texte gefunden und durch die neuen Texte in Ihrem angegebenen Dokument ersetzt, und die Datei wird ebenfalls geöffnet. Sie sollten sie speichern, um die Änderungen beizubehalten.


Suchen und ersetzen Sie mehrere Texte in mehreren Word-Dokumenten aus Excel mit VBA-Code

Hier erstelle ich auch einen VBA-Code zum Suchen und Ersetzen mehrerer Texte in mehreren Word-Dokumenten, bitte gehen Sie wie folgt vor:

1. Öffnen Sie die Excel-Datei, die zwei Spalten mit zu ersetzenden und zu ersetzenden Werten enthält, wie im folgenden Screenshot gezeigt, und drücken Sie dann Alt + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Dann klick Insert > Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.

VBA-Code: Finden und ersetzen Sie mehrere 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. Immer noch in der Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > ReferenzenIn der Referenzen - VBAProject Wählen Sie im Dialogfeld Microsoft Word 16.0-Objektbibliothek und Microsoft Scripting-Laufzeit Optionen aus dem Listenfeld, siehe Screenshot:

4. Nachdem Sie die beiden Optionen überprüft haben, klicken Sie auf OK , um das Dialogfeld zu schließen, und drücken Sie dann weiter auf F5 Schlüssel zum Ausführen dieses Codes in der Öffnung Entdecken Wählen Sie im Fenster einen Ordner aus, der die Word-Dokumente enthält, die Sie suchen und ersetzen möchten, siehe Screenshot:

5. Klicken Sie OK Schaltfläche, drücken Sie im Popup-Dialogfeld Ctrl Taste, um den Originaltext und neue Textspalten separat auszuwählen, die Sie verwenden möchten, siehe Screenshot:

6. Abschließend klicken Sie auf OK, und die ursprünglichen Texte werden in diesen Dateien durch die neuen ersetzt. Nach dem Abschluss wird ein Dialogfeld angezeigt, wie im folgenden Screenshot gezeigt:

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


Suchen und ersetzen Sie mehrere Texte in mehreren Word-Dokumenten mit einer leistungsstarken Funktion

In diesem Abschnitt werde ich darüber sprechen, wie Sie Texte in mehreren Word-Dokumenten stapelweise aus Word anstelle von Excel finden und ersetzen. Mit einem mächtigen Werkzeug-Kutools for Word, können Sie die spezifischen Texte schnell finden und ersetzen und durch neue Texte in Hauptdatei, Kopfzeile, Fußzeile, Kommentaren usw. ersetzen und die Ergebnisse nach Bedarf hervorheben.

1. Öffnen Sie eine Word-Datei und klicken Sie dann auf Kutoolen Plus > Batch suchen und ersetzen, siehe Screenshot:

2. In der geöffneten Batch suchen und ersetzen Im Dialogfeld führen Sie bitte die folgenden Vorgänge aus:

  • Klicken Sie Verwenden Sie Schaltfläche zum Hinzufügen der Word-Dateien, in denen Sie Texte suchen und ersetzen möchten;
  • Klicken Sie im linken Bereich auf Zeile hinzufügen vom oberen Band;
  • Geben Sie im eingefügten Feld den ursprünglichen Text und den neuen Text ein FINDE und Ersetzen Spalten getrennt, die Sie suchen und ersetzen möchten. Außerdem können Sie nach Bedarf eine Farbe zum Hervorheben der ersetzten Texte angeben.

3. Nachdem Sie die Suchkriterien erstellt haben, klicken Sie auf Ersetzen Taste, um die gehen Ergebnisvorschau Registerkarte, um die Ergebnisse des Suchens und Ersetzens anzuzeigen. Siehe Screenshot:

4. Dann klick Menu Schaltfläche und ein Eingabeaufforderungsfeld erscheint, um Sie daran zu erinnern, ob Sie dieses Szenario speichern möchten, klicken Sie auf Ja um es zu speichern, und klicken Sie auf Nein Um es zu ignorieren, siehe Screenshot:

Tipps: Diese Funktion kann auch dabei helfen, die folgenden Vorgänge auszuführen:
  • Suchen und Ersetzen von Sonderzeichen in mehreren Word-Dokumenten;
  • Finden und ersetzen Sie mehrere Zeichenfolgen mit bestimmten Formatierungen in mehreren Word-Dokumenten;
  • Finden und ersetzen Sie mehrere Zeichenfolgen in mehreren txt/htm/html-Dateien.

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


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (4)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Grüße,
der erste Code:
VBA-Code: Finden und ersetzen Sie mehrere Texte in einer Word-Datei

thows error: Kompilierungsfehler benutzerdefinierter Typ nicht definiert
https://i.imgur.com/FZPBy4I.png
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Erich
Der Code funktioniert gut.
Vielleicht hast du es nicht überprüft Microsoft Word 16.0-Objektbibliothek von dem Referenzen - VBAProject Dialogbox.
Dies bedeutet, dass Sie möglicherweise Schritt 3 und Schritt 4 dieses Artikels verpassen.
Bitte versuchen Sie es erneut, wenn Sie noch andere Probleme haben, kommentieren Sie bitte hier.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es funktioniert nicht.

Kompilierfehler: Benutzerdefinierter Typ nicht definiert
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Param
Der Code funktioniert gut.
Vielleicht hast du es nicht überprüft Microsoft Word 16.0-Objektbibliothek von dem Referenzen - VBAProject Dialogbox.
Dies bedeutet, dass Sie möglicherweise Schritt 3 und Schritt 4 dieses Artikels verpassen.
Bitte versuchen Sie es erneut, wenn Sie noch andere Probleme haben, kommentieren Sie bitte hier.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL