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:
Ver originalIf 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).