Option
Explicit
Public
Sub
ShowWordsPerPage()
Dim
objDoc
As
Word.Document
Dim
objPages
As
Word.Pages
Dim
objPage
As
Word.Page
Dim
rngPage
As
Word.Range
Dim
i
As
Long
Set
objDoc = ThisDocument
Set
objPages = objDoc.ActiveWindow.ActivePane.Pages
For
Each
objPage
In
objPages
i = i + 1
If
i < objPages.Count
Then
Set
rngPage = objDoc.Range(objPage.Breaks(1).Range.Start, objPages(i + 1).Breaks(1).Range.Start)
Else
Set
rngPage = objDoc.Range(objPage.Breaks(1).Range.Start)
End
If
Call
MsgBox( _
rngPage.ComputeStatistics(wdStatisticWords) &
" Words"
, _
vbInformation, _
"Page "
& Format$(i,
"00"
) &
"/"
& Format$(objPages.Count,
"00"
))
Next
End
Sub