PDA

Просмотр полной версии : Имитация недопустимой ошибки в Word на событие.



Asis
24.05.2004, 20:27
Помогите, плиз. Нам необходимо провести эксперимент по психологии агрессии. Для этого необходимо сымитировать сбой в работе Word на сотое нажатие клавиши <пробел>.

Предположим, есть Word'овский документ (Word 97), например avtoportret.doc
Необходимо присоединить к нему макрос, который:
1) Начиная с открытия этого файла, по ходу набора в нем некоторого текста считает количество нажатий на клавишу <пробел> (сами пробелы, естественно, в тексте появляются);
2) При достижении некоторого количества нажатий пробелов, допустим 100, макрос, имитируя сбой в Word, выдает диалоговое окно с сообщением "Программа выполнила недопустимую операцию, и будет закрыта" и кнопками <закрыть> (активная) и <сведения> (неактивная), с появлением этого диалогового окна работать в документе, набирать текст уже нельзя;
3) При нажатии на кнопку <закрыть> Word закрывается, а результаты всей работы в документе не сохраняются (желательно, но не обязательно, чтобы набранный текст сохранялся в др. файле, например, avtoportret.rtf).

Огромная просьба, помогите кто может, напишите текст макроса полностью, так как я в макросах и VBA совсем не разбираюсь.

Заранее благодарю, Алексей!

Naeel Maqsudov
28.05.2004, 01:22
Увы, нельзя.
Можно только так. Раз в N+delta секунд происходит имитация ошибки и имитация падения Word.
Текущий документ сохраняется в другую папку, а исходный остается без изменений.

А какая реакция системы пранируется на случай коглда "умный" тестируемый сам нажмет кнопку "Сохранить" до имитации сбоя?