word右键加入百度搜索

发布网友

我来回答

共3个回答

热心网友

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 BtnBai As CommandBarButton

    Application.CommandBars("Text").Controls("Bai搜索").Delete   '预防性删除

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

    Set BtnBai = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=1) '第一项

    With BtnBai

      .Caption = "&百度搜索" '命令名称

      .FaceId = 81             '命令的FaceId

      .Visible = True           '可见

      .OnAction = "BaiSearch"       '指定响应过程名

    End With

 End Sub

Sub BaiSearch()

    Dim sSearch$, sSel$

    sSel = Trim(Selection.Text)

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

      Shell sSearch

End Sub

3.点击保存，看图

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

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

热心网友

其实我们可以在Word中编写一段“宏，”直接启动IE，并自动打开搜索引擎主页，用起来很方便。

第一步：启动Word，按下Alt+F8组合键打开“宏”窗口。在“宏名”中输入搜索引擎的名称，如“Bai”(这里以添加百度为例，其他搜索引擎的建立方式与此类似)，然后单击“创建”按钮，打开Visual Basic编辑器。

第二步：在“Sub Bai()”与“End Sub”之间输入如下代码：

shell"C：Program FilesInternet Exploreriexplore.exe http://www.baidu.com"

如图1所示，单击工具栏上的“保存”按钮，将代码保存在“通用”模板中。

图1 Word的宏窗口
第三步：关闭Visual Basic编辑器返回Word主界面，点击“工具→自定义”菜单命令，打开“自定义”窗口，切换到“命令”选项卡，然后在“类别”中选择“宏”，并在右侧“命令”中选择“Nomail.NewMacros.Bai”，并把它拖放到工具栏适当的位置，在工具栏上右击按钮，选择“命名”，给该按钮起一个名字，如：“百度搜索”，完成之后关闭“自定义”窗口。

第四步：当需要在网上搜索资料时，只要单击工具栏上的“百度搜索”按钮，就会自动打开IE并出现百度的搜索页面了。

热心网友

好像要装百度工具栏吧 安装后 鼠标右点 就可以了