Удаление ранее созданого меню

[Ципихович Эндрю]

Здравствуйте, ранее создал меню в отдельном файле Ворда, теперь изменить\избавиться не могу, пробую так:

Sub Удаление_меню()

    Dim strTag As String
    Dim i As Long

    strTag = "MyControl"

    'MsgBox$ Application.CommandBars("Menu Bar").Controls.Count

    On Error Resume Next
    For i = 1 To Application.CommandBars("Menu Bar").Controls.Count
        'удаляет ранее созданные меню
        Application.CommandBars("Menu Bar").FindControl(Type:=msoControlPopup, Tag:=strTag, Recursive:=True).Delete
        Application.CommandBars("Menu Bar").FindControl(Type:=msoControlButton, Tag:=strTag, Recursive:=True).Delete
    Next i
    On Error GoTo 0

End Sub

и какая разница в этих двух строках:

Application.CommandBars("Menu Bar").FindControl(Type:=msoControlPopup, Tag:=strTag, Recursive:=True).Delete
и
Application.CommandBars("Menu Bar").FindControl(Type:=msoControlButton, Tag:=strTag, Recursive:=True).Delete

Одним словом, знал да забыл как, так как же??

[Sasha_Smirnov]

Да уж, не вырубишь топором! Ну можно же с документом расправиться!

[Ципихович Эндрю]

ну да, следующий вопрос какой будет знаете?
ладно не торопитесь отвечать , думаю, найду всё сам

а вопрос в первом посте в силе и не думаю, что он сложен

[Ципихович Эндрю]

блин, не вспоминается, прошу помощи
смысл такой
открываю ранее уже сохранённый документ Ворда в нём в его модуле ThisDocument макросом добавляю меню правее меню Справка. Закрываю этот файл, открываю всё ОК!
Но в других документах это меню тоже есть, такое впечатление как будто я запускал не в ThisDocument а в Normal.dot, что за ересь если мне надо в нескольких документах разные меню как быть? и если мне надо в автозагрузку нужного документа повесить код, чтобы в зависимости от ситуации разное меню, как быть?
Как то я добивался этого но изъян в том, что Нормал.дот пересохраняется, лично для меня это не приемлимо

[Ципихович Эндрю]

Всё вспомнил, меню в Ворде добавляется вручную

Сервис Настройка Команды
В столбце категории - Указать Новое меню
Из столбца Команды мышью захватить это новое меню и перетащить, например, правее меню Справка
Сохранить в - Указать, например этот документ, там отображается имя документа
Когда открыта форма Настройка можно навести на нужное меню, выделиь его и можно
Удалить Переименовать
Если указать имя меню: &Новое меню, оно будет отображено как: "Новое меню", что означает, что букве "Н" присвоена горячая клавиша, она выполняется вместе с клавишей Alt

Как указать текст подсказки к этому меню, это когда на меню наводится курсор, подсказка появляется? Ворд 2003
Спасибо

[Ципихович Эндрю]

я уже давно понял, что меню в Ворда можно добавлять только вручную, но примеры манят http://www.sd-company.su/article/vba/menu_creation

Dim CstmBar As CommandBar
Set CstmBar = CommandBars.Add(Name:="Головнoe меню", _
Position:=msoBarTop, MenuBar:=True, Temporary:=False)

Application.CommandBars.Add Name:="Имя головного меню", _
MenuBar:=True, Temporary:=True

Dim CstmCtrl As CommandBarControl
Set CstmCtrl = CstmBar.Controls.Add(Type:=msoControlPopup, Before:=1)
CstmCtrl.Caption = "&Ввод документов"

и не рабатают
???????

[Пименов Александр]

Сообщение от Ципихович Эндрю

я уже давно понял, что меню в Ворда можно добавлять только вручную, но примеры манят

Так то пример для 2003

[Ципихович Эндрю]

у меня Ворд 2003, не работает

[Ципихович Эндрю]

вообще горю, доигрался, этим кодом

Dim CstmBar As CommandBar

'Выключаем все панели

For Each CstmBar In CommandBars

CstmBar.Enabled = False

Next CstmBar

скрыл меню, вернуть обратно не могу, переустановка Оффиса не помогла, иду ко дну

[Ципихович Эндрю]

востановил меню, выложили на другом форуме чудо файл, всё остальное в силе