Вставка текста и полей в заголовок Word 2010 без использования .Select

Я пытаюсь исправить заголовок страницы Word 2010, содержащий поля для имени файла, даты сохранения и номера страницы, а также текст между ними, например так: имя файла + "" + дата сохранения + вкладка + номер страницы. Тем не менее, я не могу получить строки на своих местах. То, что у меня так далеко, это:

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

Тем не менее, после выполнения саба, разные части не были, где я намерен. Вместо этого они отображаются как имя файла + "" + вкладка + номер страницы + дата сохранения. Что я здесь не так делаю? Если это вообще возможно, я бы предпочел не прибегать к.Select.

(Обратите внимание, что я недавно спросилпохожий вопрос.)

Ответы на вопрос(1)

Ваш ответ на вопрос