Columns Property
Returns a Columns collection that represents all the table columns in the range, selection, or table. Read-only.
For information about returning a single member of a collection, see Returning an Object from a Collection.
Example
This example displays the number of columns in the first table in the active document.
If ActiveDocument.Tables.Count >= 1 Then
MsgBox ActiveDocument.Tables(1).Columns.Count
End If
This example sets the width of the current column to 1 inch.
If Selection.Information(wdWithInTable) = True Then
Selection.Columns.SetWidth ColumnWidth:=InchesToPoints(1), _
RulerStyle:=wdAdjustProportional
End If