如何通过代码做到按指定条件排序？

tangqingfu

请教如何通过VBA代码实现单词音标所在段落按颜色条件及单词首字母升序进行排序？（元音标注为红色，成音节标注为绿色，详见附件文档）
注：如果连续红色部分含有这8个双元音/eɪ/        /aɪ/        /əʊ/        /aʊ/        /ɔɪ/        /ɪə/        /eə/        /ʊə/中的任意1个（不包含//，且不能改变双音节的前后顺序），则视为1个（音节），如果是连续eæɪəɒʊʌiuɜɔuaɑ:中的任意3个（无顺序之分），则视为2个（音节），连续的绿色部分视为为1个音节。

附：
音标字体为4种字体的综合

Lucida Sans Unico：     eæɪəɒʊʌiui:ɜ:ɔ:u:ɑ:eɪaɪəʊaʊɔɪɪəeəʊəpbtdkgfvszθeʃʒtʃdʒtsdztrdrhrwjŋmnǀ

Arial Unicode MS：      eæɪəɒʊʌiui:ɜ:ɔ:u:ɑ:eɪaɪəʊaʊɔɪɪəeəʊəpbtdkgfvszθeʃʒtʃdʒtsdztrdrhrwjŋmnl

Arial：           eæɪəɒʊʌiui:ɜ:ɔ:u:ɑ:eɪaɪəʊaʊɔɪɪəeəʊəpbtdkgfvszθeʃʒtʃdʒtsdztrdrhrwjŋmnl

MS Gothic： eæɪəɒʊʌiui:ɜ:ɔ:u:ɑ:eɪaɪəʊaʊɔɪɪəeəʊəpbtdkgfvszθeʃʒtʃdʒtsdztrdrhrwjŋmnl