Cookies helfen uns, unsere Dienstleistungen zu liefern. Durch die Nutzung unserer Dienste stimmen Sie der Verwendung von Cookies.
Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie suchen und ersetzen Sie über mehrere Dateien in Word?

Wenn Sie mehrere Dutzend Word-Dateien haben, die denselben Inhalt enthalten (z. B. Kopf- und Fußzeile, einige spezielle Wörter oder Zahlen), müssen Sie denselben Inhalt in diesen Dokumenten in Word ersetzen. Wie wäre es einfacher für Sie, es schnell zu erledigen? Natürlich können Sie diese Dateien einzeln öffnen, um den gleichen Inhalt zu ersetzen, aber es wird zeitaufwendig und mühsam sein. Dieses Lernprogramm zeigt Ihnen eine knifflige Möglichkeit, denselben Inhalt in mehreren Dokumenten gleichzeitig in Word zu ersetzen.

Suchen und ersetzen Sie Texte über mehrere Word-Dokumente gleichzeitig mit VBA-Code


Kombinieren / Zusammenführen mehrerer Dokumente zu einem einzigen:

Der Dokumente zusammenführen Nutzen von Kutools for Word kann Ihnen helfen, mehrere Dokumente schnell zu einem zu kombinieren. Sie müssen nur:

  • Wählen Sie die Dokumente aus, die Sie zu einem kombinieren möchten.
  • Geben Sie die Pause zwischen den einzelnen Dokumenten an.
  • Starten Sie das Zusammenführen. Siehe Screenshot:

Kutools for Word: mit mehr als 100 handlichen Word-Add-Ins, die Sie in 30-Tagen kostenlos ausprobieren können. Download und kostenlose Testversion Jetzt!

Kutools for Word: Fügen Sie 100 neue erweiterte Funktionen hinzu zu 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Aktivieren Tabbed Editing und Browsing im Office, Genau wie Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Bring Old Look von Office 2003 zurück zu Office 2007, 2010, 2013, 2016 und 2019.

Suchen und ersetzen Sie Texte über mehrere Word-Dokumente gleichzeitig mit VBA-Code

1. Drücken Sie Andere + F11 öffnen Microsoft Visual Basic für Applikationen Fenster.

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

VBA-Code: Suchen und Ersetzen desselben Inhalts in mehreren Dokumenten gleichzeitig

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

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

4. In der Eröffnung blättern Englisch: www.doc-o-matic.com/webhelp/CO_Formular.html Wählen Sie die gewünschten Dokumente aus, wählen Sie sie aus und ersetzen Sie sie durch den Text OK Taste. Siehe Screenshot:

5. In der ersten Kutools for Word Geben Sie in das Dialogfeld den Text ein, den Sie in Dokumenten finden Finden Sie, was und klicken Sie dann auf OK Taste.

6. In dieser Sekunde Kutools for Word Geben Sie den zu ersetzenden Text ein und klicken Sie auf OK Taste.

8. Klicken Sie auf die OK Knopf in der nächsten Microsoft Word Dialogfeld, um das Suchen und Ersetzen abzuschließen.

In diesem Fall werden alle Wörter "Word" in ausgewählten Dokumenten gleichzeitig durch "Excel" ersetzt.


Office Tab - Tabbed Browsing, Bearbeiten und Verwalten mehrerer Dokumente in Word:

Office Tab bringt die Tabbed-Schnittstelle, wie sie in Webbrowsern wie Google Chrome, neuen Internet Explorer-Versionen und Firefox zu Microsoft Word zu sehen ist. Es werden ein zeitsparendes Werkzeug sein und in Ihrer Arbeit nicht zu ersetzen sein. Siehe unten:

Klicken Sie hier für eine kostenlose Testversion von Office Tab!




Kutools for Word

Mehr als 100 Erweiterte Funktionen für Word 2003, 2007, 2010, 2013, 2016 und 2019

Schuss-Kutools-700-225-kte

Weitere Funktionen | Gratis Download | Nur $ 39.00 für Hunderte von Funktionen

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    martinadam · 1 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 2 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 3 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
  • To post as a guest, your comment is unpublished.
    blds · 10 months ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(
  • To post as a guest, your comment is unpublished.
    Kath · 11 months ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !