Propriété PageNumbers.ChapterPageSeparator (Word)
Renvoie ou définit le caractère utilisé comme séparateur entre le numéro de chapitre et le numéro de page. En lecture/écriture WdSeparatorType.
Syntaxe
expression. ChapterPageSeparator
Expression Expression qui représente un objet « PageNumbers ».
Remarques
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 montre comment créer un document, ajouter les titres de chapitres et les sauts de page, puis mettre le document en forme en utilisant le dernier plan numéroté figurant dans la boîte de dialogue Puces et numéros. La deuxième partie de l'exemple montre comment ajouter des numéros de page et de chapitre centrés dans l'en-tête, le numéro de chapitre et le numéro de page étant séparés par un tiret demi-cadratin.
Dim intLoop As Integer
Dim hfTemp 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 hfTemp = ActiveDocument.Sections(1) _
.Headers(wdHeaderFooterPrimary)
With hfTemp.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.