Mega Code Archive

 

Categories / VisualBasic Script / Word

 

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