Buenas tardes, necesito incluir un número de página en el pie de página de un documento Word 2010, de manera automática mediante VBA.
Utilicé el grabador de macros y la guardé. El documento quedó con el número de página, pero lo cierro sin guardar ese cambio. Ejecuto la macro sobre ese mismo documento, pero Word me indica: "Se ha producido el error '5941' en tiempo de ejecución:
El elemento del conjunto solicitado no existe."
El código producido es este:
Sub Macro1()
'
' Insertar número de página
'
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 = wdSeekCurrentPageFooter
Application.Templates( _
"C:\Users\Julio\AppData\Roaming\Microsoft\Document Building Blocks\3082\15\Built-In Building Blocks.dotx" _
).BuildingBlockEntries("Número sin formato 1").Insert Where:=Selection. _
Range, RichText:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveWindow.Close
End Sub
Agradezco la ayuda que me puedan brindar para ajustar la macro u obtener otra que funcione.
Saludos.