Classe HeadersFooters (Word VBA)

Collection d’objets HeaderFooter qui contient les en-têtes et les pieds de page de la section spécifiée d’un document. Pour utiliser une variable de classe HeadersFooters, elle doit d'abord être instanciée, par exemple

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

Count

Renvoie un type long qui représente le nombre d'en-têtes et/ou de pieds de page dans la collection.

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

Item

Renvoie un objet HeaderFooter qui représente un en-tête ou un pied de page dans une plage ou une section.

Item (Index)

Index: Constante qui spécifie l'en-tête ou le pied de page de la plage ou de la section.

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