请教大家WORD中如何实现网络搜索

盖棺

请教大家WORD中如何实现网络搜索



最近因为有很多word的古汉语文本需要查询不少词汇的意思，但是如果一一复制再粘贴到百度中，效率比较低。

所以想问问大家能否实现如浏览器里边的拖拽搜索或者右键添加百度搜索，选定词汇后右键菜单中出现百度选项，进行直接搜索。

不知道如何实现这个小功能，希望大家帮助我下，感激大家了。

bibisin

在WORD选择要查找的词语，即使之呈反白状态，按住ALT键，再用鼠标点击已选择的词语
在右侧会出现信息检索框，选择Bing搜索(没有提供Baidu)
其下就会搜索出相关的网页了

tangqingfu

献上sylun兄的代码。
（PS：关于将命令整到右键中，请以“右键”为关键字进行搜索。）
Sub mySearching()
    '以选中内容为搜索关键词
    Dim mySearchEngine As String
    'mySearchEngine = "http://www.google.cn/search?hl=zh-CN&q="  'Google搜索
    mySearchEngine = "http://www.baidu.com/s?wd="  '百度搜索
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & mySearchEngine & Selection.Text, 1
End Sub

[ 本帖最后由 tangqingfu 于 2010-10-10 21:14 编辑 ]

盖棺

首先感谢bibisin先生的帮助，非常的感谢，我自己尽管买了一两本word的书，一直没有认真系统学习，最近正准备加强学习。
bibisin先生提供的方法基本已经能够满足我的日常查阅了，再次的感谢您。

同时也感谢tangqingfu 先生提供的方案，但是我不太会用，是将代码复制到宏里边吗？我以前自己弄过，但是把word搞出问题了。我再摸索下，非常的感谢您。

也感谢温斗斯诶克斯的回应，但是我没有看明白你的回答。

盖棺

感谢楼上三位提供方案的朋友，也促使我努力学习这方面的知识。bibisin先生的方案已经够我用了，我就是日常查询word里边古汉语的一些词汇，这样效率会高很多。