Mega Code Archive

 

Categories / VisualBasic Script / Word

 

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