Método PageNumbers.Add (Word)

Retorna um objeto PageNumber que representa os números de páginas adicionadas a um cabeçalho ou note de rodapé em uma sessão .

Sintaxe

expressão. Adicionar (PageNumberAlignment, FirstPage)

expressão Obrigatório. Uma variável que representa um objeto PageNumbers .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
PageNumberAlignment	Opcional	Variantes	Pode ser qualquer constante WdPageNumberAlignmentWdPageNumberAlignment.
FirstPage	Opcional	Variantes	False para tornar o cabeçalho e o rodapé da primeira página diferentes dos cabeçalhos e rodapés de todas as páginas subsequentes no documento. Se FirstPage estiver definido como False, não será adicionado um número de página à primeira página. Se esse argumento for omitido, a definição será controlada pela propriedade DifferentFirstPageHeaderFooter.

Comentários

Se a propriedade LinkToPrevious do objeto HeaderFooter estiver definida como True, os números de página continuarão em sequência de uma seção para a seção seguinte ao longo do documento.

Exemplo

Este exemplo adiciona um número de página ao rodapé principal da primeira seção no documento ativo.

With ActiveDocument.Sections(1) 
 .Footers(wdHeaderFooterPrimary).PageNumbers.Add _ 
 PageNumberAlignment:=wdAlignPageNumberLeft, _ 
 FirstPage:=True 
End With

Este exemplo cria e formata números de página no cabeçalho do documento ativo.

Set myPgNum = ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary) _ 
 .PageNumbers.Add(PageNumberAlignment:= _ 
 wdAlignPageNumberCenter, FirstPage:= True) 
myPgNum.Select 
With Selection.Range 
 .Italic = True 
 .Bold = True 
End With

Confira também

Objeto da coleção PageNumbers

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.