Propriété HeaderFooter.Index (Word)
Renvoie une constante WdHeaderFooterIndex qui représente l'en-tête spécifié ou le pied de page dans un document ou une section. En lecture seule.
Syntaxe
expression. Index
expression Obligatoire. Variable qui représente un objet « HeaderFooter ».
Exemple
Cet exemple montre comment ajouter une forme à l'en-tête de la première page du document actif si la variable spécifiée fait référence à l'en-tête de la première page.
Sub ChangeFirstPageFooter()
Dim hdrFirstPage As HeaderFooter
Set hdrFirstPage = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage)
If hdrFirstPage.Index = wdHeaderFooterFirstPage Then
With hdrFirstPage.Shapes.AddShape(Type:=msoShapeHeart, _
Left:=36, Top:=36, Width:=36, Height:=36)
.Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
End With
End If
End Sub
Voir aussi
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.