Index.Filter (Word)
Returns or sets a value that specifies how Microsoft Word classifies the first character of entries in the specified index.read/write Long. Can be one of the following wdIndexFilter constants. Possible return values are wdIndexFilterAiueo - Japanese words use the AIUEO method of alphabetizing, wdIndexFilterAkasatana - Japanese words use Akasatana, wdIndexFilterChosung - Korean words use Chosung, wdIndexFilterFull - Korean words use Chosung, wdIndexFilterLow - Japanese words use Akasatana, wdIndexFilterMedium - Japanese words use the AIUEO method of alphabetizing, wdIndexFilterNone - No special filtering.
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