Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как подавить предупреждение?

248
31 августа 2007 года
Dmitry2064
590 / / 06.12.2006
Вопрос такой. При выполнении макроса в Ворде (он большой, там происходит глобальная замена всего и вся, расстановка тегов заговлоков, обработка предлогов и пр. кухня). Так вот при выполнении (в начале) выскакивает окно с предупреждением [COLOR="Navy"]"Недостаточно памяти. Операцию нельзя будет отменить. Продолжить?"[/COLOR]

Нельзя ли это подавить? А то ждешь, когда макрос доработает (он у меня в фоне крутится, чтобы не мелькал по глазам). Потом понимаешь, что уж слишком долго. Переключаешься на окно Ворда, а там вывешена табличка с упомянутым текстом. Время потеряно, начальство орет, голова болит и пр. сопутствующие удовольствия. И все из-за проклятой таблички. :D
251
31 августа 2007 года
SkyMаn
1.7K / / 31.07.2007
Реальный код есть? Экстрасенсорикой не балуюсь. Мож там хватит только DoEvents поставить, а может вообще код переделывать:rolleyes:
405
01 сентября 2007 года
Dmitrii
554 / / 16.12.2004
Цитата: Dmitry2064
...Так вот при выполнении (в начале) выскакивает окно с предупреждением [COLOR="Navy"]"Недостаточно памяти. Операцию нельзя будет отменить. Продолжить?"[/COLOR]
Нельзя ли это подавить?..


Попробуйте использовать свойство DisplayAlerts объекта Application.

 
Код:
Sub Test()
Application.DisplayAlerts = wdAlertsNone
'здесь код макроса
Application.DisplayAlerts = wdAlertsAll
End Sub
248
01 сентября 2007 года
Dmitry2064
590 / / 06.12.2006
[COLOR="Navy"]Application.DisplayAlerts = wdAlertsNone[/COLOR]
сработало. Правда теперь надо держать ухо востро, иначе что-нить подпортится, а я и не узнаю.

Спасибо большое.
А весь код передавать наверное не стоит, т.к. он довольно громоздкий, да еще из-под одного макроса выполняется куча других. Т.е. пришлось бы передавать кучу текста и найти там что-нить было бы проблематично. Пока работает и с такой командой. Спасибо еще раз.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог