Add Method (TextColumns Collection) Example

This example creates a new document and then adds another 2.5-inch-wide text column to it.

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

This example adds a new text column to the active document and then evenly spaces all the text columns in the document.

ActiveDocument.PageSetup.TextColumns.Add _
    Width:=InchesToPoints(1.5), _
    EvenlySpaced:=True