Classe PageNumber (Word VBA)

La classe PageNumber représente un numéro de page dans un en-tête ou un pied de page.

Les procédures principales de la classe PageNumber sont Copy, Delete, Select et PageNumbers.Add

Set

Pour utiliser une variable de classe PageNumber, elle doit d'abord être instanciée, par exemple

Dim pnr as PageNumber
Set pnr = Selection.HeaderFooter.PageNumbers(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe PageNumber : PageNumbers.Add, PageNumbers.Item et HeaderFooter.PageNumbers

For Each

Voici un exemple de traitement des éléments PageNumber dans une collection

Dim pnr As PageNumber
For Each pnr In Selection.HeaderFooter.PageNumbers
	
Next pnr

Méthodes

Les méthodes principales de la classe PageNumber sont

Copy - Copie le numéro de page spécifié dans le Presse-papiers.

Selection.HeaderFooter.PageNumbers(1).Copy

Delete - Supprime le numéro de page spécifiée.

Selection.HeaderFooter.PageNumbers(1).Delete

Select - Sélectionne le numéro de page spécifié.

Selection.HeaderFooter.PageNumbers(1).Select

PageNumbers.Add - Renvoie un objet pageNumber qui représente les numéros de page ajoutés à un en-tête ou un pied de page dans une section.

Dim pnr As PageNumber
Set pnr = Selection.HeaderFooter.PageNumbers.Add()

Propriétés

Alignment Cette propriété renvoie ou définit une constante WdPageNumberAlignment qui représente l'alignement du numéro de page.

Selection.HeaderFooter.PageNumbers(1).Alignment = wdAlignPageNumberCenter

Index Renvoie un type long qui représente la position d’un élément dans une collection.

Dim lngIndex As Long
lngIndex = Selection.HeaderFooter.PageNumbers(1).Index

Parent Renvoie un Object qui représente l'objet parent de l'objet PageNumber spécifié.

Dim objParent As Object
Set objParent = Selection.HeaderFooter.PageNumbers(1).Parent

PageNumbers.ChapterPageSeparator Renvoie ou définit le caractère utilisé comme séparateur entre le numéro de chapitre et le numéro de page.

Selection.HeaderFooter.PageNumbers.ChapterPageSeparator = wdSeparatorColon

PageNumbers.Count Renvoie un type long qui représente le nombre de numéros de page dans la collection.

Dim lngCount As Long
lngCount = Selection.HeaderFooter.PageNumbers.Count

PageNumbers.DoubleQuote La valeur true si Microsoft Word place l'objet PageNumbers spécifié entre guillemets (").

Selection.HeaderFooter.PageNumbers.DoubleQuote = True

PageNumbers.HeadingLevelForChapter Cette propriété renvoie ou définit le style de niveau de titre qui est appliqué aux titres de chapitre du document.

Selection.HeaderFooter.PageNumbers.HeadingLevelForChapter =

PageNumbers.IncludeChapterNumber True si un numéro de chapitre est ajouté aux numéros de page ou une étiquette de légende.

Selection.HeaderFooter.PageNumbers.IncludeChapterNumber = True

PageNumbers.NumberStyle Cette propriété renvoie ou définit une constante WdPageNumberStyle qui représente le style de numéro.

Selection.HeaderFooter.PageNumbers.NumberStyle = wdPageNumberStyleArabic

PageNumbers.Parent Renvoie un Object qui représente l'objet parent de l'objet PageNumbers spécifié.

Dim objParent As Object
Set objParent = Selection.HeaderFooter.PageNumbers.Parent

PageNumbers.RestartNumberingAtSection True si la numérotation des pages commence à 1 au début de la section spécifiée.

Selection.HeaderFooter.PageNumbers.RestartNumberingAtSection = True

PageNumbers.ShowFirstPageNumber True si le numéro de page apparaît sur la première page dans la section.

Selection.HeaderFooter.PageNumbers.ShowFirstPageNumber = True

PageNumbers.StartingNumber Cette propriété renvoie ou définit le numéro de note de début, un numéro de ligne ou un numéro de page.

Selection.HeaderFooter.PageNumbers.StartingNumber =