Add Method (TablesOfAuthorities Collection) Example
This example adds, at the beginning of the active document, a table of authorities that includes all categories.
Set myRange = ActiveDocument.Range(0, 0)
ActiveDocument.TablesOfAuthorities.Add Range:=myRange, _
Passim:= True, Category:= 0, EntrySeparator:= ", "