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 !