Método TextRange.InsertPageNumber (Publisher)

Artigo
04/07/2023

Retorna um objeto TextRange que representa um campo de número de página em uma 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.

Compartilhar via