Propriété PageNumbers.HeadingLevelForChapter (Word)

  • Article

Cette propriété renvoie ou définit le style de niveau de titre qui est appliqué aux titres de chapitre du document. Long (en lecture/écriture).

Syntaxe

expression. HeadingLevelForChapter

Expression Variable qui représente un objet « PageNumbers ».

Remarques

La propriété HeadingLevelForChapter peut être un nombre compris entre 0 (zéro) et 8, correspondant aux niveaux de titre 1 à 9.

Avant de pouvoir créer des numéros de page qui incluent les numéros de chapitre, les titres de document doivent un plan numéroté être appliquée qui utilise des styles à partir de la boîte de dialogue Puces et numéros. Pour ce faire dans Visual Basic, utilisez la méthode ApplyListTemplate.

Exemple

La première partie de cet exemple crée un nouveau document, ajouter des titres de chapitre et des sauts de page, puis mettre en forme le document en utilisant le dernier plan numéroté figurant dans la boîte de dialogue Puces et numéros. La seconde partie de l'exemple ajoute les numéros de page centré - y compris le numéro de chapitre - l'en-tête ; un tiret demi-cadratin sépare le numéro de chapitre et le numéro de page. Le premier niveau de titre est utilisé pour le numéro de chapitre et chiffres romains en minuscules sont utilisés pour le numéro de page.

Dim intLoop As Integer 
Dim hdrTemp As HeaderFooter 
 
Documents.Add 
For intLoop = 1 To 5 
 With Selection 
 .TypeParagraph 
 .InsertBreak 
 End With 
Next intLoop 
ActiveDocument.Content.Style = wdStyleHeading1 
ActiveDocument.Content.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(wdOutlineNumberGallery) _ 
 .ListTemplates(7) 
 
Set hdrTemp = ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary) 
 
With hdrTemp.PageNumbers 
 .Add PageNumberAlignment:=wdAlignPageNumberCenter 
 .NumberStyle = wdPageNumberStyleArabic 
 .IncludeChapterNumber = True 
 .HeadingLevelForChapter = 0 
 .ChapterPageSeparator = wdSeparatorEnDash 
End With

Voir aussi

PageNumbers, Collection d'objets

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.