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.
Devolve um objeto TextRange que representa um campo de número de página numa publicação.
Sintaxe
expressão. InsertPageNumber (Tipo)
expressão Uma variável que representa um objeto TextRange .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Type | Opcional | PbPageNumberType | Especifica se o número de página é o número da página atual ou da página anterior ou seguinte de uma caixa de texto vinculada. Pode ser uma das constantes PbPageNumberType . |
Valor de retorno
TextRange
Exemplo
Este exemplo insere um campo de número de página em uma forma na página mestra de forma que o número de página atual é exibido na parte superior de cada página.
Sub PageNumberShape()
With ActiveDocument.MasterPages(1).Shapes _
.AddShape(Type:=msoShape5pointStar, Left:=36, _
Top:=36, Width:=50, Height:=50)
With .TextFrame.TextRange
.InsertPageNumber
.ParagraphFormat.Alignment = pbParagraphAlignmentCenter
End With
.Fill.ForeColor.RGB = RGB(Red:=125, Green:=125, Blue:=255)
End With
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.