Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Representa uma página em uma publicação. Coleção Pages contém todos os objetos Page em uma publicação.
Comentários
Use Pages (índice) para retornar um único objeto Page .
Use a propriedade FindByPageID do objeto Pages para localizar um objeto Page usando a ID de página atribuída ao 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
- Application
- Plano de fundo
- Footer
- Header
- Height
- IgnoreMaster
- IsLeading
- IsTrailing
- IsTwoPageMaster
- IsWizardPage
- LayoutGuides
- Mestre
- Nome
- PageID
- PageIndex
- PageNumber
- PageType
- Responsável
- ReaderSpread
- RulerGuides
- Shapes
- Marcas
- WebPageOptions
- Width
- Assistente
- XOffsetWithinReaderSpread
- YOffsetWithinReaderSpread
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.