摘要： 输入时输入对应的元音加声调，然后利用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", _
WORD删除宏
WORD删除宏 打开Word 2003，单击“工具”菜单，指向“宏”，在下一级菜单再单击“宏” 在“宏”列表框中单击要删除的宏名，然后再单击右侧的“删除”按钮 弹出“是否删除宏”的提示对话框，单击“是” 删除完后会出现“关闭”按钮，单击该按钮来关掉宏窗口 删除宏方案的步骤 单击菜单栏上的“工具”，指向“宏”，在打开的子菜单再单击“宏” 打开宏窗口，单击右侧的“管理器”按钮 进入“宏方案项”界面，在列表框选中要删除的宏方案，单击“删除”按钮 删除完后单击“关闭”按钮来关掉管理器窗口
"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
怎么在线将pdf转换成word
怎么在线将pdf转换成word 将pdf转换成word有可以在线转换的转换器,在线的不需要下载就可直接将文档转换成目标格式文件. 方法 1首先需要访问在线pdf转换器,可直接搜索进入. 2打开在线pdf转换器后选择对应的转换模式. 3添加需要转换的pdf文件,上传到在线转换器. 4点击生成按钮,等待转换完成后即可下载转换好的文件.
