Actualizar Header y Footer automáticamente

[Juanosch]

Buenas a todos!

Acudo a ustedes porque tengo un problema a la hora de actualizar unos campos insertos en el encabezado y pie de página.

Al grabar la macro paso por paso, el código que me devuelve es el siguiente:

Código Microsoft Visual Basic:

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Fields.Update
    Selection.MoveRight Unit:=wdCharacter, Count:=12
    Selection.Fields.Update
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
 

Ahora, cuando intento disparar esta macro vinculándola a un LostFocus de un TextBox, me arroja error en el último string.

Saben a qué se puede deber o cómo puedo solucionarlo?

Muchas gracias y disculpas si cometí algún error (es mi primer post).