Range.Columns (Word)

Devuelve una colección Columns que representa todas las columnas de tabla del rango.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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