Using range object to work with multiple columns

kjworduser · #1 10-10-2013, 08:41 AM

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 · #2 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Use of Range Object Question	jsb73	Word VBA	6	08-14-2012 07:35 PM
Formatting multiple tables and columns efficiently?	table_column	Word Tables	1	07-02-2012 05:55 PM
Range.Information(wdStartOfRangeRowNumber): Application-defined or Object-defined err	tinfanide	Excel Programming	2	06-09-2012 10:19 AM
moving data from single to multiple columns?	mzimmers	Excel	3	08-23-2010 08:20 AM
how to center text in multiple columns	galiwock	Excel	1	05-12-2010 09:02 AM