请问高手：能在WORD的右键菜单中插入菜单项吗？

lovesun

谢谢

daisibing

不能！！！

守柔

请在帮助中查找关键字：“添加和显示快捷菜单”，有详细介绍和示例。

lovesun

我的意思是用程序插入

守柔

Private Sub Document_Close()
On Error Resume Next
Application.CommandBars("text").Controls(16).Delete
End Sub Private Sub Document_Open()
On Error Resume Next
Dim NewButton As CommandBarButton
Set NewButton = Application.CommandBars("text").Controls.Add(msoControlButton, ID:=6)
NewButton.Visible = True
End Sub
以上代码为在文档编辑区（文本）情况下右击菜单中增加了一个为适于窗口的命令。 在关闭该文档后自动删除你可对比一下。

lovesun

to:守柔 我把上面的代码粘到编辑器中怎么没有什么变化啊?

守柔

保存后退出，重新打开即可，或者需运行Private Sub Document_Open()此模块。 请注意你的宏安全性设置应改为低。