Klasse Line - Codezeile (Word VBA)

Die Klasse Line stellt eine einzelne Codezeile in einem Rectangle -Objekt vom Typ wdTextRectangle dar. Um eine Line -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

For Each

Hier ist ein Beispiel für die Verarbeitung der Line -Elemente in einer Sammlung

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

Height

Gibt die Höhe einer Zeile zurück oder legt sie fest.

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

Left

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Pixel vom linken Rand des Zeichenblatts bis zum linken Rand einer Textreihe darstellt.

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

LineType

Gibt eine wdLineType -Konstante, die angibt, ob eine Linie eine Textzeile oder eine Tabellenzeile ist. Mögliche Rückgabewerte sind wdTableRow - Tabellenzeile, wdTextLine - Textzeile im Textkörper des Dokuments.

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

Gibt ein Range -Objekt zurück, das den Teil eines Dokuments darstellt, der in einer Linie enthalten ist.

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

Rectangles

Gibt eine Rectangles -Auflistung zurück, die einen Teil von Text oder Grafiken auf einer Seite in einem Dokument darstellt.

Mit der Rectangles-Auflistung und den zugehörigen Objekten und Eigenschaften können Sie das Seitenlayout in einem Dokument programmgesteuert definieren.

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

Top

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Pixel vom oberen Rand der Seite bis zum oberen Rand einer Reihe darstellt.

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

Width

Gibt die Breite einer geraden in Punktzurück oder legt Sie fest.

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