Visual Basic para Aplicaciones - RE:Word: Número de Página

Life is soft - evento anual de software empresarial
 
Vista:

RE:Word: Número de Página

Publicado por Mauricio Baeza (262 intervenciones) el 18/12/2004 01:49:15
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder