Classe Line - ligne (Word VBA)

La classe Line représente une ligne individuelle dans un objet Rectangle de type wdTextRectangle. Pour utiliser une variable de classe Line, elle doit d'abord être instanciée, par exemple

For Each

Voici un exemple de traitement des éléments Line dans une collection


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

Height

Renvoie ou définit la hauteur d'un trait.


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

Left

Renvoie un type long qui représente le nombre de pixels situés entre le bord gauche de la page et la bordure gauche d’un trait.


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

LineType

Renvoie une constante wdLineType qui indique si une ligne est une ligne de texte ou une ligne de tableau. Les valeurs de retour possibles sont wdTableRow - Ligne de tableau, wdTextLine - Ligne de texte dans le corps du document.


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

Renvoie un objet Range qui représente la partie d’un document contenue dans une ligne.


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

Rectangles

Renvoie une collection rectangles qui représente une partie du texte ou des graphiques d’une page dans un document.

Pour définir par programme la mise en page dans un document, utilisez la collection Rectangles et les objets associés et les propriétés.


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

Top

Renvoie un type long qui représente le nombre de pixels situés entre le haut de la page et la bordure supérieure d'une ligne.


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

Width

Cette propriété renvoie ou définit la largeur, exprimée en points, d’une ligne.


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