FindByPageID Method

Microsoft Publisher Visual Basic

object that represents the page with the specified page ID number. Each page is automatically assigned a unique ID number when it's created. Use the PageID property to return a page's ID number.

expression.FindByPageID(PageID)

expression    Required. An expression that returns a Pages collection.

PageID   Required Long. Specifies the ID number of the page you want to return. Publisher assigns this number when the page is created.

Remarks

Unlike the PageIndex property, the PageID property of a Page object won't change when you add pages to or rearrange pages in the publication. Therefore, using the FindByPageID method with the page ID number can be a more reliable way to return a specific Page object from a Pages collection than using the Item method with the page's index number.

Example

This example demonstrates how to retrieve the unique ID number for a Page object and then use this number to return that Page object from the Pages collection and add a new shape to the page.

Sub FindPage()
    Dim lngPageID As Long

    'Get page ID
    lngPageID = ActiveDocument.Pages.Add(Count:=1, After:=1).PageID

    'Use page ID to add a new shape to the page
    ActiveDocument.Pages.FindByPageID(PageID:=lngPageID) _
        .Shapes.AddShape Type:=msoShape5pointStar, _
        Left:=200, Top:=72, Width:=50, Height:=50

End Sub