word右键添加百度谷歌搜索，word右键添加打开某个文件夹选项

http://wenku.baidu.com/view/56b5f87aa26925c52cc5bf14.html?st=1免积分下载教程

word -工具- 宏- 创建 - 添加下面代码，文件夹路径和浏览器路径自己修改

Private Sub Document_Close()

    On Error Resume Next
    Application.CommandBars("Text").Controls("Google搜索").Delete   '恢复原有菜单
    Application.CommandBars("Text").Controls("Baidu搜索").Delete   '恢复原有菜单
    Application.CommandBars("Text").Controls("work").Delete   '恢复原有菜单
    Application.CommandBars("Text").Reset '重新设置右键菜单,彻底恢复默认设置
End Sub


'----------------------
Private Sub Document_Open()
    On Error Resume Next
    Dim BtnGoogle As CommandBarButton
    Dim BtnBaidu As CommandBarButton
    Dim Btnfile As CommandBarButton
    Application.CommandBars("Text").Controls("Google搜索").Delete   '预防性删除
    Application.CommandBars("Text").Controls("Baidu搜索").Delete   '预防性删除
    Application.CommandBars("Text").Controls("work").Delete   '预防性删除
    Application.CommandBars("Text").Reset '重新设置右键菜单,彻底恢复默认设置
       
   
    Set BtnBaidu = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=1) '第一项
    Set BtnGoogle = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=2) '第二项
    Set Btnfile = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=3) '第三项
    With BtnGoogle
      .Caption = "&Google搜索" '命令名称
      .FaceId = 86             '命令的FaceId，字母G
      .Visible = True           '可见
      .OnAction = "GoogleSearch"       '指定响应过程名
    End With
    With BtnBaidu
      .Caption = "&Baidu搜索" '命令名称
      .FaceId = 81             '命令的FaceId
      .Visible = True           '可见
      .OnAction = "BaiduSearch"       '指定响应过程名
    End With
    With Btnfile
      .Caption = "&work" '命令名称
      .FaceId = 85             '命令的FaceId
      .Visible = True           '可见
      .OnAction = "CommandButton1_Click"       '指定响应过程名
    End With
End Sub


'----------------------
Sub GoogleSearch()
    Dim sSearch$, sSel$
    sSel = Trim(Selection.Text)
                                                                                                                                      
      sSearch = "C:\Documents and Settings\Administrator\Local Settings\Application Data\360Chrome\Chrome\Application\360chrome.exe ""http://www.google.com.hk/search?client=Juncox&hl=zh-CN&q=" & sSel & """"    '两种形式结果是一致的
    '  sSearch = "explorer " & Chr(34) & "http://www.google.cn/search?client=Juncox&hl=zh-CN&q=" & sSel & Chr(34)
      Shell sSearch
    
End Sub


Sub BaiduSearch()
    Dim sSearch$, sSel$
    sSel = Trim(Selection.Text)
    
      sSearch = "C:\Documents and Settings\Administrator\Local Settings\Application Data\360Chrome\Chrome\Application\360chrome.exe ""http://www.baidu.com/baidu?tn=Juncox&word=" & sSel & """"
    '  sSearch = "explorer " & Chr(34) & "http://www.baidu.com/baidu?tn=Juncox&word=" & sSel & Chr(34)
      Shell sSearch
   
End Sub
 Sub CommandButton1_Click()


mOpen = Shell("Explorer.exe E:\company\work\", vbNormalFocus)


 


End Sub