I have been able to set the width of a table like this
With oWord
with oDocument
With oTable && set to oDocument.Tables[1]
.PreferredWidthType = 3 && wdPreferredWidthPoints
.PreferredWidth = 72*6

Using the same method, I can set the right-most column like this
in a 10 column table to 1 inch
oCol = oTable.Columns[10]
With oCol
.PreferredWidthType = 3 && wdPreferredWidthPoints
.PreferredWidth = 72*1

But I get an error message with some tables, when trying
to set the column width as above
"Word Cannot access individual columns in this collection because the table
has mixed cell widths .."

With these tables, I can still set the width of the overal table. However,

Is there a property that word has for tables that would be True or False,
based on whether or not the cells have mixed widths?

Thanks
Steve