如何彻底屏蔽右键选项

wfstuman · 发表于 2006-11-21 19:11

Sub test()
Application.CustomizationContext = ActiveDocument
For Each mycontrol In Application.CommandBars("Text").Controls
mycontrol.Delete
Next mycontrol
End Sub

我使用如上代码屏蔽右键选项,使选择一段文字后点右键没有选项出现,但是当选择某个表格内的文字时,右键选项仍会出现,请问有什么办法彻底屏蔽右键菜单,使右键在任何地方都失效?谢谢!!

mRJNIGBo.rar (6.15 KB, 下载次数: 48)

konggs · 发表于 2006-11-21 20:19

Application.CommandBars("table Text")

还有三个。

'Linked Text
'WordArt Context Menu
'Text Wrapping

[此贴子已经被作者于2006-11-21 20:22:38编辑过]

poilkjmnb123 · 发表于 2008-10-8 10:40

学习了！！

aztek · 发表于 2008-10-9 11:39

受教了，虽然这样屏蔽了右键但还是由一个空白框的，如何去掉空白框呢？

minsoft · 发表于 2008-11-13 16:28

我在Word2003中是这么做的

Dim i As Integer
With ActiveDocument
      For i = 1 To .CommandBars.Count
         If .CommandBars(i).Type = 2 Then
            .CommandBars(i).Enabled = False
         End If
      Next
End With

		自动登录	找回密码
密码			免费注册