Ich versuche, einen Word 2010-Seitenkopf zu reparieren, der Felder für Dateinamen, Speicherdatum und Seitennummer sowie Text dazwischen enthält, z. B .: Dateiname + "" + Speicherdatum + Tabulator + Seitennummer. Ich kann jedoch nicht scheinen, die Saiten an ihren richtigen Stellen zu bekommen. Was ich bisher habe, ist Folgendes:

Sub CreateHeader()
    Dim myRange As Range
    With ActiveDocument
        Set myRange = .Sections(1).Headers(wdHeaderFooterPrimary).Range
        .Fields.Add Range:=myRange, Type:=wdFieldFileName, PreserveFormatting:=True
        myRange.Collapse wdCollapseEnd
        myRange.InsertAfter (" ")
        myRange.Collapse wdCollapseEnd
        .Fields.Add Range:=myRange, Type:=wdFieldSaveDate, Text:="\@ YYYY-MM-DD", PreserveFormatting:=True
        myRange.InsertAfter (Chr(9))
        myRange.Collapse wdCollapseEnd
        .Fields.Add Range:=myRange, Type:=wdFieldPage, PreserveFormatting:=True
    End With
End Sub

Nach dem Ausführen des Unterprogramms sind die verschiedenen Teile jedoch nicht so, wie ich es beabsichtigt habe. Stattdessen werden sie als Dateiname + "" + Tab + Seitenzahl + Speicherdatum angezeigt. Was mache ich hier falsch? Wenn es überhaupt möglich ist, würde ich es vorziehen, nicht darauf zurückzugreifen.Select.

(Bitte beachte, dass ich kürzlich gefragt habeeine ähnliche Frage.)