Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Delete the column in which the range testRange ends if the range is more than one column wide
With testRange
         If .Information(wdStartOfRangeColumnNumber) <> _
             .Information(wdEndOfRangeColumnNumber) Then _
             .Tables(1).Columns(.Information _
             (wdEndOfRangeColumnNumber)).Delete
     End With