Classe Line - linha (Word VBA)

A classe Line representa uma linha individual em um objeto Rectangle do tipo wdTextRectangle. Use o objeto Line e relacionados métodos e propriedades para definir de forma programada o layout de página em um documento. Para usar uma variável de classe Line, ela primeiro precisa ser instanciada por exemplo

For Each

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

Dim shp As Rectangle: Set shp = 
Dim lin As Line
For Each lin In shp.Lines
	With lin
		
	End With
Next lin

Height

Retorna ou define a altura de uma linha.

Dim lin As Line: Set lin =  
Dim lngHeight As Long
lngHeight = lin.Height

Left

Retorna um Long que representa o número de pixels da borda esquerda da página até a borda esquerda de uma linha.

Dim lin As Line: Set lin =  
Dim lngLeft As Long
lngLeft = lin.Left

LineType

Retorna uma constante wdLineType que indica se uma linha é uma linha de texto ou uma linha de tabela. Os valores de retorno possíveis são wdTableRow - Uma linha de tabela, wdTextLine - Um linha de texto no corpo do documento.

Dim objLine As Line 
Dim objTable As Table 
 
Set objLine = ActiveDocument.ActiveWindow _ 
 .Panes(1).Pages(1).Rectangles(1).Lines.Item(1) 
 
If objLine.LineType = wdTableRow Then _ 
 Set objTable = objLine.Range.Tables(1)

Range

Retorna um objeto Range que representa a parte de um documento que está contida em uma linha.

Dim lin As Line: Set lin =  
Dim rngRange As Range
Set rngRange = lin.Range

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 o número de pixels da parte superior da página até a parte superior de uma linha.

Dim lin As Line: Set lin =  
Dim lngTop As Long
lngTop = lin.Top

Width

Retorna ou define a largura, em pontos, de uma linha. Long de leitura/gravação.

Dim lin As Line: Set lin =  
Dim lngWidth As Long
lngWidth = lin.Width