Visual Basic para Aplicaciones - NUMERO DE PAGINA EN WORD

Option Explicit

Public Sub NumeroPaginas()

    Dim doc As Document

    Dim pag_Act As Integer

    Dim pag_Tot As Integer

    Dim rango As Range

    Set doc = ActiveDocument

    Set rango = ActiveDocument.Range(0, Selection.End)

    pag_Act = rango.ComputeStatistics(wdStatisticPages)

    pag_Tot = doc.ComputeStatistics(wdStatisticPages)

    MsgBox "Esta en la página " & Val(pag_Act) & " de " & Val(pag_Tot) & " pagina(s)"

    Set doc = Nothing

End Sub