输入时输入对应的元音加声调,然后利用VBA统一替换,这样速度快多了。 如:she1ng dia4o 选中后,运行下面的宏就可得到: shēng diào 对于有时要输入小学语文类的拼音尤其有用。可以考虑把这个宏放到对应的模板中。 VBA代码如下: Dim findarr, replacearr Dim i As Long Application.ScreenUpdating = False findarr = Array("a1", "a2", "a3", "a4", _ "o1", "o2", "o3", "o4", _ "e1", "e2", "e3", "e4", _ "i1", "i2", "i3", "i4", _ "u1", "u2", "u3", "u4", _ "v1", "v2", "v3", "v4") replacearr = Array("ā", "á", "ǎ", "à", _ "ō", "ó", "ǒ", "ò", _ "ē", "é", "ě", "è", _ "ī", "í", "ǐ", "ì", _ "ū", "ú", "ǔ", "ù", _ "ǖ", "ǘ", "ǚ", "ǜ") For i = 0 To UBound(findarr) With Selection.Find .Execute findarr(i), MatchWildcards:=False, Format:=False, replacewith:=replacearr(i), Replace:=wdReplaceAll End With Next Application.ScreenUpdating = True End Sub |