欢迎来到山村网

word用VBA快速输入拼音

2019-03-05 06:34:35浏览:59 来源:山村网   
核心摘要:  输入时输入对应的元音加声调,然后利用VBA统一替换,这样速度快多了。  如:she1ng dia4o  选中后,运行下面的宏就可得

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

(责任编辑:豆豆)
下一篇:

在excel中,Enter键5个超实用功能

上一篇:

word2007批注在哪里

  • 信息二维码

    手机看新闻

  • 分享到
打赏
免责声明
• 
本文仅代表作者个人观点,本站未对其内容进行核实,请读者仅做参考,如若文中涉及有违公德、触犯法律的内容,一经发现,立即删除,作者需自行承担相应责任。涉及到版权或其他问题,请及时联系我们 xfptx@outlook.com