这部分代码提示红的无法运行示若在64位系统上运行检查并更新declare

71336285

Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
        (Destination As Any, Source As Any, ByVal Length As Long)

Private Declare Function CLSIDFromString Lib "ole32.dll" _
        (ByVal lpszProgID As Long, pCLSID As GUID) As Long

Private Declare Function CoCreateInstance Lib "ole32" ( _
        rclsid As GUID, ByVal pUnkOuter As Long, _
        ByVal dwClsContext As Long, riid As GUID, _
        ByRef ppv As Long) As Long

Private Declare Function DispCallFunc Lib "oleaut32" _
        (ByVal pvInstance As Long, ByVal oVft As Long, _
        ByVal cc As Long, ByVal vtReturn As Integer, _
        ByVal cActuals As Long, prgvt As Integer, _
        prgpvarg As Long, pvargResult As Variant) As Long

Private Declare Sub CoTaskMemFree Lib "ole32" (pv As Long)


这是论坛上 [解决多音字]汉字转拼音的完美解决方案[12.11.29更新] 帖子的代码


帮忙看一下这怎么解决

大灰狼1976

Declare后面加PtrSafe试试

ykcbf1100

这样你试一下：
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" PtrSafe _
    (Destination As Any, Source As Any, ByVal Length As LongPtr)

Private Declare Function CLSIDFromString Lib "ole32.dll" PtrSafe _
    (ByVal lpszProgID As LongPtr, pCLSID As GUID) As Long

Private Declare Function CoCreateInstance Lib "ole32" PtrSafe _
    (rclsid As GUID, ByVal pUnkOuter As LongPtr, _
    ByVal dwClsContext As Long, riid As GUID, _
    ByRef ppv As LongPtr) As Long

Private Declare Function DispCallFunc Lib "oleaut32" PtrSafe _
    (ByVal pvInstance As LongPtr, ByVal oVft As LongPtr, _
    ByVal cc As Long, ByVal vtReturn As Integer, _
    ByVal cActuals As Long, prgvt As Integer, _
    prgpvarg As LongPtr, pvargResult As Variant) As Long

Private Declare Sub CoTaskMemFree Lib "ole32" PtrSafe _
    (pv As LongPtr)