Selection.Columns (Word)

Returns a Columns collection that represents all the table columns in a selection.

If Selection.Information(wdWithInTable) = True Then 
 Selection.Columns.SetWidth ColumnWidth:=InchesToPoints(1), _ 
 RulerStyle:=wdAdjustProportional 
End If