none
Insertar número de página en un pie de página mediante VBA RRS feed

  • Pregunta

  • 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.

    domingo, 7 de agosto de 2016 16:50