Range.Tables (Word)

Devuelve una colección tables que representa todas las tablas del intervalo especificado.

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

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