Classe HeaderFooter (Word VBA)

La classe HeaderFooter représente un en-tête ou un pied de page donné.

Set

Pour utiliser une variable de classe HeaderFooter, elle doit d'abord être instanciée, par exemple

Dim hfr as HeaderFooter
Set hfr = Selection.HeaderFooter

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe HeaderFooter : HeadersFooters.Item, Selection.HeaderFooter, Section.Footers et Section.Headers

For Each

Voici un exemple de traitement des éléments HeaderFooter dans une collection

Dim hfrFooter As HeaderFooter
For Each hfrFooter In Footers
	
Next hfrFooter

Propriétés

Exists True si l'objet HeaderFooter spécifié existe.

Selection.HeaderFooter.Exists = True

Index Renvoie une WdHeaderFooterIndex qui représente l'en-tête ou le pied de page spécifié dans un document ou une section.

Dim whfIndex As WdHeaderFooterIndex
whfIndex = Selection.HeaderFooter.Index

IsEmpty

Dim booIsEmpty As Boolean
booIsEmpty = Selection.HeaderFooter.IsEmpty

IsHeader True si l'objet HeaderFooter spécifié est un en-tête.

Dim booIsHeader As Boolean
booIsHeader = Selection.HeaderFooter.IsHeader

LinkToPrevious True si l'en-tête ou le pied de page spécifié est lié à l'en-tête ou au pied de page correspondant de la section précédente.

Selection.HeaderFooter.LinkToPrevious = True

PageNumbers Renvoie une collection PageNumbers qui représente tous les champs de numéro de page inclus dans l’en-tête ou le pied de page spécifié.

Dim pnsPageNumbers As PageNumbers
Set pnsPageNumbers = Selection.HeaderFooter.PageNumbers

Parent Renvoie un Object qui représente l'objet parent de l'objet HeaderFooter spécifié.

Dim objParent As Object
Set objParent = Selection.HeaderFooter.Parent

Range Renvoie un objet Range qui représente la partie d'un document contenue dans l'en-tête ou le pied de page spécifié.

Dim rngRange As Range
Set rngRange = Selection.HeaderFooter.Range

Shapes Renvoie une collection Shapes qui représente tous les objets Shape d’un en-tête ou d’un pied de page.

Dim shpsShapes As Shapes
Set shpsShapes = Selection.HeaderFooter.Shapes

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

HeadersFooters.Parent Renvoie un type de données Object qui représente l'objet parent de l'objet HeadersFooters spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.Range.Sections(1).Headers.Parent