Classe HeadersFooters (Word VBA)

Uma coleção de objetos HeaderFooter que representa os cabeçalhos ou rodapés na seção especificada de um documento. Para usar uma variável de classe HeadersFooters, ela primeiro precisa ser instanciada por exemplo

Dim hfs as HeadersFooters
Set hfs = ActiveDocument.Range.Sections(1).Headers

Count

Retorna um Long que representa o número de cabeçalhos e/ou rodapés na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.Range.Sections(1).Headers.Count

Item

Retorna um objeto HeaderFooter que representa um cabeçalho ou rodapé em um intervalo ou seção.

Item (Index)

Index: Uma constante que especifica o cabeçalho ou o rodapé no intervalo ou seção.

Sub HeadFootItem() 
 ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True 
 With ActiveDocument.Sections(1).Headers _ 
 .Item(wdHeaderFooterFirstPage).Range 
 .InsertBefore "Sales Report" 
 With .Font 
 .Bold = True 
 .Size = "15" 
 .Color = wdColorBlue 
 End With 
 .Paragraphs.Alignment = wdAlignParagraphCenter 
 End With 
End Sub