能否说一些控制word中菜单项的方法;如下的vba代码执行后为何菜单项依然存在
Sub Lock_SavetySet()
Dim Bar As CommandBar
Dim DisabelControl As CommandBarControl
Dim i As Integer
Application.DisplayExcel4Menus = False
For Each Bar In Application.CommandBars
If Bar.NameLocal = "Visual Basic" Then
For i = 1 To Bar.Controls.Count
If Bar.Controls.Item(i).Caption = "安全..." Then
Bar.Controls.Item(i).visible = false
Exit Sub
End If
Next
End If
Next
End Sub