Classe TextColumn - colonne de texte (Word VBA)

La classe TextColumn représente une seule colonne de texte. Pour utiliser une variable de classe TextColumn, elle doit d'abord être instanciée, par exemple

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

For Each

Voici un exemple de traitement des éléments TextColumn dans une collection

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

SpaceAfter

Cette propriété renvoie ou définit l'espacement (en points) après la colonne de paragraphe ou de texte spécifiée.

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

Width

Cette propriété renvoie ou définit la largeur, exprimée en points, des colonnes de texte spécifiées.

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