problems with removing menu added to Word97
-
Hi I'm creating new menu and toolbar in AutoExec sub, and removing it in AutoExit. When AutoExit executes I can see that menu and toolbar dissapear, but when I delete .dot from autostart directory and launch Word they are back. But when I manually execute AutoExit then menu and toolbar dissapear forever (strange, isn't it). Here are my subs: Sub AutoExec() Dim PKICommandBar As CommandBar Dim PKIMenu As CommandBarPopup Dim ETSIMenu As CommandBarPopup Dim lTest As Long 'menu Set PKIMenu = Application.CommandBars("Menu Bar").FindControl _ (Type:=msoControlPopup, Tag:=sMenuName) On Error Resume Next lTest = PKIMenu.Height If (lTest = 0) Then Set PKIMenu = Application.CommandBars("Menu Bar"). _ Controls.Add(Type:=msoControlPopup) PKIMenu.Caption = sMenuName PKIMenu.Tag = sMenuName On Error Resume Next PKIMenu.Controls(sETSIMenuName).Delete Set ETSIMenu = PKIMenu.Controls.Add(Type:=msoControlPopup) ETSIMenu.Caption = sETSIMenuName With ETSIMenu.Controls.Add(msoControlButton) .OnAction = "SignDocument" .Caption = "Podpisz dokument" End With With ETSIMenu.Controls.Add(msoControlButton) .OnAction = "Settings" .Caption = "Ustawienia" End With 'toolbar On Error Resume Next Application.CommandBars(sETSIMenuName).Delete lTest = 0 Set PKICommandBar = Application.CommandBars.Add PKICommandBar.Name = sETSIMenuName With PKICommandBar.Controls.Add(msoControlButton) .Style = msoButtonIconAndCaption .FaceId = 22 .TooltipText = "Podpisz dokument" .OnAction = "SignDocument" End With With PKICommandBar.Controls.Add(msoControlButton) .Style = msoButtonIconAndCaption .FaceId = 22 .TooltipText = "Ustawienia" .OnAction = "Settings" End With PKICommandBar.Position = msoBarTop PKICommandBar.Visible = True End Sub Sub AutoExit() On Error Resume Next Application.CommandBars(sETSIMenuName).Delete On Error Resume Next Application.CommandBars("Menu Bar").Controls(sMenuName).Delete MsgBox ("exit")'that's why I can see that menu and toolbar dissapear when I close Word End Sub Thanks for any help