Wie finde und ersetze ich mehrere Wörter gleichzeitig in einem Word-Dokument?

Word bietet eine Funktion zum Suchen und Ersetzen, mit der alle Instanzen eines Wortes oder einer Phrase gefunden und gleichzeitig durch ein neues Wort ersetzt werden können. Wenn Sie jedoch gleichzeitig verschiedene Wörter suchen und ersetzen möchten, kann diese integrierte Funktion nicht helfen. In diesem Artikel geht es um eine VBA-Methode, mit der mehrere verschiedene Wörter gleichzeitig im Word-Dokument gefunden und ersetzt werden können.

Suchen und ersetzen Sie mehrere Wörter gleichzeitig in Word durch VBA-Code
Finden und ersetzen Sie einfach mehrere Wörter gleichzeitig in Word durch eine erstaunliche Funktion

Suchen und ersetzen Sie mehrere Wörter gleichzeitig in Word durch VBA-Code

Gehen Sie wie folgt vor, um mehrere Wörter gleichzeitig in einem Word-Dokument zu finden und zu ersetzen.

1. Öffnen Sie das Word-Dokument, das Sie suchen möchten, und ersetzen Sie mehrere Wörter gleichzeitig. Drücken Sie dann die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Modulfenster.

VBA-Code: Suchen und ersetzen Sie mehrere Wörter gleichzeitig in Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.

4. Im ersten Kutools for Word Geben Sie im Dialogfeld die mehreren Wörter ein, die Sie finden und ersetzen möchten, und trennen Sie sie durch Komma. Klicken Sie dann auf OK Taste. Siehe Screenshot:

5. In dieser Sekunde Kutools for Word Geben Sie im Dialogfeld die neuen Wörter ein, durch die Sie ersetzen möchten (diese Wörter müssen auch durch Kommas getrennt werden), und klicken Sie dann auf OK .

Hinweis: In diesem Fall alle "KTE" in diesem Dokument wird durch ersetzt "Neu", und "KTO" und "KTW" wird ersetzt mit "Prüfung" und "Fertig". Bitte ändern Sie sie an Ihre Bedürfnisse.

Finden und ersetzen Sie einfach mehrere Wörter gleichzeitig in Word durch eine erstaunliche Funktion

1. Starten Sie die Microsoft Word-Anwendung und klicken Sie auf Kutoolen Plus > Batch suchen und ersetzen.

2. In dem Batch suchen und ersetzen Fenster, bitte konfigurieren Sie wie folgt.

• 2.1 Klicken Sie auf Schaltfläche> Datei hinzufügen or Ordner hinzufügen um ein oder mehrere Dokumente hinzuzufügen, in denen Sie mehrere Wörter finden und ersetzen.
  
• 2.2 Klicken Sie auf Zeile hinzufügen Schaltfläche zum Einfügen der Such- und Ersetzungsfelder. Wenn Sie drei verschiedene Texte gleichzeitig suchen und ersetzen möchten, erstellen Sie bitte drei Zeilen.
• 2.3 Geben Sie in jede Zeile die vorhandenen Wörter ein, die Sie durch ein neues ersetzen möchten Finden Sie Spalte, und geben Sie dann die neuen Wörter in die Ersetzen Spalte.
• 2.4 Geben Sie die Suche Art Für jede Reihe.
• 2.5 In der Zu finden in Wählen Sie in dieser Spalte aus, wo das Suchen und Ersetzen angewendet werden soll. Es enthält Hauptdokument, Kopfzeile und Fußzeile in diesem Abschnitt. Sie können je nach Bedarf einen, zwei oder alle auswählen.
• 2.6. Klicken Sie auf die Ersetzen Taste, um den Vorgang zu starten. Siehe Screenshot:

Dann werden die spezifischen Wörter gleichzeitig in ausgewählten Dokumenten ersetzt.

TIPP: Sie können das Ergebnis mit Hintergrundfarbe hervorheben, indem Sie im Feld eine bestimmte Farbe angeben Hervorheben Spalte für eine Zeile.

  Wenn Sie eine kostenlose Testversion (60 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.

Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

✏ Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...

➕ Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

⭐ Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀

Free Download     Weiterlesen     JETZT KAUFEN