Selection.Columns (Word)

Renvoie une collection Columns qui représente toutes les colonnes d’une sélection.

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