如何使用VBA一次性改变word文档中的拼音字母的字体格式？

10000kw

　　本人语文老师，工作中常与拼音字母打交道。
　　教研室要求编辑文档时，涉及拼音字母的一律要用“华文黑体”，一个一个地修改显然费时费事。
　　因此想求助大神，能否使用ＶＢＡ语言，将这些拼音字母（主要是：āáǎàōóǒòēéěèīíǐìūúǔùǖǘǚǜ）的字体格式一次性地替换成华文黑体呢？

10000kw

改变英文字母和数字似乎可以实现，但拼音字母不是ASCII编码，无法实现转换

Sub 改ASCII字体()
'
' 改ASCII字体 宏
'
'
Application.ScreenUpdating = False '关闭屏幕更新提高运行速度
    Set myRange = ActiveDocument.Characters
        For Each aword In myRange
            If Asc(UCase(aword.Text)) >= 64 And Asc(UCase(aword.Text)) <= 90 Then
                aword.Font.Name = "calibri"
            End If
        Next aword
Application.ScreenUpdating = True
End Sub

10000kw

　　考虑过采用最笨的查找这24个韵母，然后替换成目标字体的方法，不过没能实现，或许是学艺不精，代码不正确，而且感觉过程也未免过于繁琐