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:

Die 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!

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

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

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!




Empfohlene Word-Produktivitätswerkzeuge

Kutools für Word - Mehr als 100 Erweiterte Funktionen Sparen Sie für Microsoft Word 50% Zeit

  • Komplizierte und wiederholte Operationen können in Sekundenschnelle einmalig ausgeführt werden.
  • Fügen Sie mehrere Bilder in verschiedenen Ordnern gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zusammen und kombinieren Sie sie in der gewünschten Reihenfolge.
  • Teilen Sie das aktuelle Dokument gemäß Überschrift 1, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, Sammlung von Tools für die gemeinsame Konvertierung und Auswahl, und so weiter...
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.
    DaveW · 2 years ago
    Thanks so much for posting this, absolute lifesaver!

    I notice that there is a line "MatchWildcards = False", which implies that it's possible to use wildcards in the search text - is that possible and, if so, what's the protocol?

    Thanks again!
  • To post as a guest, your comment is unpublished.
    Paul Oz · 2 years ago
    Hi all,
    I am new to the whole VBA thing and I Love love love this code!
    I have 5000+ docs to review and if this works it will save heaps of time!
    I have the code above running however i can see that it does not cater for replacing text in footers, Only headers and the body of the doc.
    Can anyone assist in extending this to the entire document.
    P.S. not sure if this is relevant but the list of words that i need to replace is the same for headers, footers and the body...
    Any help would really be appreciated!
    • To post as a guest, your comment is unpublished.
      blue_crayon · 1 years ago
      You can edit the footer by using almost identical code that the header uses. Copy everything from "Begin Header Updates" to "End Header Updates" and paste it directly after.

      Then, in this pasted section, find the word "wdSeekCurrentPageHeader" and change it to "wdSeekCurrentPageFooter".
  • To post as a guest, your comment is unpublished.
    Terence · 2 years ago
    Out of interest what does the line: Application.Run macroname:="NEW MACROS" do?
    The rest of the code makes sense to me (used to VBA in Excel) but I can't figure out why you need to execute another piece of code here.
    Thanks for the great tool though.
  • To post as a guest, your comment is unpublished.
    Mike · 2 years ago
    This macro was amazing..is there any code to update multiple excel files,spss files.also is there is any macro to update the header and footer on multiple word documents .

    Any help is appreciated .thanks !
  • To post as a guest, your comment is unpublished.
    Tracy · 2 years ago
    Just brilliant, saved me lots of time, thank you