Classe TextColumn (Word VBA)

A classe TextColumn representa uma única coluna de texto. O objeto TextColumn é um membro da coleção TextColumns. A coleção TextColumns inclui todas as colunas de um documento ou seção de um documento. Para usar uma variável de classe TextColumn, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens TextColumn em uma coleção.

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

SpaceAfter

Retorna ou define a quantidade de espaçamento em pontos após a coluna de texto ou de parágrafo especificado. Leitura/gravação única.

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

Width

Retorna ou define a largura, em pontos, das colunas de texto especificado. Long de leitura/gravação.

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