Excel汉字转拼音的方法(2)_虫虫技术在线--技术决定出路

     dNotation = Array("a", "a", "a", "a", "e", "e", "e", "e", "i", "i", "i", "i", "o", "o", "o", _
                       "o", "u", "u", "u", "u", "v", "v", "v", "v", "v", "m", "n", "n", "n", "g")
End Sub
Private Sub GenGUID()
     InitalArray
     'MSIME.China GUID = "{E4288337-873B-11D1-BAA0-00AA00BBB8C0}"
     With MSIME_GUID
         .Data1 = &HE4288337
         .Data2 = &H873B
         .Data3 = &H11D1
         .Data4(0) = &HBA
         .Data4(1) = &HA0
         .Data4(2) = &H0
         .Data4(3) = &HAA
         .Data4(4) = &H0
         .Data4(5) = &HBB
         .Data4(6) = &HB8
         .Data4(7) = &HC0
     End With
     'IFELanguage GUID = "{019F7152-E6DB-11d0-83C3-00C04FDDB82E}"
     With IFELanguage_GUID
         .Data1 = &H19F7152
         .Data2 = &HE6DB
         .Data3 = &H11D0
         .Data4(0) = &H83
         .Data4(1) = &HC3
         .Data4(2) = &H0
         .Data4(3) = &HC0
         .Data4(4) = &H4F
         .Data4(5) = &HDD
         .Data4(6) = &HB8
         .Data4(7) = &H2E
     End With

End Sub
Private Sub IFELanguage_Open()
     Dim ret As Variant

     DispCallFunc IFELanguage, 4, 4, vbLong, 0, 0, 0, ret
     DispCallFunc IFELanguage, 12, 4, vbLong, 0, 0, 0, ret
End Sub
Private Sub IFELanguage_Close()
     Dim ret As Variant

     If IFELanguage = 0 Then Exit Sub
     DispCallFunc IFELanguage, 8, 4, vbLong, 0, 0, 0, ret
     DispCallFunc IFELanguage, 16, 4, vbLong, 0, 0, 0, ret
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''' Subroutine: GetPinYin
'''
''' Purpose:     返回汉字的拼音
'''
''' Arguments:   HzStr - 待转换的拼音
'''
'''
''' Date             Developer            Action
''' --------------------------------------------------------------------------
''' 02 April 2007    tt.t                 更正ReDim Py时的错误
'''
Private Function IFELanguage_GetMorphResult(HzStr As String) As String
     Dim ret As Variant
     Dim pArgs(0 To 5) As Long
     Dim vt(0 To 5) As Integer
     Dim Args(0 To 5) As Long
     Dim ResultPtr As Long
     Dim TinyM As TinyMORRSLT
     Dim py() As Byte
     Dim i As Integer

     IFELanguage_GetMorphResult = "" (责任编辑：admin)

搜索

热门标签:

Excel汉字转拼音的方法(2)