输入时输入对应的元音加声调，然后利用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