手机
当前位置:查字典教程网 >电脑 >word教程 >word用VBA快速输入拼音
word用VBA快速输入拼音
摘要:输入时输入对应的元音加声调,然后利用VBA统一替换,这样速度快多了。如:she1ngdia4o选中后,运行下面的宏就可得到:shēngdi&...

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

【word用VBA快速输入拼音】相关文章:

word使用技巧之插入自己公司的信息

如何让Word运行更加快速流畅

word底色绿色怎么设置

word怎么加入横向页面

word以只读方式打开

word怎么设置行开头

Word目录连接的设置方法

word文档没存盘如何能找回来

word文档默认输入法

word模板制作使用教程

精品推荐
分类导航