Próbuję naprawić nagłówek strony programu Word 2010 zawierający pola nazwy pliku, zapisać datę i numer strony, a także tekst między nimi, tak jak: nazwa_pliku + „” + zapisz datę + zakładka + numer strony. Jednak nie wydaje mi się, żeby sznurki były w odpowiednich miejscach. Do tej pory mam to:

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

Jednak po wykonaniu sub, różne części nie były zamierzone. Zamiast tego są wyświetlane jako nazwa pliku + „” + karta + numer strony + data zapisu. Co ja tu robię źle? Jeśli to w ogóle możliwe, wolałbym nie uciekać.Select.

(Proszę zauważyć, że niedawno zapytałempodobne pytanie.)