Document.TablesOfContents (Word)

Devuelve una colección TablesOfContents que representa las tablas de contenido del documento especificado.

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

Set myRange = Documents("Sales.doc").Range(Start:=0, End:=0) 
Documents("Sales.doc").TablesOfContents.Add Range:=myRange, _ 
 UseFields:=True, UseHeadingStyles:=False