Selection.Columns (Word)

Devuelve una colección Columns que representa todas las columnas de tabla de una selección.

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