关于vba word中的 Document_Open()和Document_Close()的用法问题？？？

memoryspace

我想做一个菜单栏，打开时创建菜单，关闭时删除菜单。


用的是在打开文档是，执行Document_Open()
如下：
Private Sub Document_Open()
MsgBox "open"
'Sub test()
Set myM = CommandBars.ActiveMenuBar
Set MenuBars = myM.Controls.Add(Type:=msoControlPopup, Temporary:=True)
' Set MenuBars = myM.Controls.Add(Name:="mBar", Position:=msoBarRight, Temporary:=True)
MenuBars.Caption = "理正报告助手"
'MenuBars.Delete

Set ss = MenuBars.Controls.Add(Temporary:=True) '(Type:=msoControlButton)
With ss
.Caption = "快速生成报告"
.OnAction = "tt"
End With

End Sub


当关闭文档时，执行Document_Close()


Private Sub Document_Close()
On Error Resume Next
    CommandBars.ActiveMenuBar.Controls("理正报告助手").Delete
    MsgBox "exit"
End Sub



为什么，我的文档变成了这个样子





好像， CommandBars.ActiveMenuBar.Controls("理正报告助手").Delete不执行？？？？？？

memoryspace

谁告诉我，怎么编辑贴子。

csnAlex

你的用法不对，CommandBars.ActiveMenuBar并不能指定具体的CommandBar，给你个例子。虽然是Excel加载宏用的，但原理相同。

1. Const sMT = "超链接处理"
   
2. 
   
3. '加载时生成工具栏
   
4. Private Sub Workbook_AddinInstall()
   
5.     Dim cb As CommandBar, bFound As Boolean
   
6.    
   
7.     bFound = False
   
8.    
   
9.     For Each cb In Application.CommandBars
   
10.         If cb.Name = sMT Then
    
11.             bFound = True
    
12.             Exit For
    
13.         End If
    
14.     Next
    
15.    
    
16.     If bFound Then Exit Sub
    
17.    
    
18.     Application.CommandBars.Add sMT
    
19.    
    
20.     With Application.CommandBars(sMT)
    
21.         .Visible = True
    
22.         With .Controls.Add(msoControlButton)
    
23.             .Caption = sMT
    
24.             .OnAction = "CheckHpLink"
    
25.             .Style = 3
    
26.             .FaceId = 370
    
27.         End With
    
28.         
    
29.     End With
    
30. End Sub
    
31. 
    
32. 
    
33. '卸载时删除工具栏
    
34. Private Sub Workbook_AddinUninstall()
    
35.     Dim cb As CommandBar
    
36.    
    
37.     For Each cb In Application.CommandBars
    
38.         If cb.Name = sMT Then
    
39.             cb.Delete
    
40.             Exit For
    
41.         End If
    
42.     Next
    
43.    
    
44. End Sub
    

复制代码

memoryspace

csnAlex 发表于 2015-2-3 11:58
你的用法不对，CommandBars.ActiveMenuBar并不能指定具体的CommandBar，给你个例子。虽然是Excel加载宏用的 ...

谢谢了，要不一大堆啊