Hallo

Wenn ich in Word Suchen - Ersetzen - Alles Ersetzen durchführe, dann macht Word das im ganzen Dokument (in meinem Fall inkl. Kopfzeilen). Wenn ich diesen Vorgang mit dem Makrorecorder aufzeichne und dann das Makro ausführe, dann werden in der Kopfzeile keine Ersetzungen vorgenommen. Kann ich mit einem einfachen VBA-Befehl dafür sorgen, dass der Vorgang im ganzen Dokument durchgeführt wird? Mir ist klar, dass man mit For-Next oder ähnlich alle Sections, Headers usw. durchlaufen kann, aber das dauert viel länger. Kann man nicht einfach festlegen, dass die Ersetzungen überall vorgenommen werden?

Hier der ganz simple Code des Makrorecorders:

Sub DivisErsetzen1()
'
' DivisErsetzen1 Makro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " - "
        .Replacement.Text = " – "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub