日语假名函数（ヒ语カメイカンスウ）（ひ语かめいかんすう）

ttui · 发表于 2007-4-9 12:35

原理就是微软提供了这种功能（提供了IEFlanguage接口）但是没有做成现成的函数（好像日文office里有现成的类）供我们调用。
我只是利用已有的功能做成个易用的函数，仅此而已。

如果对vba代码感兴趣就直接看好了，不过如果不懂基本的ole知识可能理解起来比较困难。

tmd2008 · 发表于 2007-4-9 13:27

老半天没有发现怎么个用法!

dys · 发表于 2007-4-9 18:45

此函数在windows2000下使用不能，请问怎么解决啊？

ttui · 发表于 2007-4-10 12:35

2000系统无法使用，提示“ole error”错误的解决方法

这个问题我也发现了，是由于中文2000未包含日文支持。
解决办法就是安装Global IME（Japanese）。这里给个下载链接：
http://download.microsoft.com/download/officexpstandard/imejpn/1/w98nt42kme/en-us/imejpn.exe

dys · 发表于 2007-4-10 18:46

公司里的电脑安装不了任何东西，我没权限。但电脑里有日文输入法啊，但好象windows是英文版的，但可以改成日文，中文，英语操作系统！office也全是英文然后打个什么补丁就变成日文的了，有解决方法吗？公司的电脑里还有windows2003，可以直接从里面提取什么来用吗？

ttui · 发表于 2007-4-11 11:44

sigh~
这样试试
开始->运行:regedit回车
展开HKEY_CLASSES_ROOT项->选中展开后的第一项->直接输入msime->找找看有没有MSIME.Japan
如有,把CLSID的默认值发上来.
没有说明没有安装微软日文支持,我提供的方法不能用.

dys · 发表于 2007-4-11 21:02

好的，我明天试试看

wgjn12 · 发表于 2009-7-24 15:18

要是想实现从汉字到半角片假名的转换，该怎么改一下啊？

[ 本帖最后由 wgjn12 于 2009-7-28 15:52 编辑 ]

wgjn12 · 发表于 2009-7-28 16:16

在楼主的基础上稍微修改了一下，请大家斧正。
修正点：
1。改成了3个函数，分别是
Hankakukana(string)    漢字→半角仮名
Zenkakukana(string)    漢字→全角仮名
Hiragana(string)    漢字→平仮名
2。追加了窗体。在textbox里输入汉字，自动显示出相对应的假名。

datiancai · 发表于 2009-9-11 15:04

终于找到了，要不然还不知道该怎么办。谢谢啊

		自动登录	找回密码
密码			免费注册