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

bmdsjxyw

奇怪了，我在WinXp + office2010测试居然不可用，显示为：#VALUE!

ttui

唉，没有环境重现错误，如果哪位报错的同学能跟踪出是哪条语句出错就好了，也好有针对性的想办法解决。

Samsea

ttui 发表于 2011-9-27 15:09
唉，没有环境重现错误，如果哪位报错的同学能跟踪出是哪条语句出错就好了，也好有针对性的想办法解决。

建议把 模块1 改名为 Module1. Win7某些版本遇到《模块1》，会出现模块丢失问题。
发现: 在带函数工作簿可以使用。但在同一窗口中另外工作簿就不可以使用HzToPy这个函数。不知是否就是如此。最好在同一窗口中也可以使用HzToPy这个函数。

ttui

Samsea 发表于 2011-9-27 14:12
建议把 模块1 改名为 Module1. Win7某些版本遇到《模块1》，会出现模块丢失问题。
发现: 在带函数工作簿 ...

其他工作簿不能用HZToPy函数是必然的，除非改成加载宏，如果希望在别的工作薄使用这个函数，可以把工作薄另存为“加载宏”，然后在加载项管理中勾选NewHZToPY那项就可以了。
但你说的两种情况不应该是前面回帖说的#VALUE问题的原因。因为在其他工作薄使用HZToPy函数，或者模块丢失了，EXCEL应该报#NAME？错误，不过还是感谢你的回复。

wangyuicq

谢谢楼主啊，正需要呢^_^

dul

ttui 发表于 2011-9-27 13:09
唉，没有环境重现错误，如果哪位报错的同学能跟踪出是哪条语句出错就好了，也好有针对性的想办法解决。

显示#VALUE!，问题就这条IFELanguage = 0：
Private Function IFELanguage_GetMorphResult(HzStr As String) As String
...
    If IFELanguage = 0 Then Exit Function

IFELanguage接口l来自微软拼音MSIME.China类，因此应该要安装微软拼音输入法吧？

ttui

dul 发表于 2011-9-29 10:45
显示#VALUE!，问题就这条IFELanguage = 0：
Private Function IFELanguage_GetMorphResult(HzStr As Str ...

没错，因为装了Office的机器一般默认都装微软拼音，所以就没有检测是否存必须的运行环境，看来这里还是做点处理，提示用户必须安装微软拼音比较好，谢了dul版

lhw78535

学习学习，感谢楼主。

as2008

厲害啊，謝謝分享！

sunxh

谢谢分享！