Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.07.2010, 14:43   #1
tyrus2
Пользователь
 
Регистрация: 18.04.2010
Сообщений: 11
Сообщение vba - перезагрузка темплейтов

Доброго всем дня!

Есть файлы-темплейты с макросами, которые лежат в папке application.startup, и которые автоматически запускаются при открытии любого документа word. Доступ к макросам у меня запрещен паролем.

Если произошла ошибка – макросы перестают работать (там классы, которые работают по событиям), и чтобы все заново заработало, необходимо закрыть все файлы и заново их открыть, так чтобы макросы вновь переинициализировались (идет присваивание событий и документов)

Суть вопроса следующая: как перезапустить эти темплейты (закрыть/заново открыть) с помощью vba-макроса? (хочу сделать что-то типа горячих клавишь, на которые этот макрос запуститься)

Есть подозрение что так нельзя делать, т.к. в темплейтах код активируется по AutoExec, но может быть кто-нибудь знает как это сделать? хочется облегчить жизнь пользователям.
tyrus2 вне форума Ответить с цитированием
Старый 09.07.2010, 16:02   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

Вот так:
Код:
Sub ReinstallInstalledAddIns()
  Dim ad As AddIn
  For Each ad In Application.AddIns
    With ad
      If .Installed Then
        .Installed = False
        .Installed = True
      End If
    End With
  Next
End Sub
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 09.07.2010, 17:19   #3
tyrus2
Пользователь
 
Регистрация: 18.04.2010
Сообщений: 11
По умолчанию Спасибо!

Спасибо! работает.

А я искал в application.templates
tyrus2 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перезагрузка интернета Nice42ru Помощь студентам 3 05.01.2010 22:49
перезагрузка компа lexab18 Операционные системы общие вопросы 8 07.09.2009 08:19
Перезагрузка страницы в IE Antoniusus PHP 2 25.06.2009 08:51
Перезагрузка Windows asja Компьютерное железо 1 11.05.2008 13:22
Перезагрузка LAFam Win Api 13 09.12.2007 09:15