Document.TablesOfAuthorities (Word)

Returns a TableOfAuthorities collection that represents the tables of authorities in the specified document.

For information about returning a single member of a collection, see Returning an object from a collection.

Set myRange = Documents("Sales.doc").Range(Start:=0, End:=0) 
Documents("Sales.doc").TablesOfAuthorities.Add Range:=myRange, _ 
 Category:=0, Passim:=True, IncludeCategoryHeader:=True