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

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

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)

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