Index.SortBy procedure builder

Index.SortBy (Word)

Returns or sets the sorting criteria for the specified index.

wdIndexSortByStroke - Sort by the number of strokes in a character, wdIndexSortBySyllable - Sort phonetically.
ActiveDocument.Indexes(1).SortBy = _ 
 wdIndexSortByStroke