Clase Page - página (Word VBA)

La clase Page representa una página de un documento.

Para usar una variable de clase Page, primero debe ser instanciado, por ejemplo

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

Las variables de tipo Page se pueden establecer utilizando el procedimiento Pages.Item

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Page en una colección.

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

Breaks

Devuelve una colección breaks que representa los saltos de una página.

La colección Breaks incluye saltos de sección, de columna y de página.

Dim objBreaks As Breaks 
 
Set objBreaks = ActiveDocument.ActiveWindow _ 
 .Panes(1).Pages(1).Breaks

EnhMetaFileBits

Devuelve un valor Variant que representa una representación gráfica de cómo aparece una página de texto.

La propiedad EnhMetaFileBits devuelve una matriz de bytes, que se puede usar con el Microsoft Windows 32 Application Programming Interface desde dentro del entorno de desarrollo de Microsoft Visual Basic o Microsoft C++.

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

Height

Devuelve un valor de tipo Long que representa el alto de una página, en píxeles.

Las propiedades Top y left del objeto Page siempre devuelven 0 (cero) que indica la esquina superior izquierda de la página.

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

Left

Devuelve un Long que representa el borde izquierdo de la página.

Las propiedades Top y left del objeto Page siempre devuelven 0 (cero) que indica la esquina superior izquierda de la página.

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

Rectangles

Devuelve una colección Rectangles que representa una parte de texto o gráficos en una página de un documento.

Utilice la colección Rectangles y objetos relacionados y propiedades para definir el diseño de página de un documento mediante programación.

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

Top

Devuelve un Long que representa el borde superior de la página.

Las propiedades Top y left del objeto Page siempre devuelven 0 (cero) que indica la esquina superior izquierda de la página.

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

Width

Devuelve un Long que representa el ancho, en puntos, del papel definido en el cuadro de diálogo Configurar página .

Las propiedades Top y left del objeto Page siempre devuelven 0 (cero) que indica la esquina superior izquierda de la página.

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