Classe PageNumber - numéro de page (Word VBA)

La classe PageNumber représente un numéro de page dans un en-tête ou un pied de page. 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)

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

Alignment

Cette propriété renvoie ou définit une constante WdPageNumberAlignment qui représente l'alignement du numéro de page. Les valeurs de retour possibles sont wdAlignPageNumberCenter - Centré, wdAlignPageNumberInside - Aligné à gauche, à l'intérieur du pied de page, wdAlignPageNumberLeft - Aligné à gauche, wdAlignPageNumberOutside - Aligné à droite, à l'extérieur du pied de page, wdAlignPageNumberRight - Aligné à droite.

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

Copy

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

Selection.HeaderFooter.PageNumbers(1).Copy

Cut

Supprime l'objet spécifié du document et le place dans le Presse-papiers.

Si expression renvoie un objet Range ou Selection , le contenu de l’objet est déplacé vers le presse-papiers, mais l’objet réduit reste dans le document.

If ActiveDocument.Fields.Count >= 1 Then 
 ActiveDocument.Fields(1).Cut 
 Selection.Collapse Direction:=wdCollapseEnd 
 Selection.Paste 
End If

Delete

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

Selection.HeaderFooter.PageNumbers(1).Delete

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

Select

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

Après avoir exécuté cette méthode, utilisez la propriété Selection pour travailler avec les éléments sélectionnés.

Selection.HeaderFooter.PageNumbers(1).Select