Вставка текста и полей в заголовок 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
(Обратите внимание, что я недавно спросилпохожий вопрос.)