资源描述:
《用vba做快速输入拼音》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、用VBA做快速输入拼音!输入时输入对应的元音加声调,然后利用VBA统一替换,这样速度快多了。如:she1ngdia4o选中后,运行下面的宏就可得到:shēngdiào对于有时要输入小学语文类的拼音尤其有用。可以考虑把这个宏放到对应的模板中。Sub拼音替换()Dimfindarr,replacearrDimiAsLongApplication.ScreenUpdating=Falsefindarr=Array("a1","a2","a3","a4",_"o1","o2","o3","o4",_"e1","e2","e3","e4",_"i1","i2","i3","i4",_"u1","u2",
2、"u3","u4",_"v1","v2","v3","v4")replacearr=Array("ā","á","ǎ","à",_"ō","ó","ǒ","ò",_"ē","é","ě","è",_"ī","í","ǐ","ì",_"ū","ú","ǔ","ù",_"ǖ","ǘ","ǚ","ǜ")Fori=0ToUBound(findarr)WithSelection.Find.Executefindarr(i),MatchWildcards:=False,Format:=False,replacewith:=replacearr(i),Replace:=wdReplaceAllEndWith
3、NextApplication.ScreenUpdating=TrueEndSub1:officeword下选择插入--〉特殊符号--〉拼音2:智能ABC输入法就按v和8。如果是搜狗QQ拼音就打开输入法对话框中的小键盘,右击选择拼音,即可输入带声调的字母。3:VBA做快速输入拼音,输入时输入对应的元音加声调,然后利用VBA统一替换,这样速度快多了。如:she1ngdia4o选中后,运行下面的宏就可得到:shēngdiào对于有时要输入小学语文类的拼音尤其有用。可以考虑把这个宏放到对应的模板中。Sub拼音替换()Dimfindarr,replacearrDimiAsLongApplication
4、.ScreenUpdating=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
5、)WithSelection.Find.Executefindarr(i),MatchWildcards:=False,Format:=False,replacewith:=replacearr(i),Replace:=wdReplaceAllEndWithNextApplication.ScreenUpdating=TrueEndSub