Document.TablesOfContents (Word)
Renvoie une collection TablesOfContents qui représente les tables des matières du document spécifié.
Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.
Set myRange = Documents("Sales.doc").Range(Start:=0, End:=0)
Documents("Sales.doc").TablesOfContents.Add Range:=myRange, _
UseFields:=True, UseHeadingStyles:=False