Selection.Columns (Word)

Retorna uma coleção Columns que representa todas as colunas de tabela em uma seleção. Somente leitura.

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