How to get the column number of the selection (in a document containing snaking, or newspaper-style, columns)

Article contributed by Cindy Meister

Use:

With Dialogs(wdDialogFormatColumns)
    'Gets the column number of the currently selected column
    Debug.Print .ColumnNo
End With

Unfortunately this only works for selections, not for ranges.

See also: Getting help with calling Word's built-in dialogs using VBA (and why doing so can be much more useful than you'd think).