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

xml00

我将GBK汉字贴到顶楼的文件中，开始注音时，发出出错报告，Excel随之自行关闭。

是一字一行的。

这应该是一个大BUG。

ttui

to xml00

没太明白你说的操作，可以的话请提供你贴的GBK汉字。
从原理上讲，代码是在操作ole对象，一般出错的话也不会导致excel退出。不过由于程序有内存操作，在64位系统上会出现问题，可能导致excel崩溃，不知是不是你的情况。

xml00

哦，就是向下复制时会出错，一个一个地粘贴就没问题。

顺便说一句，我的微软拼音输入法在输入法语言栏里是没有的（专门删除的），会不会是这个原因？

文件里的单字是全部GBK汉字。

[此贴子已经被作者于2008-2-20 12:57:53编辑过]

xml00

我的操作系统是Win Xp sp2.

ttui

xml00
我用你的文件测试了一下没出现崩溃的情况。
猜测你那里出问题原因可能是：1.微软拼音版本较低；2.cpu较慢；3.其他程序或addin之类的影响了excel。
从输入法列表删掉微软拼音是不会影响程序运行的。

因为字太多，直接用函数计算的话因为每次都要创建销毁类导致非常花时间，
针对你表的格式帮你写了段vba，非常好理解。如果还有其他字需要注音可以参考代码。

 

xml00

非常感谢楼主。我刚刚开始学VBA，希望以后多指教。

我试了一下你提供的文件，按“按钮1”的时候也出现了崩溃的现象。

[此贴子已经被作者于2008-2-20 15:54:31编辑过]

ttui

这个问题就麻烦了，是类模块中MoveMemory函数调用出现了问题，不好说是什么引起的。这个错误在我用过的机器上没有出现过，没办法重现的话，就很难解决了。试一试其他的机器有没有这个问题。

xml00

QUOTE:

以下是引用ttui在2008-2-20 17:23:17的发言：
这个问题就麻烦了，是类模块中MoveMemory函数调用出现了问题，不好说是什么引起的。这个错误在我用过的机器上没有出现过，没办法重现的话，就很难解决了。试一试其他的机器有没有这个问题。

好的，我到别的机器上试试看。

另外，我给你发了短信，是我的一些资料，请参考。

yangliuzhu

hz2py()函数制作的非常好，解决了原有ASC（）函数不能完全给汉字加拼音的的问题，经我实验，以前的难字都解决了，但这里提一个小问题，就是“许”字，在使用了函数后，结果是“浒”的拼音，这里就不对了，查了字典，“许”字没的“浒”的读音。不知如何处理。后来看作者说明是调用了WORD的里的汉字拼音功能，对果在WORD中输入“许”字用拼音批南，还是“浒”的拼音，但是，如果打上“许多”词，拼音就正确了。另外对于一字多音字如何处理，如"解",有时也念“谢”的音，如何处理。方便请作者对这个问题进行解释和处理一下。

谅谅之友

好东东，要顶。

先用，有空学习。