Of course you could always use a macro to right these wrongs after adding a column
Code:
Sub ResizeTable()
Dim aTbl As Table
For Each aTbl In Selection.Tables
aTbl.PreferredWidthType = wdPreferredWidthPercent
aTbl.PreferredWidth = 100
Next aTbl
End Sub