Adjustments.Count Property (Publisher)
Returns a Long that represents the number of items in the specified collection.
Syntax
expression .Count
expression A variable that represents an Adjustments object.
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