Método Pages.FindByPageID (Publisher)

Retorna um objeto Page que representa a página com o número de identificação da página especificada. Cada página automaticamente é atribuída a um número de identificação exclusivo quando ele é criado. Use a propriedade PageID para retornar o número de identificação de uma página.

Sintaxe

expressão. FindByPageID (PageID)

Expressão Uma variável que representa um objeto Pages .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
PageID	Obrigatório	Long	Especifica o número de ID da página que você deseja retornar. O Publisher atribui este número quando a página é criada.

Valor de retorno

Page

Comentários

Ao contrário da propriedade PageIndex, a propriedade PageID de um objeto Page não alterará quando você adicionar páginas ou reorganiza páginas na publicação. Portanto, usando o método FindByPageID com o número de identificação de página pode ser uma maneira mais confiável para retornar um objeto Page específico de uma coleção de páginas que usar o método Item com o número de índice da página.

Exemplo

Este exemplo demonstra como recuperar o número de ID exclusivo de um objeto Page e, em seguida, usar esse número para retornar o objeto Page da coleção Pages e adicionar uma nova forma à página.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.