Function PinYin(Hz As String)Dim PinMa, zifu, AllEn As String Dim MyPinMa As Variant Dim Temp As Integer, i As Integer, j As Integer strlen = Len(Hz)k = 0 For i = 1 To strlen If Mid(Hz, i, 1) Like "*[a-z,A-Z]*" Then Do Until Mid(Hz, k + 1, 1) Like...