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