Insert Column in a Table

[Ron]

Hello all,

My first attempt to do a Word macro. I've done Excel macros, but
never Word. I'm trying to insert two columns in a table in a Word
document. Any assistance appreciated.... thank you, Ron

 

[NOPIK]

never Word.  I'm trying to insert two columns in a table in a Word
document.  Any assistance appreciated.... thank you, Ron

It deeply depends on your table format.
Word doesn't have tables - they are just formatted cells, so, no
actual rows or columns - only adjacent cells.
If your your table is square, and user don't alter it by inserting,
joining, or drawing cells - you can use Rows and Columns methods of
the table.
Tables(MyTable).ColumnsAdd(2)

 

[NOPIK]

Sorry, Columns.Add

 

[Graham Mayor]

Dim oTable As Table
Set oTable = ActiveDocument.Tables(1) 'for the first table in the
document
'or
'Set oTable = Selection.Tables(1) 'for the selected table
oTable.Columns(2).Select 'the second column
With Selection 'insert two columns to the right
.InsertColumnsRight
.InsertColumnsRight
End With