Compartilhar via


Objeto Page (Publicador)

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

Comentários

Use Páginas (índice) para retornar um único objeto Page .

Use a propriedade FindByPageID do objeto Pages para localizar um objeto Page usando a ID da página atribuída pelo aplicativo.

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 a seguir adiciona uma nova página à publicação ativa e procura essa página usando a 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.