+ -
当前位置:首页 → 问答吧 → 在线标注音标和解释单词发音,无需词典 兼自定义Word右键菜单

在线标注音标和解释单词发音,无需词典 兼自定义Word右键菜单

时间:2009-04-22

来源:互联网

从Internet获取单词的读音音标和解释。同时演示自定义Word右键的方法
本工具是Word音标助手的附加产品,因为tangqingfu兄的一些要求,让我学会了自定义Word右键菜单,因为词库数量的限制就想如何利用网络上的资源。正好http://dict.cn/ws.php?q=Word (浏览器输入时等号右边是具体单词)提供了单词的音标解释和发音。可以作为很好的补充工具,就产生了编写的想法。需要用的xml的知识,搜索了一下,就拼凑成了。
但是在具体测试中发现远程直接读取xml中信息的代码竟然通不过,不知道为什么?就先下载到临时文件,然后再读取。
需引用microsoft xml ,如果提示错误,把msxml6.dll文件复制到系统system32目录即可。
请大家帮忙看看代码是否可以简化,谢谢。

[ 本帖最后由 wjhere 于 2009-4-23 18:59 编辑 ]

附件

在线词典.rar(496.58 KB)

2009-4-23 18:59, 下载次数: 184

修正了一些错误

作者: wjhere   发布时间: 2009-04-22

测试一下,发现提示“编译错误:找不到工程或库”,位置位于“strWord = Trim(Sel.Words.First)”中的Trim

作者: tangqingfu   发布时间: 2009-04-22

需引用microsoft xml ,如果提示错误,把msxml6.dll文件复制到系统system32目录即可。到一楼下载更新文件。

作者: wjhere   发布时间: 2009-04-22

To wjhere兄:
按您说的要求,将msxml6.dll文件复制到系统system32目录,覆盖原来的msxml6.dll后,再打开“在线词典”文档,就打开VBE,弹出“发现提示“编译错误:找不到工程或库”,点击“确定”,发现位置位于(可使用的引用中的)“Microsoft XML,v6.0”,其位置是:C:\Windows\System 32\msxml6.dll
请教wjhere兄是怎么回事?

作者: tangqingfu   发布时间: 2009-04-22

现在可以使用了吗?我的机子是正常的呀,下载新的附件试试。

作者: wjhere   发布时间: 2009-04-22

谢谢wjhere兄!
还是出现同样的问题,但将"引用—Project"中的"丢失:VB 6 application Wizard"前的“勾”去除,则可正常使用。有没有好的解决办法?

作者: tangqingfu   发布时间: 2009-04-22

测试了一下,发现同样是名词的复数形式,有些可以标注其音标(其单数形式的),有些不能。
如rabbits可以,而animals则不行。是不是有些有收录,有些没有收录呢?
weeks可以标注音标及其发音(复数),但解释不对。
看起也只能是作为辅助工具参考一下。

作者: tangqingfu   发布时间: 2009-04-22

tangqingfu兄说得对,但是它的词库量大,不必为我们原来的2万多词库发愁了。除了变体单词不一定有音标外,大多数还是有的,带有意思也很好,且可以插入例句。可惜音标系统不同,如果能够编程把这个音标转换成我们工具的音标就更好了,可以设置为13版和14版。
只还有一个好消息就是,修改一下代码就可以实现您说的中文到英文的查询。如 http://dict.cn/ws.php?q=苹果 ,就可以获得单词apple,及相关东西。
还有,如果qingfu兄想练习com加载项的编写,这就是一个例子。只是在vb中把变量的定义和删除都放在AddinInstance_OnConnection和AddinInstance_OnDisconnection中。我的意思是如果我们在平时编写Word代码时就可以通过定义类似
Dim WithEvents wdApp As Word.Application
并在适当时候建造这个对象
Set wdApp = Word.Application
当然这个定义可以是public,vbe中我在修改代码后这个对象就丢失了。所以才在Word中用了个按钮来启动,当修改代码后需要点一次。在dll中就不会发现类似的情况,知道您设置为nothing
这样做的目的是当我们想移植到dll中的时候是非常方便的,而且在Word中测试代码要不vb6加载项中方便得多。
这是我的一点体会,不当之处请指教。

[ 本帖最后由 wjhere 于 2009-4-22 20:41 编辑 ]

作者: wjhere   发布时间: 2009-04-22

看来wjhere兄还有很多功夫还没使出来,希望能陆续看到wjhere兄的作品问世!
练习com加载项的编写还不敢奢望!先试着找些资料学学!

作者: tangqingfu   发布时间: 2009-04-22

引用:
原帖由 tangqingfu 于 2009-4-22 20:03 发表
谢谢wjhere兄!
还是出现同样的问题,但将"引用—Project"中的"丢失:VB 6 application Wizard"前的“勾”去除,则可正常使用。有没有好的解决办法?
可能是引用了vb的库,而您的电脑没有安装vb,而这个库在程序中并不需要。

作者: wjhere   发布时间: 2009-04-23

谢谢wjhere兄的解答!下次装一下VB后再试试!

作者: tangqingfu   发布时间: 2009-04-23

从头到尾看了两位的对话,太高深。多踩向下。

作者: rocking2008   发布时间: 2009-11-29

我要在google字典或百度词典,不使用Dict_CN 海词,使用在线加音标, 请问程序要如何改才可以能用呢?
我要标注DJ英音 and KK美音音标
谢谢你帮忙指导
http://dict.baidu.com/
http://www.google.com/dictionary

作者: michaelboy   发布时间: 2010-09-25

这个工具经测试了一下,觉得很强悍!做得很好!

作者: lanxixin   发布时间: 2011-03-24