Propriété HeaderFooter.LinkToPrevious (Word)

  • Article

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

Objet HeaderFooter

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.