Clase TextColumn - columna de texto (Word VBA)

La clase TextColumn representa una sola columna de texto. Para usar una variable de clase TextColumn, primero debe ser instanciado, por ejemplo


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

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos TextColumn en una colección.


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

SpaceAfter

Devuelve o establece la cantidad de espaciado (en puntos) después de la columna de texto o del párrafo especificada.


With ActiveDocument.PageSetup.TextColumns 
 .SetCount NumColumns:=3 
 .LineBetween = False 
 .EvenlySpaced = True 
 .Item(1).SpaceAfter = InchesToPoints(0.5) 
End With

Width

Devuelve o establece el ancho, en puntos, de las columnas de texto especificadas.


Selection.PageSetup.TextColumns.SetCount NumColumns:=3 
For Each acol In Selection.PageSetup.TextColumns 
 MsgBox "Width= " & PointsToInches(acol.Width) 
Next acol