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

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

2、直接加入一下代码

Private Sub Document_Close()

    On Error Resume Next

    Application.CommandBars("Text").Controls("百度搜索").Delete   '恢复原有菜单

    Application.CommandBars("Text").Reset '重新设置右键菜单,彻底恢复默认设置

 End Sub

 Private 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 With

 End Sub

Sub BaiduSearch()

    Dim sSearch$, sSel$

    sSel = Trim(Selection.Text)

     sSearch = "explorer " & Chr(34) & "http://www.baidu.com/baidu?tn=Juncox&word=" & sSel & Chr(34)

      Shell sSearch

End Sub

3、点击保存，看图

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

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