Private Sub Document_Close()
On Error Resume Next
Application.CommandBars("Text").Controls("Google搜索").Delete '恢复原有菜单
Application.CommandBars("Text").Controls("Baidu搜索").Delete '恢复原有菜单
Application.CommandBars("Text").Reset '重新设置右键菜单,彻底恢复默认设置
End Sub
'----------------------
Private Sub Document_Open()
On Error Resume Next
Dim BtnGoogle As CommandBarButton
Dim BtnBaidu As CommandBarButton
Application.CommandBars("Text").Controls("Google搜索").Delete '预防性删除
Application.CommandBars("Text").Controls("Baidu搜索").Delete '预防性删除
Application.CommandBars("Text").Reset '重新设置右键菜单,彻底恢复默认设置
Set BtnGoogle = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=1) '第一项
Set BtnBaidu = Application.CommandBars("Text").Controls.Add(Type:=msoControlButton, Before:=2) '第二项
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
End Sub
'----------------------
Sub GoogleSearch()
Dim sSearch$, sSel$
sSel = Trim(Selection.Text)
If Len(sSel) <= 1 Then
MsgBox "选择的文本太少,不能进行搜索!" & vbCrLf & "最少两个字符!!! ", vbInformation + vbOKOnly, "Google搜索"
Else
sSearch = "explorer ""http://www.google.cn/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 If
End Sub
Sub BaiduSearch()
Dim sSearch$, sSel$
sSel = Trim(Selection.Text)
If Len(sSel) <= 1 Then
MsgBox "选择的文本太少,不能进行搜索!" & vbCrLf & "最少两个字符!!! ", vbInformation + vbOKOnly, "Google搜索"
Else
sSearch = "explorer ""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 If
End Sub
分享到:
相关推荐
VBA窗体中实现右键菜单功能, 主要是常用的复制、粘贴、剪切的实现
自定义添加excel右键菜单for vba
添加PowerPoint幻灯片右键元素时弹出的菜单
Word自定义右键菜单的VBA代码示例.docx
本程序实现了为窗体添加一个右键菜单,需要的朋友请看
TreeView-ListView右键菜单,可以再VB,VBA中使用,效果良好
《Word VBA 高效排版范例应用》将使读者对每天都要面对的Word软件有一个全新的认识,完全发挥它强大的文字处理和排版功能,并为读者提供服务。很多人不知道,其实几乎90%的用户用到了Word软件10%的功能,《Word VBA ...
【免费下载】ExcelVBA和WordVBA教程.rar
1.增删EXCEL单元格系统菜单; 2.自定义EXCEL单元格菜单; 3.VBA代码编写单元格数据有效性。
VBA新建工作表右键功能菜单源码案例.xlsm 自定义菜单
VBA 提取菜单和工具栏id号, 方便编程,也有利于程序调用office 软件
VBA设置多级下拉菜单.xlsm VBA设置动态多级下拉菜单.xlsm
NULL 博文链接:https://wang-peng1.iteye.com/blog/683138
之前我们看到用VB.NET调用Excel VBA的例子比较多,本次是使用VB.NET向Word VBA传递参数,并调用Word VBA生成Word报告或PDF文档。 在Word VBA中,可访问数据库,获得自己想展示的数据,灵活度比较高。 运行环境:VS...
在Word VBA中的几种灵活设置Range对象的方法
然后用此功能直接选择文件,就可以批量为Word文档添加水印了。 无论下面有多少层文件夹,都可以将每层文件夹里的docx和doc文件全部添加上想要的水印。 省掉重复劳动,就是节约时间,珍惜生命。
《Word VBA高效排版范例应用》将使读者对每天都要面对的Word软件有一个全新的认识,完全发挥它强大的文字处理和排版功能,并为读者提供服务。很多人不知道,其实几乎90%的用户用到了Word软件10%的功能,本书将完全...
《Word VBA高效排版范例应用》将使读者对每天都要面对的Word软件有一个全新的认识,完全发挥它强大的文字处理和排版功能,并为读者提供服务。很多人不知道,其实几乎90%的用户用到了Word软件10%的功能,本书将完全...
《Word VBA高效排版范例应用》将使读者对每天都要面对的Word软件有一个全新的认识,完全发挥它强大的文字处理和排版功能,并为读者提供服务。很多人不知道,其实几乎90%的用户用到了Word软件10%的功能,本书将完全...
《Word VBA高效排版范例应用》将使读者对每天都要面对的Word软件有一个全新的认识,完全发挥它强大的文字处理和排版功能,并为读者提供服务。很多人不知道,其实几乎90%的用户用到了Word软件10%的功能,本书将完全...