Objet HeadersFooters (Word)

Collection d’objets HeaderFooter qui représentent les en-têtes ou pieds de page dans la section spécifiée d’un document.

Remarques

Pour renvoyer la collection HeadersFooters, utilisez la propriété Headers ou Footers. L’exemple suivant montre comment afficher le texte du premier en-tête contenant la première section du document actif.

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

Remarque

Vous ne pouvez pas ajouter d’objets HeaderFooter à la collection HeadersFooters.

Utilisez Headers (Index) ou Footers (Index), où index est l’une des constantes WdHeaderFooterIndex (wdHeaderFooterEvenPages, wdHeaderFooterFirstPage ou wdHeaderFooterPrimary), pour renvoyer un seul objet HeaderFooter . L'exemple suivant montre comment modifier le texte du premier en-tête et du premier pied de page contenus dans la première section du document actif.

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

Vous pouvez également renvoyer un seul objet HeaderFooter à l’aide de la propriété HeaderFooter avec un objet Selection .

Utilisez la propriété DifferentFirstPageHeaderFooter avec l’objet PageSetup pour spécifier une première page différente. L'exemple suivant montre comment insérer du texte dans le premier pied de page du document actif.

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

Utilisez la propriété OddAndEvenPagesHeaderFooter avec l’objet PageSetup pour spécifier différents en-têtes et pieds de page impairs et pairs. Si la propriété OddAndEvenPagesHeaderFooter a la valeur True, vous pouvez renvoyer l'en-tête ou le pied de page des pages impaires à l'aide de la constante wdHeaderFooterPrimary, et l'en-tête ou le pied de page des pages paires à l'aide de la constante wdHeaderFooterEvenPages.

Utilisez la méthode Add avec l’objet PageNumbers pour ajouter un numéro de page à un en-tête ou un pied de page. L’exemple suivant insère un numéro de page dans le premier pied de page dans le document actif.

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

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.