Using range object to work with multiple columns

		Microsoft Office Forums > Microsoft Word > Word VBA
Using range object to work with multiple columns

11-01-2013, 03:03 AM

macropod

Windows 7 32bit Using range object to work with multiple columns

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,523

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

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

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

Other Forums: Access Forums

All times are GMT -7. The time now is 01:20 PM.