WIN7技巧：[11]为word右键添加百度搜索

1、首先按 alt+F8调出宏，点击创建看图

2、直接加入一下代码Private Sub Document_Close() On Error Resume Next Appl足毂忍珩ication.CommandBars("Text").Controls("百度搜索").Delete '恢复原有菜单 Application.CommandBars("Text").Reset '重新设置右键菜单,彻底恢复默认设置End SubPrivate Sub Document_Open() On Error Resume Next Dim BtnBaidu As CommandBarButton Application.CommandBars("Text").Controls("Baidu搜索").Delete '预防性删除 Application.CommandBars("Text").Reset '重新设置右键菜单,彻底恢复默认设置 Set BtnBaidu = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=1) '第一项 With BtnBaidu .Caption = "&百度搜索" '命令名称 .FaceId = 81 '命令的FaceId .Visible = True '可见 .OnAction = "BaiduSearch" '指定响应过程名 End WithEnd SubSub BaiduSearch() Dim sSearch$, sSel$ sSel = Trim(Selection.Text) sSearch = "explorer " & Chr(34) & "http://www.baidu.com/baidu?tn=Juncox&word=" & sSel & Chr(34) Shell sSearchEnd Sub

3、点击保存，看图

4、关闭窗口，回到word，按 alt+F8调出宏，点击运行，看图

5、关闭对话框，回到word。选中一段文字，右击菜单出现百度搜索。点击百度搜索即可。看图。