Word uses VBA to quickly enter pinyin

Enter the corresponding vowel plus tone, and then use VBA to unify the replacement, which is much faster.

such as: She1ng dia4o

When selected, run the following macro to get:

Shēng Diào

It is especially useful for pinyin to be entered in the primary language class at times. Consider putting the macro in the corresponding template.

The VBA code is as follows:

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 ("Do", "á", "ǎ", "à", _

"Ō", "Æ", "ǒ", "driving", _

"ē", "é", "ě", "È", _

"ī", "í", "ǐ", "ì", _

"Were thinking", "ú", "ǔ", "Ù", _

"Ǖ", "Ǘ", "Ǚ", "Ǜ")

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