EXCEL汉字转拼音怎么转
发布网友
发布时间:2022-04-19 12:32
我来回答
共4个回答
热心网友
时间:2022-04-12 02:08
汉字转拼音的完美解决方案~
err...至少是比较完美
经测试在office xp,2003,2007通过。
'***************************************************************************
'*
'* MODULE NAME: HzToPy
'* AUTHOR & DATE: tt.t
'* 29 March 2007
'*
'* Usage: Function HzToPy(HzStr as String) as String
'* e.g. Msgbox HzToPy("奥斯") will display ao4si1 with mspy2.0
'*
'*
'* DESCRIPTION: 将中文字符串转换为拼音,就这些~
'* 有汉字得到拼音其实并不是我很关心的一个问题,只是发现已经公开
'* 的方法有很大的缺陷,但WORD却做得很好,因此才尝试解决这个问题。
'* 过程比我预期的要曲折的多,主要是VBA实在是一种很受*的语言。
'* 不过好在有Google和Olldbg,难题也仅仅是如何找到绕过*的途径,
'* 终于在5个小时内搞定了一切~
'* 时间比我预计的长了很多,因为我实在是不了解VBA,也不很熟悉OLE:"(
'* 不过好在一切都解决了~~终于从VBA小白成长了一些。
'* 其实VBA也是很强大的~
'*
'* Theory: 废话了好多还是说说原理吧,虽然不是每个人都很关心~
'* WORD的拼音向导能够将汉字转成拼音全是倚仗微软拼音的帮助,
'* 微软拼音2.0以上版本都提供了汉字到拼音的转换功能。
'* 微软拼音MSIME.China类中的IFELanguage接口具体实现了转换功能
'* 不过MSIME.China中没有提供IDispatch接口,VBA的CreateObject不支持
'* 调用这样的类,因此我们只好手工调用。CoCreateInstance可以创建类
'* 并获取IFELanguage接口,但我们无法直接调用,因为VBA不知道如何调用
'* IFELanguage接口的Method。这里困扰了我好久,原本希望能向其他语言那样
'* 声明接口结构,但VBA并不支持。万般无奈下只好在OLE相关DLL中寻找,期待能
'* 找到代理函数简介调用接口的Method。呵呵~功夫不负苦心人终于在OLEAUT32中
'* 找到了DispCallfunc。Google了一下,果然是我需要的。接口知道了,如何调用也
'* 清楚了,剩下的问题就是如何取得转换后的结果。IFELanguage.GetMorphResult会将
'* 转换的结果存在一个叫做tagMORRSLT的结构中,并返回指向tagMORRSLT的指针。
'* 新问题又来了,VBA不支持指针...sigh,为什么其他语言很容易实现的功能VBA用起来
'* 就这么烦呢~幸好VBA读取内存的*也好突破,只需调用ntdll的RtlMoveMemory。
'* 好了~一切*都已解除,HzToPy终于正常工作了~~
'* 说起来一切顺理成章,可是寻找解决方法的过*的很痛苦,不过VBA经验值大涨也算有所收获。
'* 下面就让代码来说话吧。
'*
'*
'***************************************************************************
关键字:汉字 注音 拼音 IFELanguage vba DispCallfunc OLE
在废话一下,用windows ime api也可以实现汉字到拼音,但是在WINPY.ime中有个bug,
而且在2000 sp4~xp sp2一直存在,就是必须要将winnt\system32\winpy.mb考到系统盘根目录下才行。
这个bug存在了如此长的时间,估计是MS有意为之,鄙视一下。第二次更新:2007.04.05
似乎大家更喜欢直接使用函数而不是DIY,那就提供一个完整的函数供大家使用了 〔详细说明请看文件〕
函数原型如下:
HzToPy(Hz As String, Optional Sep As String = "", Optional ShowNotation As Boolean = True,
Optional ShowInitialOnly As Boolean, Optional ShowOnlyOneChar As Boolean = True) As String
参数名 参数类型 说明
第1个参数 Hz 字符型 为汉字字符串
第2个参数 Sep 字符型,可选 设定拼音间隔字符,默认为空("")
第3个参数 ShowNotation 布尔型,可选 设定是否显示注音符号,默认显示
第4个参数 ShowInitialOnly 布尔型,可选 设定是否仅显示拼音首字,默认显示全部
第5个参数 ShowOnlyOneChar 布尔型,可选 设定是否仅显示拼音首字母("zh"显示为"z"),默认只显示首字母
应用举例
目标汉字: 汉字转拼音举例
1 显示用空格分开的拼音
公式: =HzToPy($b$19," ")
结果: hàn zì zhuǎn pīn yīn jǔ lì
2 显示用空格分开的拼音,同时不显示注音符号
公式: =HzToPy($b$19," ",false)
结果: han zi zhuan pin yin ju li
3 显示用空格分开的拼音,不显示注音符号,同时仅显示拼音的首字,并大写
公式: =HzToPy($b$19," ",false,true,false)
结果: H Z ZH P Y J L
4 显示用空格分开的拼音,不显示注音符号,同时仅显示拼音的首字母,并大写
公式: =HzToPy($b$19," ",false,true)
结果: H Z Z P Y J L 这里是第二次更新的文件:
参考:http://club.excelhome.net/thread-229924-1-1.html
热心网友
时间:2022-04-12 03:26
在word 和EXCEL中,都可以:
选中内容----格式---拼音指南
但,在EXCEL中,用起来不如word 中方便,可以在word中形成,再粘贴到别的地方,如粘贴到EXCEL中。
如(rú)何(hé)将(jiāng)EXCEL表(biǎo)格(gé)中(zhōng)的(de)汉(hàn)字(zì)转(zhuǎn)为(wéi)拼(pīn)音(yīn)
--------这是在word中形成的,但,在word 和EXCEL中,拼音在字的上面。
热心网友
时间:2022-04-12 05:00
没什么好办法啊,只有点小技巧,就是用替换把出现频率高的字换成拼音
热心网友
时间:2022-04-12 06:52
用VBA代码可以解决,留下你Q号,我帮你!