Ver Mensaje Individual
  #2 (permalink)  
Antiguo 06/06/2004, 16:14
Avatar de RsOfT
RsOfT
 
Fecha de Ingreso: marzo-2002
Ubicación: InterNET
Mensajes: 1.121
Antigüedad: 22 años, 2 meses
Puntos: 7
Lo hice de la siguiente manera:
Código:
    Dim i As Integer
    For i = 1 To ThisDocument.Words.Count
        Debug.Print ThisDocument.Words.Item(i).Text & "Pagina: " & ThisDocument.Words.Item(i).Information(wdActiveEndPageNumber)
    Next
:D
__________________
.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pésimo gusto contentarse con algo mediocre cuando lo excelente está a nuestro alcance--