Classe Page - page (Word VBA)

La classe Page représente une page dans un document. 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)

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

Breaks

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

La collection Breaks inclut des sauts de section, colonne et page.

Dim objBreaks As Breaks 
 
Set objBreaks = ActiveDocument.ActiveWindow _ 
 .Panes(1).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.

La propriété EnhMetaFileBits renvoie un tableau d'octets qui peut être utilisé avec le Microsoft Windows 32 Application Programming Interface à partir de l'environnement de développement Microsoft Visual Basic ou Microsoft C++.

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.

Les propriétés de haut et gauche de l’objet page renvoient toujours 0 (zéro), qui indique le coin supérieur gauche de la page.

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

Left

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

Les propriétés de haut et gauche de l’objet page renvoient toujours 0 (zéro), qui indique le coin supérieur gauche de la page.

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

Rectangles

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

Pour définir par programme la mise en page dans un document, utilisez la collection Rectangles et les objets associés et les propriétés.

Dim objRectangles As Rectangles 
 
Set objRectangles = ActiveDocument.ActiveWindow _ 
 .Panes(1).Pages(1).Rectangles

Top

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

Les propriétés de haut et gauche de l’objet page renvoient toujours 0 (zéro), qui indique le coin supérieur gauche 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 .

Les propriétés de haut et gauche de l’objet page renvoient toujours 0 (zéro), qui indique le coin supérieur gauche de la page.

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