Document.Pages Property (Publisher)
Returns a Pages collection representing all the pages in the specified publication.
expression A variable that represents a Document object.
The following example returns the Pages collection of the active publication and reports how many pages there are.
Dim pgsTemp As Pages Set pgsTemp = ActiveDocument.Pages With pgsTemp MsgBox "There are " &; .Count _ &; " page(s) in the active publication." End With