Mega Code Archive

 

Categories / VisualBasic Script / Word

 

WdEndOfRangeColumnNumber returns the number of the column in which the end of the selection or range falls

With testRange          If .Information(wdStartOfRangeColumnNumber) <> _              .Information(wdEndOfRangeColumnNumber) Then _              .Tables(1).Columns(.Information _              (wdEndOfRangeColumnNumber)).Delete      End With