Document.Indexes (Word)

Returns an Indexes collection that represents all the indexes in the specified document.

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

Set MyRange = _ 
 ActiveDocument.Range(Start:=ActiveDocument.Content.End - 1, _ 
 End:=ActiveDocument.Content.End - 1) 
ActiveDocument.Indexes.Add Range:=MyRange, NumberOfColumns:=1, _ 
 HeadingSeparator:=False