Problem with Word - Help!

[Andrew]

I have a word document with a random # of tables inside it. I want a script
which will automatically find all the tables and insert a new blank column
before column #3


does anyone know of any, or a place to to find them.

Can you please e-mail me the answer to (e-mail address removed)

thanks Andrew

 

[bubba]

Sub AddColumn()

Dim myTable As Table

For Each myTable In ActiveDocument.Tables
'From Help on Add/Example with Columns
Set newCol = myTable.Columns.Add(BeforeColumn:=myTable.Columns(3))
newCol.SetWidth ColumnWidth:=InchesToPoints(0.5), _
RulerStyle:=wdAdjustNone
Next

End Sub

 

[Andrew]

Sub AddColumn()

Dim myTable As Table

For Each myTable In ActiveDocument.Tables
'From Help on Add/Example with Columns
Set newCol = myTable.Columns.Add(BeforeColumn:=myTable.Columns(3))
newCol.SetWidth ColumnWidth:=InchesToPoints(0.5), _
RulerStyle:=wdAdjustNone
Next

End Sub

"Many thanks, works awesome!!! Could I ask another question... Is there a
way I can delete specific tables from within the same document which
contain a certain word?

E.g. do a find for "test" and then if it is found, delete the table it is
inside??"

 

[David Sisson]

E.g. do a find for "test" and then if it is found, delete the table it is
inside??"

Check out this recent thread.

http://www.microsoft.com/office/com...crosoft.public.word.vba.general&lang=en&cr=US

 

[David Sisson]

Link didn't work.

Try this one.

http://groups.google.com/group/micr...ede78/55928cba379d7fc1?hl=en#55928cba379d7fc1