Classe Page (Word VBA)

La classe Page représente une page dans un document.

Set

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

Dim pag as Page
Set pag = ActiveWindow.ActivePane.Pages(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Page : Pages.Item et Pane.Pages

For Each

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

Dim pag As Page
For Each pag In ActiveWindow.ActivePane.Pages
	
Next pag

Propriétés

Breaks Renvoie une collection breaks qui représente les sauts dans une page.

Dim brksBreaks As Breaks
Set brksBreaks = ActiveWindow.ActivePane.Pages(1).Breaks

EnhMetaFileBits Renvoie une valeur de type Variant qui représente une image de la façon dont une page de texte apparaît.

Dim varEnhMetaFileBits As Variant
varEnhMetaFileBits = ActiveWindow.ActivePane.Pages(1).EnhMetaFileBits

Height Renvoie un type long qui représente la hauteur d’une page, en pixels.

Dim lngHeight As Long
lngHeight = ActiveWindow.ActivePane.Pages(1).Height

Left Renvoie un type long qui représente le bord gauche de la page.

Dim lngLeft As Long
lngLeft = ActiveWindow.ActivePane.Pages(1).Left

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

Dim objParent As Object
Set objParent = ActiveWindow.ActivePane.Pages(1).Parent

Rectangles Renvoie une collection rectangles qui représente une partie du texte ou des graphiques d’une page dans un document.

Dim rctsRectangles As Rectangles
Set rctsRectangles = ActiveWindow.ActivePane.Pages(1).Rectangles

Top Renvoie un type long qui représente le bord supérieur de la page.

Dim lngTop As Long
lngTop = ActiveWindow.ActivePane.Pages(1).Top

Width Renvoie un type long qui représente la largeur, exprimée en points, du papier défini dans la boîte de dialogue mise en page .

Dim lngWidth As Long
lngWidth = ActiveWindow.ActivePane.Pages(1).Width

Pages.Count Renvoie un type long qui représente le nombre de pages dans la collection.

Dim lngCount As Long
lngCount = ActiveWindow.ActivePane.Pages.Count

Pages.Parent Renvoie un type de données Object qui représente l'objet parent de l'objet Pages spécifié.

Dim objParent As Object
Set objParent = ActiveWindow.ActivePane.Pages.Parent