Klasse TextColumns (Word VBA)

Um eine TextColumns -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim tcs as TextColumns
Set tcs = ActiveDocument.PageSetup.TextColumns

For Each

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

Dim tcn As TextColumn
For Each tcn In ActiveDocument.PageSetup.TextColumns
	
Next tcn

Add

Gibt ein TextColumn -Objekt zurück, das eine neue Textspalte darstellt, die einem Abschnitt oder Dokument hinzugefügt wurde.

Add (Width, Spacing, EvenlySpaced)

Set myDoc = Documents.Add 
myDoc.PageSetup.TextColumns.Add Width:=InchesToPoints(2.5), _ 
 Spacing:=InchesToPoints(0.5), EvenlySpaced:=False

Arguments

Optional arguments

Die folgenden Argumente sind optional

Width (Long) - Die Breite der neuen Textspalte im Dokument (in Punkt).

Spacing (Long) - Der Abstand zwischen den Textspalten im Dokument (in Punkt).

EvenlySpaced (Boolean) - True, um zwischen allen Textspalten im Dokument einen einheitlichen Abstand festzulegen.

Count

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Textspalten in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveDocument.PageSetup.TextColumns.Count

EvenlySpaced

True, wenn Textspalten gleichen Abstand voneinander haben.

Für dieEvenlySpaced-Eigenschaft sind folgende Werte möglich: True, False oder wdUndefined. Wenn Sie die Eigenschaft " Abstand " oder " Width " des TextColumns -Objekts festlegen, wird die dieevenlyspaced -Eigenschaft automatisch auf truefestgelegt.

Dim colTextColumns 
 
Set colTextColumns = ActiveDocument.PageSetup.TextColumns 
 
If colTextColumns.Count > 1 Then _ 
 colTextColumns.EvenlySpaced = True 
End If

FlowDirection

Legt die Richtung fest, in der Text von einer Textspalte zur nächsten fließt, oder gibt diese zurück. Mögliche Rückgabewerte sind wdFlowLtr - Text in Spalten fließt von links nach rechts, wdFlowRtl - Text in Spalten fließt von rechts nach links.

ActiveDocument.PageSetup.TextColumns.FlowDirection = _ 
 wdFlowRtl

Item

Gibt ein einzelnes TextColumn -Objekt in einer Auflistung zurück.

Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

Dim tcn As TextColumn
Set tcn = ActiveDocument.PageSetup.TextColumns(Index:=1)

LineBetween

True , wenn zwischen allen Spalten in der TextColumns -Auflistung vertikale Linien angezeigt werden.

Für die LineBetween-Eigenschaft sind folgende Werte möglich: True, False oder wdUndefined.

i = 1 
For each s in ActiveDocument.Sections 
 If s.PageSetup.TextColumns.LineBetween = True Then 
 MsgBox "The columns in section " & i & " contain lines." 
 End If 
 i = i + 1 
Next s

SetCount

Ordnet Text in der angegebenen Anzahl von Textspalten an.

Sie können auch die Add -Methode verwenden, um der TextColumns -Auflistung eine einzelne Spalte hinzuzufügen.

SetCount (NumColumns)

NumColumns: Die Anzahl der Spalten, in denen der Text angeordnet werden soll.

ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=2

Spacing

Gibt den Abstand (in Punkt) zwischen Spalten zurück oder legt ihn fest.

Nachdem diese Eigenschaft für ein textColumns -Objekt festgelegt wurde, wird die EvenlySpaced -Eigenschaft auf truefestgelegt.

With ActiveDocument.PageSetup.TextColumns 
 .SetCount NumColumns:=2 
 .LineBetween = False 
 .EvenlySpaced = True 
 .Spacing = 36 
End With

Width

Gibt die Breite der WordArt-Texteffekte (in Punkt) zurück oder legt diese Breite fest.

ActiveDocument.PageSetup.TextColumns.Width =