Using range object to work with multiple columns

[kjworduser]

To those of you who are more at home in using ranges ("Home on the Range", sorry for the pun), how do you do the following tasks:



1. Select (and work with) multiple columns in a Word table? For example, select and delete columns 3-5 of a 6-column table.

2. Move columns? For example, move column 4 before column 2.

And if you are tempted to refer me to some good introduction on using range objects - please succumb!

"Where seldom is heard a discouraging word!"

Many thanks.

[macropod]

Hi kjworduser,

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

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

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:

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