Clase Page (Word VBA)

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

Set

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

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

Los siguientes procedimientos se pueden usar para establecer variables de clase Page : Pages.Item y Pane.Pages

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

Propiedades

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

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

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

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.

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

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

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

Parent Devuelve un objeto Object que representa el objeto primario del objeto Page especificado.

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

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

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

Top Devuelve un Long que representa el borde superior 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 .

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

Pages.Count Devuelve un Long que representa el número de páginas de la colección.

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

Pages.Parent Devuelve un objeto Object que representa el objeto primario del objeto Pages especificado.

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