Suchen und Ersetzen Texte im Word-Haupttext, in Kopf- und Fußzeilen

Normalerweise hilft Ihnen die Funktion „Suchen und Ersetzen“, einen bestimmten Text gleichzeitig im Haupttext, in der Kopf- und in der Fußzeile eines Word-Dokuments zu suchen und zu ersetzen. Haben Sie schon einmal versucht, Texte ausschließlich in den Kopf- und Fußzeilen eines Word-Dokuments zu suchen und zu ersetzen? Oder möchten Sie mehrere verschiedene Texte gleichzeitig innerhalb eines einzelnen Word-Dokuments oder sogar über mehrere Dokumente hinweg suchen und ersetzen? In diesem Tutorial erfahren Sie, wie das gelingt.

Suchen und Ersetzen denselben Text in einem Word-Dokument mithilfe der Suchen und Ersetzen-Funktion
Suchen und Ersetzen denselben Text nur im Kopf- und Fußzeilenbereich mithilfe eines VBA-Codes
Suchen und Ersetzen verschiedene Texte gleichzeitig mithilfe einer leistungsstarken Funktion

---

Suchen und Ersetzen denselben Text in einem Word-Dokument mithilfe der Suchen und Ersetzen-Funktion

Die Suchen-und-Ersetzen-Funktion in einem Word-Dokument ist kinderleicht.

1. Öffnen Sie das Dokument, das die zu ersetzenden Wörter enthält, und drücken Sie gleichzeitig die Tasten Strg+H, um das Dialogfeld Suchen und Ersetzen zu öffnen.

2. Geben Sie im Dialogfeld Suchen und Ersetzen unter der Registerkarte Ersetzen den alten Text und den neuen Text jeweils in die Felder Suchen nach und Ersetzen durch ein, und klicken Sie anschließend auf die Schaltfläche Alle ersetzen. Siehe Screenshot:

Hinweis: Klicken Sie auf die Schaltfläche Weitere Optionen, um weitere Suchoptionen nach Bedarf festzulegen.

3. Anschließend wird ein Dialogfeld angezeigt, das zeigt, wie viele Ersetzungen durchgeführt wurden. Klicken Sie auf OK, um den Vorgang abzuschließen.

---

Suchen und Ersetzen denselben Text nur im Kopf- und Fußzeilenbereich mithilfe des VBA-Codes

Wenn Sie Texte ausschließlich in der Kopf- und Fußzeile eines Dokuments suchen und ersetzen möchten, hilft Ihnen die Methode in diesem Abschnitt weiter.

1. Öffnen Sie das Dokument, in dessen Kopf- und Fußzeile Sie Texte suchen und ersetzen möchten, und drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und fügen Sie anschließend den folgenden VBA-Code in das Modulfenster ein.

VBA-Code: Suchen und Ersetzen Text nur in Kopf- und Fußzeile

Sub FindAndReplaceOfHeaderAndFooter()
'Update by Extendoffice 20190805
    Dim xDoc As Document
    Dim xSelection As Selection
    Dim xSec As Section
    Dim xHeader As HeaderFooter
Dim xFooter As HeaderFooter
On Error Resume Next
    Set xDoc = Application.ActiveDocument
    For Each xSec In xDoc.Sections
        For Each xHeader In xSec.Headers
            xHeader.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found header text" 'Enter the old header text here!
               .Replacement.Text = "I've found header text" 'Enter the new header text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xHeader
        For Each xFooter In xSec.Footers
            xFooter.Range.Select
            Set xSelection = xDoc.Application.Selection
            With xSelection.Find
                .Text = "I've found footer text" 'Enter the old footer text here!
                .Replacement.Text = "I've found footer text" 'Enter the old footer text here!
                .Wrap = wdFindContinue
                .Execute Replace:=wdReplaceAll
            End With
        Next xFooter
    Next xSec
    xDoc.ActiveWindow.ActivePane.Close
    If xDoc.ActiveWindow.View.SplitSpecial = wdPaneNone Then
        xDoc.ActiveWindow.View.Type = wdPrintView
    Else
        xDoc.ActiveWindow.View.Type = wdPrintView
    End If
    xDoc.Activate
End Sub

Hinweis: Ersetzen Sie im Code „Find header text“ und „Find footer text“ durch die Texte, nach denen Sie in Kopf- und Fußzeile suchen möchten. Ersetzen Sie außerdem „I’ve found header text“ und „I’ve found footer text“ durch den gewünschten neuen Text für Kopf- bzw. Fußzeile.

3. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend werden die angegebenen Texte in Kopf- und Fußzeile durch „Neuer Text“ ersetzt.

---

Suchen und Ersetzen verschiedene Texte gleichzeitig mithilfe einer leistungsstarken Funktion

1. Starten Sie die Anwendung Microsoft Word und klicken Sie auf KUTOOLS PLUS > Stapelweise Suchen und Ersetzen.

2. Führen Sie im Fenster Stapelweise Suchen und Ersetzen die folgenden Schritte aus.

• 2,1 Klicken Sie auf die Schaltfläche Datei hinzufügen oder Ordner hinzufügen, um die Dokumente auszuwählen, in denen Sie Text suchen und ersetzen möchten.
  
• 2,2 Klicken Sie auf die Schaltfläche Zeile hinzufügen, um Suchen-und-Ersetzen-Felder einzufügen. Wenn Sie drei verschiedene Texte gleichzeitig suchen und ersetzen möchten, erstellen Sie bitte drei Zeilen.
• 2,3 Geben Sie in jeder Zeile den vorhandenen Text, den Sie durch einen neuen ersetzen möchten, in die Spalte Suchen ein und tragen Sie anschließend den neuen Text in die Spalte Ersetzen ein.
• 2,4 Geben Sie für jede Zeile den Suchtyp an.
• 2,5 Wählen Sie in der Spalte Suchen in aus, wo die Funktion „Suchen und Ersetzen“ angewendet werden soll. In diesem Abschnitt stehen Ihnen die Optionen Hauptdokument, Kopfzeile und Fußzeile zur Verfügung. Je nach Bedarf können Sie eine, zwei oder alle drei Optionen auswählen.
• 2,6. Klicken Sie auf die Schaltfläche Ersetzen, um den Vorgang zu starten. Siehe Screenshot:

Anschließend werden alle angegebenen Texte in den ausgewählten Dokumenten ersetzt.

Tipp: Heben Sie das Ergebnis hervor, indem Sie in der Spalte „Hervorheben“ für eine Zeile eine bestimmte Farbe festlegen.

---

Verwandte Artikel