Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. 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