Propriété HeaderFooter.LinkToPrevious (Word)
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. Boolean (en lecture/écriture).
Syntaxe
expression. LinkToPrevious
Expression Expression qui renvoie un objet « HeaderFooter ».
Remarques
Si un en-tête ou un pied de page est lié, son contenu est identique à celui de l'en-tête ou du pied de page précédent. Dans la mesure où la propriété LinkToPrevious a, par défaut, la valeur True, vous pouvez modifier les en-têtes, les pieds de page et les numéros de page de la première section pour les appliquer à l'ensemble du document. L'exemple suivant montre comment ajouter des numéros de page à l'en-tête de toutes les pages de l'ensemble des sections du document actif.
ActiveDocument.Sections(1) _
.Headers(wdHeaderFooterPrimary).PageNumbers.Add
La propriété LinkToPrevious s'applique à chacun des en-têtes et des pieds de page individuellement. Par exemple, la propriété LinkToPrevious peut être affectée de la valeur True pour l'en-tête des pages paires, et False pour le pied de page des pages paires.
Exemple
La première partie de cet exemple montre comment créer un document composé de deux sections. La deuxième partie montre comment insérer dans les deux premières sections du nouveau document des en-têtes différents pour les pages paires et impaires.
Documents.Add
With Selection
For j = 1 to 4
.TypeParagraph
.InsertBreak
.TypeParagraph
Next j
End With
With ActiveDocument
.Paragraphs(5).Range.InsertBreak Type:=wdSectionBreakNextPage
.PageSetup.OddAndEvenPagesHeaderFooter = True
End With
With ActiveDocument.Sections(2)
With .Headers(wdHeaderFooterPrimary)
.LinkToPrevious = False
.Range.InsertBefore "Section 2 Odd Header"
End With
With .Headers(wdHeaderFooterEvenPages)
.LinkToPrevious = False
.Range.InsertBefore "Section 2 Even Header"
End With
End With
With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary) _
.Range.InsertBefore "Section 1 Odd Header"
.Headers(wdHeaderFooterEvenPages) _
.Range.InsertBefore "Section 1 Even Header"
End With
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.