word 中右键添加百度 搜索

[lsh6688]

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


运行后word中确实有了 百度 谷歌
但是使用的时候说由于宏安全设置 无法找到宏 或宏被禁用

[laoyebin]

把宏安全性设成“低”

[lsh6688]

怎么设置才行 具体一点谢谢

[lsh6688]

[liufudao]

为什么我按照上面的步骤来过之后右键点击 BAIDU显示，由于宏安全设置，无法找到宏或烘被禁用
【word 2007】