Estoy tratando de arreglar un encabezado de página de Word 2010 que contiene campos para el nombre de archivo, la fecha de guardado y el número de página, así como un poco de texto entre cada uno, así: nombre de archivo + "" + fecha de guardado + pestaña + número de página. Sin embargo, parece que no puedo poner las cuerdas en sus lugares correctos. Lo que tengo hasta ahora es esto:

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

Sin embargo, después de ejecutar el sub, las diferentes partes no son lo que pretendía. En su lugar, se muestran como nombre de archivo + "" + pestaña + número de página + fecha de guardado. ¿Qué estoy haciendo mal aquí? Si es posible, preferiría no recurrir a.Select.

(Tenga en cuenta que recientemente preguntéuna pregunta similar.)