Clase Line - línea (Word VBA)

La clase Line representa una línea individual en un objeto Rectangle de tipo wdTextRectangle. Para usar una variable de clase Line, primero debe ser instanciado, por ejemplo

For Each

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

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

Height

Devuelve o establece el alto de una línea.

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

Left

Devuelve un valor de tipo Long que representa el número de píxeles desde el borde izquierdo de la página hasta el borde izquierdo de una línea.

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

LineType

Devuelve una constante wdLineType que indica si una línea es una línea de texto o una fila de tabla. Posibles valores de retorno son wdTableRow - Una fila de tabla, wdTextLine - Una línea de texto del cuerpo del 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

Devuelve un objeto Range que representa la parte de un documento incluida en una línea.

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

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 número de píxeles desde la parte superior de la página a la parte superior de una línea.

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

Width

Devuelve o establece el ancho, en puntos, de una línea.

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