Selection.Columns (Word)

Gibt eine Columns -Auflistung zurück, die alle Tabellenspalten in einer Auswahl darstellt.

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