Range.Columns (Word)

Returns a Columns collection that represents all the table columns in the range.

For information about returning a single member of a collection, see Returning an object from a collection.

If ActiveDocument.Tables.Count >= 1 Then 
 MsgBox ActiveDocument.Tables(1).Columns.Count 
End If