Народ, в общем засада:
Цель: Надо програмно с помощью VBA сделать макрос создающий в Ворде в меню "File" 1 пункт меню, который будет запускать макрос.

Пробовал: Запускать запись макроса и получал следующую шнягу:

CommandBars("Menu Bar").Controls.Add(Type:=msoControls.Add, Before:=6)
Type:=msoControlButton, Before:=12

CommandBars("Menu Bar").Controls(12).Move Bar:=CommandBars("File"), Before:=6)

Создаю и перемещаю этот пункт, ибо если создавать сразу в пункте файл, то вообще не реагирует на воспроизведение макроса. В этом варианте создает пустой пункт меню.

Дальше:
Dim a As CommandBarControl
Set a = Application.CommandBars("Document Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=num)

Вырезка из программного кода скопированного с этого форума по схожей теме. В хелпе впринципе тоже самое написанно.

При запуске во второй сторчке Пишет:
Run-time error '5":
Invalid procedure call or argument

Помогите чайнику разобраться пожалуйсто в чем тут ошибка?

Gotar
При запуске во второй сторчке Пишет:
Run-time error '5":
Invalid procedure call or argument



В смысле во второй строчке выдает ошибку...

big-dukeк какому бару идет добавление ?
Menu Bar или "Document Menu Bar ?
чему равен num ?
Есть ли такой бар ?


1:Menu Bar
2:Num = 6
3:Такого бара нету

Тфу забыл сказать что в меню Файлы идет добавление.

Блин я тормоз 8) Спасибо огромное терь понял... тока мне еще дофига делать нада тут, и поэтому еще пару вопросов скорее всего сюда напишу 8)