Range.Tables (Word)

Renvoie une collection tables qui représente toutes les tables de la plage spécifiée.

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

Selection.Collapse Direction:=wdCollapseStart 
Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _ 
NumRows:=5, NumColumns:=5) 
myTable.AutoFormat Format:=wdTableFormatClassic2