Klasse TextColumn - Textspalte (Word VBA)
Die Klasse TextColumn stellt eine einzelne Textspalte dar. Um eine TextColumn -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
Dim tcn as TextColumn
Set tcn = ActiveDocument.PageSetup.TextColumns(Index:=1)
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
SpaceAfter
Gibt den Abstand (in Punkt) nach dem angegebenen Absatz oder der Textspalte zurück oder legt diesen fest.
With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=3
.LineBetween = False
.EvenlySpaced = True
.Item(1).SpaceAfter = InchesToPoints(0.5)
End With
Width
Gibt die Breite der angegebenen Textspalten in Punktzurück oder legt Sie fest.
Selection.PageSetup.TextColumns.SetCount NumColumns:=3
For Each acol In Selection.PageSetup.TextColumns
MsgBox "Width= " & PointsToInches(acol.Width)
Next acol