Mega Code Archive
The SetWidth method sets the width of one or more columns and specify how the other columns in the table should change as a result.tx
Sub ruler()
ActiveDocument.Tables(1).Columns(2).SetWidth ColumnWidth:=50, _
RulerStyle:=wdAdjustProportional
End Sub