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

Article contributed by Cindy Meister


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).