Pages Property [Publisher 2003 VBA Language Reference]

Pages property as it applies to the Document object.

Returns a Pages collection representing all the pages in the specified publication.

expression.Pages

expression Required. An expression that returns one of the above objects.

Pages property as it applies to the ReaderSpread object.

Returns a Page object representing one of the pages that comprise the specified reader spread.

expression.Pages(Index)

expression Required. An expression that returns one of the above objects.

Index  Required Long. The page from the reader spread to return. Can be either 1 or 2.

Remarks

A reader spread will consist of only one or two pages, hence the valid values for the Index argument.

Example

As it applies to the 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

As it applies to the ReaderSpread object.

The following example checks the reader spread of the fifth page in the active publication to see if it contains more than one page. If it does, the example reports the page number of the second page in the spread.

Dim pageTemp As Page

With ActiveDocument.Pages(5).ReaderSpread
    If .PageCount > 1 Then
        Set pageTemp = .Pages(Index:=2)
        MsgBox "The page number of the second page " _
            & "in the spread is " & pageTemp.PageNumber
    Else
        MsgBox "The spread has only one page."
    End If
End With

Applies to | Document Object | ReaderSpread Object