Objeto de página (Publisher)

Representa uma página em uma publicação. Coleção Pages contém todos os objetos Page em uma publicação.

Comentários

Utilize Páginas (índice) para devolver um único objeto Página .

Utilize a propriedade FindByPageID do objeto Pages para localizar um objeto Página com o ID de página atribuído à aplicação.

Use a Adicionar método para criar uma nova página e adicioná-lo à publicação.

Exemplo

O exemplo seguinte adiciona novo texto à primeira forma na primeira página da publicação ativa.

Sub AddPageNumberField() 
 With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange 
 .InsertAfter " This text is added after the existing text." 
 .Font.Size = 15 
 End With 
End Sub

O exemplo seguinte adiciona uma nova página à publicação ativa e, em seguida, procura essa página com o ID da 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

Métodos

Propriedades

Confira também

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.