Compartilhar via

Propriedade Page.PageNumber (Publisher)

  • Artigo

Retorna uma cadeia de caracteres que representa o número da página atual. Somente leitura.

Sintaxe

expressão. Pagenumber

Expressão Uma variável que representa um objeto Page .

Valor de retorno

Cadeia de caracteres

Exemplo

Este exemplo cria uma caixa de texto, obtém o número de página atual e a insere com novo texto em uma nova forma.

Sub GetPageNumber() 
 Dim strPageNumber As String 
 With ActiveDocument.Pages(1) 
 strPageNumber = .PageNumber 
 .Shapes.AddTextbox(Orientation:=pbTextOrientationHorizontal, _ 
 Left:=100, Top:=100, Width:=100, Height:=100) _ 
 .TextFrame.TextRange.InsertAfter NewText:="This is page " _ 
 & strPageNumber & " of " & .Parent.Count & "." 
 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.