文档介绍：用VBA做快速输入拼音!输入时输入对应的元音加声调,然后利用VBA统一替换,这样速度快多了。如:she1ngdia4o选中后,运行下面的宏就可得到:shēngdiào对于有时要输入小学语文类的拼音尤其有用。可以考虑把这个宏放到对应的模板中。Sub拼音替换()Dimfindarr,=Falsefindarr=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("ā","á","ǎ","à",_"ō","ó","ǒ","ò",_"ē","é","ě","è",_"ī","í","ǐ","ì",_"ū","ú","ǔ","ù",_"ǖ","ǘ","ǚ","ǜ")Fori=0ToUBound(findarr)(i),MatchWildcards:=False,Format:=False,replacewith:=replacearr(i),Replace:==TrueEndSub1:officeword下选择插入--〉特殊符号--〉拼音2:智能ABC输入法就按v和8。如果是搜狗QQ拼音就打开输入法对话框中的小键盘,右击选择拼音,即可输入带声调的字母。3:VBA做快速输入拼音,输入时输入对应的元音加声调,然后利用VBA统一替换,这样速度快多了。如:she1ngdia4o选中后,运行下面的宏就可得到:shēngdiào对于有时要输入小学语文类的拼音尤其有用。可以考虑把这个宏放到对应的模板中。Sub拼音替换()Dimfindarr,=Falsefindarr=Array("a1","a2","a3","a4",_"o1