Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. WdStartOfRangeColumnNumber returns the number of the column in which the beginning of the selection or range falls
Sub selectRange()
    Selection.Tables(1).Columns(Selection.Information (wdStartOfRangeColumnNumber)).Select
End Sub