This example topic sets columns in the active document to be evenly spaced.
Set myCols = ActiveDocument.PageSetup.TextColumns
If myCols.Count > 1 Then myCols.EvenlySpaced = True
This example returns the status of the Equal column width option in the Columns dialog box (Format menu).
temp = ActiveDocument.PageSetup.TextColumns.EvenlySpaced