Klasse TextColumn (Word VBA)

Die Klasse TextColumn stellt eine einzelne Textspalte dar.

Die wichtigste Prozedur der Klasse TextColumn ist TextColumns.Add

Set

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

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

Die folgenden Prozeduren können zum Festlegen der TextColumn Klassenvariablen verwendet werden : TextColumns.Add, TextColumns.Item und PageSetup.TextColumns

For Each

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

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

Methoden

Dies ist die Hauptmethode der Klasse TextColumn

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

Dim tcn As TextColumn
Set tcn = ActiveDocument.PageSetup.TextColumns.Add()

Eigenschaften

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen TextColumn-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.PageSetup.TextColumns(1).Parent

SpaceAfter Gibt den Abstand (in Punkt) nach dem angegebenen Absatz oder der Textspalte zurück oder legt diesen fest.

ActiveDocument.PageSetup.TextColumns(1).SpaceAfter =

Width Gibt die Breite der angegebenen Textspalten in Punktzurück oder legt Sie fest.

ActiveDocument.PageSetup.TextColumns(1).Width =

TextColumns.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

TextColumns.EvenlySpaced True, wenn Textspalten gleichen Abstand voneinander haben.

ActiveDocument.PageSetup.TextColumns.EvenlySpaced =

TextColumns.FlowDirection Legt die Richtung fest, in der Text von einer Textspalte zur nächsten fließt, oder gibt diese zurück.

ActiveDocument.PageSetup.TextColumns.FlowDirection = wdFlowLtr

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

ActiveDocument.PageSetup.TextColumns.LineBetween =

TextColumns.Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen TextColumns-Objekts darstellt.

Dim objParent As Object
Set objParent = ActiveDocument.PageSetup.TextColumns.Parent

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

ActiveDocument.PageSetup.TextColumns.Spacing =

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

ActiveDocument.PageSetup.TextColumns.Width =