word用VBA快速输入拼音

发布网友 发布时间：2024-09-03 11:18

我来回答

共1个回答

热心网友 时间：2024-10-10 03:34

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

热心网友 时间：2024-10-10 03:34

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

热心网友 时间：2024-10-10 03:34

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

热心网友 时间：2024-10-10 03:34

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

热心网友 时间：2024-10-10 03:34

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

热心网友 时间：2024-10-10 03:35

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