Filter Property Example

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 "akasatanaakasatanaakasatanaakasatanaakasatana".

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