RE:Word: Número de Página
Publicado por Mauricio Baeza (262 intervenciones) el 18/12/2004 01:49:11
La siguiente macro hace lo que quieres:
Option Explicit
Public Sub NumeroPaginas()
Dim doc As Document
Dim pag As Integer
Set doc = ActiveDocument
pag = doc.ComputeStatistics(wdStatisticPages)
MsgBox "El documento tiene " & Val(pag) & " pagina(s)"
Set doc = Nothing
End Sub
Mauricio
Option Explicit
Public Sub NumeroPaginas()
Dim doc As Document
Dim pag As Integer
Set doc = ActiveDocument
pag = doc.ComputeStatistics(wdStatisticPages)
MsgBox "El documento tiene " & Val(pag) & " pagina(s)"
Set doc = Nothing
End Sub
Mauricio
Valora esta pregunta
0