Как сделать чтобы при запуске MSWord всегда создавалось меню

[Павел_В]

Подскажите плииззз..
У меня есть мною созданный шаблон, при запуске которого создается меню и при выборе этого меню выполняется определеная функция...

Проблема вот в чем, необходимо чтобы при запуске любого файла MSWord создавалась эта менюшка, так как это сделано к примеру (при запуске MSWord появляется меню Adobe PDF или кнопки на панели задач Lingvo)

Пробую вот что, копирую этот файл в папку C:\Documents and Settings\имя пользователя\Application Data\Microsoft\Word\STARTUPStartUp, НО ПО всей видимости при запуске MSWord этот шаблон просто прикрепляется, а функции Document_Open или Document_New не запускаются (у меня на обработку этих событий создается менюшка), И при запуске любого файла этот шаблон прицеплен и макросы доступны, но из-за того что он просто прикрепляется менюшка не создается

Буду очень признателен ....... Заранее благодарююю....

[GSerg]

Появляются потому, что они создаются при установке. Ручками.
Word не запускает автомакросы из шаблонов.

[Павел_В]

и как мне быть, подскажите позжалйста ......

[GSerg]

Создать меню в ворде при установке своей программы.

[Павел_В]

а можно поподробней или где об этом можно почитать ....
просто горю .....
заранее спасибо...

[GSerg]

На форуме. В поиске. Прекрасно освещено.

[Павел_В]

Ну серьезно битый час сижу за поиском и ничего не нашел, были такие вопросы, но они не заканчивались вразумительными ответами...
Если не сложно, помогите ...

[Павел_В]

Все оказалось очень простым:

В Module1 пишем такой код

Код: Выделить всё

Sub AutoExec()
  Application.Run "cretaeMenu"
End Sub

И процедуру "cretaeMenu" описываем можно в том же модуле....

Далее сохраняем как шаблон и копируем в C:\Documents and Settings\имя пользователя\Application Data\Microsoft\Word\STARTUP

в любом случае всем спасибо...

[FAER]

Силён не тот кто не упал, а тот кто упал, но смог подняться......

[Talker]

Павел_В
А не проще напрямую добавить панельку в template?

Код: Выделить всё

CustomizationContext = NormalTemplate

CommandBars.Add Name:="MyBar", Position:=msoBarTop
Set bar = CommandBars("MyBar")

Set ctrl = bar.Controls.Add(Type:=msoControlButton)
With ctrl
  .Caption = "First Button"
  .OnAction = "First_Function"
  .TooltipText = "бла-бла-бла"
  .DescriptionText = "бла-бла-бла"
  .Style = msoButtonCaption
  .Tag = "First_Button"
  .BeginGroup = True
End With

NormalTemplate.save

Для чистоты совести перед созданием ещё делать проверку существования этой панели и этой кнопки.

Поправьте, если ошибаюсь.