This example inserts an index at the end of the active document. right-aligns the page numbers, and then sets Microsoft Word to classify index entries as "".
Set myRange = ActiveDocument.Range _
(Start:=ActiveDocument.Content.End -1, _
End:=ActiveDocument.Content.End -1)
ActiveDocument.Indexes.Add(Range:=myRange, Type:=wdIndexIndent, _
RightAlignPageNumbers:=True).Filter = wdIndexFilterAkasatana