Eu estou tentando consertar um cabeçalho de página do Word 2010 contendo campos para nome do arquivo, salvar data e número de página, bem como algum texto entre cada um, assim: filename + "" + salvar data + tab + número da página. No entanto, parece que não consigo colocar as cordas nos lugares certos. O que eu tenho até agora é isto:

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

No entanto, depois de executar o sub, as diferentes partes não são pretendidas. Em vez disso, eles aparecem como nome do arquivo + "" + tab + número da página + salvar data. O que eu estou fazendo errado aqui? Se for de todo possível, prefiro não recorrer a.Select.

(Por favor, note que eu perguntei recentementeuma pergunta semelhante.)