expression.Count
expression Required. An expression that returns one of the above objects.
Example
This example displays the number of pages in the active document.
Sub CountNumberOfPages()
MsgBox "Your publication contains " & _
ActiveDocument.Pages.Count & " page(s)."
End Sub
This example displays the number of shapes in the active document.
Sub CountNumberOfShapes()
Dim intShapes As Integer
Dim pg As Page
For Each pg In ActiveDocument.Pages
intShapes = intShapes + pg.Shapes.Count
Next
MsgBox "Your publication contains " & intShapes & " shape(s)."
End Sub