A collection of TextColumn objects that represent all the columns of text in a document or a section of a document.
Using the TextColumns Collection
Use the TextColumns property to return the TextColumns collection. The following example formats the columns in the first section in the active document to be evenly spaced, with a line between the columns.
With ActiveDocument.Sections(1).PageSetup.TextColumns
.EvenlySpaced = True
.LineBetween = True
End With
Use the Add method to add a column to the collection of columns. By default, there's one text column in the TextColumns collection. The following example adds a 2.5-inch-wide column to the active document.
ActiveDocument.PageSetup.TextColumns.Add _
Width:=InchesToPoints(2.5), _
Spacing:=InchesToPoints(0.5), EvenlySpaced:=False
Remarks
Use the SetCount method to arrange text into columns. The following example arranges the text in the active document into three columns.
ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=3