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

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

Der Batch suchen und ersetzen Merkmal von Kutools for Word kann dabei helfen, verschiedene Texte in einem Dokument oder in mehreren Dokumenten gleichzeitig leicht zu finden und zu ersetzen.

Bevor Sie diese Funktion anwenden, nehmen Sie sich bitte ein paar Minuten Zeit Laden Sie es zuerst herunter und installieren Sie es.

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 FINDE 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.


Empfohlene Word-Produktivitätswerkzeuge

 

Kutools für Word - Mehr als 100 erweiterte Funktionen für Word, sparen Sie 50% Zeit

  • Komplizierte und wiederholte Vorgänge können in Sekunden einmalig verarbeitet werden.
  • Fügen Sie mehrere Bilder über Ordner hinweg gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zu einer gewünschten Reihenfolge zusammen.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, eine Sammlung von Tools für allgemeine Konvertierungen und Auswahl usw.
Kommentare (21)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert das in Office Excel 365
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Irgendeine Möglichkeit, diese Groß-/Kleinschreibung zu sensibel machen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, das funktioniert gut mit englischen Wörtern. Jetzt mache ich ein Dokument, in dem ich Englisch in Gujarati übersetze. Also, wenn ich das anwende (Find English Words) und (Replace with Gujarati words), ändert es sich, aber es erscheint wie "???". Zeigt nicht das Gujarati-Wort, sondern nur Fragezeichen? Weitere Hilfe? Bitte.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Shailesh, stehe vor dem gleichen Problem. Hast du eine Lösung dafür gefunden. Ich versuche auch herauszufinden, wie ich von Chinesisch auf Englisch wechseln kann.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
So finden und wählen Sie mehrere Wörter gleichzeitig aus
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Nachdem Sie den Code ausgeführt haben, wird ein Kutools for Excel-Dialogfeld angezeigt. Geben Sie die Schlüsselwörter ein, die Sie finden, und trennen Sie sie durch Kommas.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, wie kann dieses Makro überarbeitet werden, um mehr Schlüsselwörter aufzunehmen? Ich habe ungefähr 170 Wörter, die ich gerne finden und ersetzen möchte
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo JM,
Nachdem Sie den Code ausgeführt haben, wird ein Kutools for Excel-Dialogfeld angezeigt. Geben Sie die Schlüsselwörter ein, die Sie finden, und trennen Sie sie durch Kommas.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hi! Zunächst herzlichen Glückwunsch zu Ihrer Arbeit: Dieses Makro ist sehr nützlich und interessant! Ich möchte trotzdem, dass du mir bei einer Sache hilfst. Ich bin Korrektor und möchte, dass die Ersetzungen in grüner oder roter Farbe hervorgehoben werden. Wie kann ich das machen? Gibt es eine Codezeile, die ich verwenden könnte?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, die Batch Find and Replace-Funktion von Kutools for Word kann Ihr Problem perfekt lösen, Sie können es versuchen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Nachdem Sie auf Ersetzen geklickt haben, geht es nur zur Vorschau und macht nichts weiter.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Ajs, alle erforderlichen Wörter wurden sofort erfolgreich ersetzt, nachdem Sie auf die Schaltfläche Ersetzen geklickt haben. Es geht zur Registerkarte Vorschau, damit Sie wissen, wie viele Wörter erfolgreich ersetzt wurden. Schließen Sie danach das Dialogfeld.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ist, wenn ich versuche, Kommas zu ersetzen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Der VBA-Code kann nicht helfen, Kommas zu ersetzen. Sie können Kutools anwenden, um dies zu erreichen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
In der ersten Anweisung (Mehrere Wörter gleichzeitig in Word suchen und ersetzen mit VBA-Code) findet es keine Fälle, in denen das zu ersetzende Wort mitten in einem Wort steht (z. B. .com nach einem Website-Namen). . Kann man das dahingehend umbauen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für das Projekt, könntest du es so machen, dass wir auch Buchstaben in Wörtern ersetzen können. Wenn ich zum Beispiel Dollar in DoLLar ändern möchte, funktioniert es nicht.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Chào bạn, có cách nào thế rất nhiều cụm từ bằng rất nhiều cụm từ khác (nhập từng cụm từ rất mất thời gian bằng cát l ập một Datei trug đau 2 cau cụm từ đích được không? rất cám ơn bạn.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Nguyễn Phúc Lâm,
Ich empfehle Ihnen, die Batch Find and Replace-Funktion von Kutools for Word (die zweite Methode in diesem Beitrag) anzuwenden, um dieses Problem zu lösen.
Nachdem Sie die beiden benötigten Spalten erstellt haben, können Sie im Dialogfeld „Suchen und Ersetzen“ die aktuellen Einstellungen als Szenario für die zukünftige Verwendung speichern.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Cám ơn kristall, cách này có thể áp dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơn 10000. Vậy có cach nào khác không bạn? Cám ơn bạn đã trả lời
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Nguyễn Phúc Lâm,
Dieses Problem kann vorübergehend nicht mit VBA-Code behandelt werden, da es etwas komplex ist. Diese Funktion wird für ein Upgrade in der nächsten Version in Betracht gezogen. Entschuldigung für die Unannehmlichkeiten.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte