Objeto HeadersFooters (Word)

Uma coleção de HeaderFooter objetos que representam os cabeçalhos ou rodapés da seção especificada de um documento.

Comentários

Use a propriedade cabeçalhos ou rodapés para retornar a coleção HeadersFooters. O exemplo a seguir exibe o texto do rodapé principal da primeira seção do documento ativo.

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) 
 If .Range.Text <> vbCr Then 
 MsgBox .Range.Text 
 Else 
 MsgBox "Footer is empty" 
 End If 
End With

Observação

[!OBSERVAçãO] Você não pode adicionar objetos HeaderFooter à coleção HeadersFooters.

Use Cabeçalhos (Índice) ou Rodapés (Index), onde o índice é uma das constantes WdHeaderFooterIndex (wdHeaderFooterEvenPages, wdHeaderFooterFirstPage ou wdHeaderFooterPrimary), para retornar um único objeto HeaderFooter . O exemplo a seguir altera o texto do cabeçalho principal e o rodapé principal da primeira seção do documento ativo.

With ActiveDocument.Sections(1) 
 .Headers(wdHeaderFooterPrimary).Range.Text = "Header text" 
 .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text" 
End With

Você também pode retornar um único objeto HeaderFooter usando a HeaderFooter propriedade com um objeto Selection.

Use o DifferentFirstPageHeaderFooter propriedade com o objeto PageSetup para especificar uma primeira página diferente. O exemplo seguinte insere texto no rodapé da primeira página do documento ativo.

With ActiveDocument 
 .PageSetup.DifferentFirstPageHeaderFooter = True 
 .Sections(1).Footers(wdHeaderFooterFirstPage) _ 
 .Range.InsertBefore _ 
 "Written by Kate Edson" 
End With

Usar o OddAndEvenPagesHeaderFooter propriedade com o objeto PageSetup para especificar outra página páginas ímpares e pares de cabeçalhos e rodapés. Quando a propriedade OddAndEvenPagesHeaderFooter é verdadeira, você pode retornar um cabeçalho ou rodapé ímpar usando wdHeaderFooterPrimary e é possível retornar um cabeçalho ou rodapé usando wdHeaderFooterEvenPages.

Use a Adicionar método com o objeto PageNumbers adicionem um número de página a um cabeçalho ou rodapé. O exemplo a seguir adiciona números de página ao rodapé da primeira página da primeira seção do documento ativo.

With ActiveDocument.Sections(1) 
 .PageSetup.DifferentFirstPageHeaderFooter = True 
 .Footers(wdHeaderFooterPrimary).PageNumbers.Add _ 
 FirstPage:=True 
End With

Confira também

Referência do modelo de objeto do Word

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.