Range.Columns (Word)

Renvoie une collection Columns qui représente toutes les colonnes de tableau contenues dans la plage.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

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