word用VBA快速输入拼音

办公教程导读

收集整理了【word用VBA快速输入拼音】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含742字，纯文字阅读大概需要2分钟。

办公教程内容图文

输入时输入对应的元音加声调，然后利用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用VBA快速输入拼音。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。