高分悬赏！如何在WORD中输入拼音？

我指的是只要拼音，不要汉字。要快速的输入。我不要注音的那种。
现弄50分，解决了再给100分，说到做到。
我需要的是有声调的那种。我同样的问题已经在电脑常识中提高到100分！帮我解决的话，两个问题给你400分。

我在http://zhidao.baidu.com/question/38477471.html已作回答！

用VBA做快速输入拼音！

输入时输入对应的元音加声调，然后利用VBA统一替换，这样速度快多了。

如：she1ng dia4o

选中后，运行下面的宏就可得到：
shēng diào
对于有时要输入小学语文类的拼音尤其有用。可以考虑把这个宏放到对应的模板中。

Sub 拼音替换()
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("ā", "á", "ǎ", "à", _