Hallo,

ich schreibe aktuell ein VBA Makro, welches mir in einem Word Dokument die in zahlreichen Textfeldern befüllten Wörter austauschen soll mir den entsprechenden Platzhaltern im Dokument.

Im Word Dokuement steht z.B. Platzhalter_1 und dieser soll durch den in Textbox 1 eingetragenen Wert getauscht werden.
Das funktioniert mit dem folgenden Makro (auf eine Textbox verkürzt) auch sehr gut:

Private Sub CommandButton1_Click()

Dim T1 As Variant

With ThisDocument
    T1 = .TextBox1

With Selection.Find
        .ClearFormatting
        .Text = "Platzhalter 1"
        .Replacement.ClearFormatting
        .Replacement.Text = T2
        .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With

End With

End Sub

Leider funktioniert das für Platzhalter die in der Kopfzeile nicht. Wie muss ich den Befehl für die Kopfzeile anpassen?

VG
Alex