Clase HeadersFooters (Word VBA)

Colección de objetos HeaderFooter que representan los encabezados o pies de página de la sección especificada de un documento. Para usar una variable de clase HeadersFooters, primero debe ser instanciado, por ejemplo

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

Count

Devuelve un Long que representa el número de encabezados y pies de página de la colección.

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

Item

Devuelve un objeto HeaderFooter que representa un encabezado o pie de página de un intervalo o una sección.

Item (Index)

Index: Constante que especifica el encabezado o el pie de página del intervalo o la sección.

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