TextColumns.Add (Word)

Returns a TextColumn object that represents a new text column added to a section or document.

Syntax : expression.Add (Width, Spacing, EvenlySpaced)

Set myDoc = Documents.Add 
myDoc.PageSetup.TextColumns.Add Width:=InchesToPoints(2.5), _ 
 Spacing:=InchesToPoints(0.5), EvenlySpaced:=False


The following arguments are optional

Width (Long) - The width of the new text column in the document, in points.

Spacing (Long) - The spacing between the text columns in the document, in points.

EvenlySpaced (Boolean) - True to evenly space all the text columns be in the document.