Macro para cambiar encabezado de Word desde Excel

Creo que por aquí alguien me puede ayudar. Tengo una macro para que de acuerdo con cambios de texto que realice en un archivo Excel, estos se vean reflejados en un archivo plantilla de Word. Son 25 bloques de texto (dos de ellos ubicados en el encabezado de Word). Todo va bien, pero en lo dos bloques de texto ubicados en el encabezado del Word no funciona el código (no actualiza su contenido). He buscado la solución pero no la he encontrado. Va el código a ver si me pueden ayudar. De antemano gracias.

Sub ExportWord()
    '
    patharch = ThisWorkbook.Path & "\_Res_NEGACION2020(vr.1)C.dotx"
    '
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        Set objWord = CreateObject("Word.Application")
        objWord.Visible = True
        objWord.Documents.Add Template:=patharch, NewTemplate:=False, DocumentType:=0
        '
        For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
            textobuscar = Cells(1, j)
            objWord.Selection.Move 6, -1
            objWord.Selection.Find.Execute FindText:=textobuscar
            '
            While objWord.Selection.Find.Found = True
                objWord.Selection.Text = Cells(i, j) 'texto a reemplazar
                objWord.Selection.Move 6, -1
                objWord.Selection.Find.Execute FindText:=textobuscar
            Wend
            '
        Next
        '
        MsgBox "Resolución elaborada correctamente"
        objWord.Activate
        objWord.ActiveDocument.SaveAs "C:\Users\Asus-PC\Desktop\Res_NegacionC\RES_" & Hoja6.Range("A2") & "_" & Hoja6.Range("W3") & ".docx"
        End
    Next
End Sub