Classe Page - página (Word VBA)

A classe Page representa uma página em um documento. Use o objeto Page e relacionados métodos e propriedades para definir programaticamente o layout de página em um documento. Para usar uma variável de classe Page, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens Page em uma coleção.

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

Breaks

Retorna uma coleção Breaks que representa as quebras em uma página.

Coleção Breaks inclui quebras de seção, coluna e página. Use a coleção Breaks e objetos relacionados e propriedades para definir de forma programada o layout de página em um documento.

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

EnhMetaFileBits

Retorna um valor que representa uma representação de imagem de como uma página de texto é exibida. Somente leitura.

A propriedade EnhMetaFileBits retorna uma matriz de bytes, que pode ser usado com o Microsoft Windows 32 Application Programming Interface de dentro do ambiente de desenvolvimento Microsoft Visual Basic ou Microsoft C++.

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

Height

Retorna um Long que representa a altura de uma página, em pixels.

As propriedades Top e Left do objeto Page sempre retornam 0 (zero) indicando o canto superior esquerdo da página. As propriedades Height e Width retornam a altura e a largura em pontos (72 pontos = 25,4 mm) do tamanho de papel especificado na caixa de diálogo Configurar Página ou pelo objeto PageSetup. Por exemplo, para uma página de polegada 8 1/2 x 279 no modo retrato, a propriedade Height retorna 792 e a propriedade Width retornará 612. Todos os quatro dessas propriedades são somente leitura.

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

Left

Retorna um Long que representa a borda esquerda da página. Somente leitura.

As propriedades Top e Left do objeto Page sempre retornam 0 (zero) indicando o canto superior esquerdo da página. As propriedades de Altura e largura retornam a altura e largura em pontos (72 pontos = 1 polegada) do tamanho do papel especificado na caixa de diálogo Configurar página, ou por meio do objeto PageSetup. Por exemplo, para uma página de polegada 8 1/2 x 279 no modo retrato, a propriedade Height retorna 792 e a propriedade Width retornará 612. Todos os quatro dessas propriedades são somente leitura.

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

Rectangles

Retorna uma coleção Rectangles que representa uma parte de texto ou um elemento gráfico em uma página em um documento.

Use a coleção Rectangles e objetos relacionados e propriedades para definir programaticamente o layout de página em um documento. Retângulos correspondem às partes de texto ou um elemento gráfico em uma página em um documento.

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

Top

Retorna um Long que representa a borda superior da página. Somente leitura.

As propriedades Top e Left do objeto Page sempre retornam 0 (zero) indicando o canto superior esquerdo da página. As propriedades de Altura e largura retornam a altura e largura em pontos (72 pontos = 1 polegada) do tamanho do papel especificado na caixa de diálogo Configurar página, ou por meio do objeto PageSetup. Por exemplo, para uma página de polegada 8 1/2 x 279 no modo retrato, a propriedade Height retorna 792 e a propriedade Width retornará 612. Todos os quatro dessas propriedades são somente leitura.

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

Width

Retorna um Long que representa a largura, em pontos, do papel definido na caixa de diálogo Configurar página . Long somente leitura.

As propriedades Top e Left do objeto Page sempre retornam 0 (zero) indicando o canto superior esquerdo da página. As propriedades de Altura e largura retornam a altura e largura em pontos (72 pontos = 1 polegada) do tamanho do papel especificado na caixa de diálogo Configurar página, ou por meio do objeto PageSetup. Por exemplo, para uma página de polegada 8 1/2 x 279 no modo retrato, a propriedade Height retorna 792 e a propriedade Width retornará 612. Todos os quatro dessas propriedades são somente leitura.

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