[解决多音字]汉字转拼音的完美解决方案[12.11.29更新]

zx26ben

太强大了 你们

lexusninny

高手高手，多谢！

laichung

謝樓主程式~

加一句, 令 "標點" 或者那些 "不能轉換的字" 直接輸出 (當然最好在函数加一個参数控制)
方便整篇文章轉換

Public Function GetPinYin(HzStr As String) As String
    Dim i As Integer
    Dim tmpStr As String
   
    GetPinYin = ""
    If HzStr <> "" Then
        If pvUseSeperator Or pvInitialOnly Then
            For i = 1 To Len(HzStr)
                tmpStr = IFELanguage_GetMorphResult(Mid(HzStr, i, 1))
                If tmpStr <> "" Then
                    If pvInitialOnly Then
                        GetPinYin = GetPinYin & GetInitial(tmpStr) & pvSeperator
                    Else
                        GetPinYin = GetPinYin & tmpStr & pvSeperator
                    End If
                Else: GetPinYin = GetPinYin & Mid(HzStr, i, 1) '直接輸出未能轉換的字
                End If
            Next
            If Len(GetPinYin) > 0 Then GetPinYin = Left(GetPinYin, Len(GetPinYin) - 1)
        Else
            GetPinYin = IFELanguage_GetMorphResult(HzStr)
        End If
    End If
End Function

chentx

利害利害，需要顶起来，让大家都见识到VBA也能做到其他语言能做到的事，长见识了！！

hewlett99

ding ,太佩服楼主了

wangshen

怎么使用啊？

hhzjxss

谢谢楼主的好函数，收藏了！

coby001

强人啊.不得不服.

987654321

高手!!!!!!!!!!!!!!!!!!!!!!!!

cpawei

太强了  但能不能不带音调标识呢？