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