1 Тема от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Тема: Запустить макрос, но не с Нормал дот

Можно ли и как указать инструкцию на VBA, чтобы запускался не с Нормал дот, а с другого шаблона?
Видимо там ещё надо указывать адрес, где он находится?

Я пишу:
Application.Run "ЦЭ.Интерфейс.Кнопка_пользователь"
И:
Application.Run "TemplateProject(ЦЭ).Интерфейс.Кнопка_пользователь"

А мне сообщение Не удаётся запустить указанный макрос
Так ведь ЦЭ.dot находится в папке автозагрузки: C:\Documents and Settings\user1\Application Data\Microsoft\Word\STARTUP
И там имеется модуль Интерфейс, а в нём макрос Кнопка_пользователь

В левом верхнем углу проекта имеется
TemplateProject(ЦЭ)

Только нажав на него получаю сообщение
Project Locked
Project is unviewable Проект не просматривается
Но он не закрыт!
Как правильно?

2 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Re: Запустить макрос, но не с Нормал дот

Посмотрел по сайту, нашёл вопрос от mikkelle от 22.06.2010
Тема: Подключение общих шаблоновПодскажите, каким образом можно при открытии ранее созданного документа автоматически подключать (уточняю: не присоединять) требуемый шаблон?
Вроде тот же вопрос, что и у меня?
Но попробовал, как там указано, не получилось???

3 Ответ от viter.alex

  • Запустить макрос, но не с Нормал дот
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

Re: Запустить макрос, но не с Нормал дот

А вот этот макрос, Кнопка_пользователь, он случайно не Private?

Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

4 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Re: Запустить макрос, но не с Нормал дот

сделал вместо:
Application.Run "ЦЭ.Интерфейс.Кнопка_пользователь"
Так:
Application.Run "Кнопка_пользователь"
И всё пошло!!!!!!

5 Ответ от Вождь

  • Запустить макрос, но не с Нормал дот
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181

Re: Запустить макрос, но не с Нормал дот

Ципихович Эндрю пишет:

Application.Run "ЦЭ.Интерфейс.Кнопка_пользователь"

Команды для запуска с  помощью Run:

Run "Макрос"
Run "Модуль.Макрос"
Run "Проект.Модуль.Макрос"
Run "'Мой документ.doc'!Модуль.Макрос"

Указывается или проект или файл.
Имя проекта читаем в VB (Alt+F8) в окне Prorepties (F4), предварительно выбрав проект в окне Project (Ctrl+R).

Отредактировано Вождь (08.07.2010 04:52:51)

Макросы под заказ и готовый пакет - mtdmacro.ru

СайтВождь

6 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Re: Запустить макрос, но не с Нормал дот

Вождь пишет:
Ципихович Эндрю пишет:

Application.Run "ЦЭ.Интерфейс.Кнопка_пользователь"

Команды для запуска с  помощью Run:

Run "Макрос"
Run "Модуль.Макрос"
Run "Проект.Модуль.Макрос"
Run "'Мой документ.doc'!Модуль.Макрос"

Указывается или проект или файл.
Имя проекта читаем в VB (Alt+F8) в окне Prorepties (F4), предварительно выбрав проект в окне Project (Ctrl+R).


Вот эту строку:
Run "'Мой документ.doc'!Модуль.Макрос"
Пожалуйста получше напишите, имеется ввиду кавычки, апостроф, восклицательный знак, а возможно у Вас ошибка

7 Ответ от Вождь

  • Запустить макрос, но не с Нормал дот
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181

Re: Запустить макрос, но не с Нормал дот

Ципихович Эндрю пишет:

Run "'Мой документ.doc'!Модуль.Макрос"
Пожалуйста получше напишите, имеется ввиду кавычки, апостроф, восклицательный знак, а возможно у Вас ошибка

Ошибки нет. Даю пример рабочего кода. Запуск макроса AAAA находящегося в модуле Test файла Normal.dot:

Sub A()
    Application.Run "'Normal.dot'!Test.AAAA"
End Sub
Макросы под заказ и готовый пакет - mtdmacro.ru

СайтВождь