I am using the commands :
Selection.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(6)
Selection.Tables(1).Columns(2).PreferredWidth = CentimetersToPoints(2)
Selection.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(6)
Selection.Tables(1).Columns(2).PreferredWidth = CentimetersToPoints(1)
for my 4 column table.

But I get the error message : Cannot access individual columns in this collection because the table has mixed cell widths.



How do I adjust my column widths ? (Strangely, the above commands work on the first run, but it crashes in subsequent runs, even though I clear the document) Thanks !

Try looking at .setwidth. Do you know you can look up the keywords by placing the cursor on the keyword and pressing f1.

If the table has cells that have been split or merged along the column then its likely that this command will fail.

Thanks. (And, yes the table had been merged...)