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
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.