Microsoft Office Forums - View Single Post - [Solved] Using range object to work with multiple columns

macropod · 11-01-2013, 03:03 AM

Hi kjworduser,

I've been away and didn't see your post.

Here's one of many possible approaches to deleting a column:

Code:

Sub Demo()
With ActiveDocument.Tables(1)
  While .Columns.Count > 3
    .Columns(3).Delete
  Wend
End With
End Sub

And here's one of many ways of moving a column:

Code:

Sub Demo()
With ActiveDocument.Tables(1)
  .Columns(4).Select
  Selection.Cut
  .Columns(2).Select
  Selection.Paste
End With
End Sub