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

[Asis]

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

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

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

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

[alibek]

Считать нажатия клавиш наверное не получится. Правда можно считать количество пробелов в тексте (проводить пересчет раз в полминуты).
Кроме того, лучше не использовать фиксированное число, лучше 100 +/- 20.
Остальное проблемы не представляет (нарисовать диалоговое окно, выход без запроса). Единственное - сохранение в другой файл. Такое сохранение может быть довольно длительным и любой может заподозрить, что что-то тут нечисто (если после аварийного завершения Word закроется не сразу, а через минуту, при этом в строке статуса будет текст "Идет сохранение")

[GSerg]

Выход: сохранять непосредственно до вывода окна диалога, взяв при этом ручной контроль над application.statusbar...

[alibek]

Народ, скиньте мне скриншот окна "недопустимой ошибки"
А то я уже и не помню, как оно выглядит

[GSerg]

Да ты счастливый человек!
Kernel32.dll DIALOG #1

[alibek]

Предлагаю заценить
http://alibek09.narod.ru/vb/autoportret.zip

Все настройки в модуле AutoPortretCommon

З.Ы. Естественно, в документе есть макросы, и естественно, их необходимо разрешить. В модуле используется SetTimer, поэтому неотловленный выход из Word чреват не имитируемым, а реальным падением

З.З.Ы. [EDIT] Программа реагирует на пробелы (100 +/- 20), кол-во символов (500 +/- 50) и время (5 минуты +/- 30 секунд) от начала ввода. Триггеры соединены по OR, если столь ранее "падение" (через пять минут) не устраивает, можно подредактировать значения либо код.

[Asis]

GSerg и, особенно, alibek, огромное вам спасибо за участие!

Теперь по сути.

alibek, ваш файл при открытии в моем Word 97 сразу открывает VBA-редактор, выдает сообщение "Ошибка компиляции: Ошибка синтаксиса", и выделяет строчку "If hTimer = 0 Then hTimer = SetTimer(0&, 0&, 30000&, AddressOf TimerProc)".
Что сие значит?

Кстати, если есть подобная ошибка, то макрос все же будет работать или нет?

С нетерпением жду ответа...
...Алексей...

[GSerg]

Ээээ, alibek, хитрый какой
А вот не работает AddressOf в Office97. Так что предлагаю направить стопы свои в направлении application.ontime

[alibek]

Блин, ну почему не реализован AddressOf? Хотя понятно, там же еще VB5.
Переделал, скачай заново.

[GSerg]

alibek, тебе о чём-нибудь говорят слова "momory" и "debig"?

[alibek]

Э... А... Кто здесь???
Ничего не знаю, какие momory и debig? Не знаю таких слов

[Asis]

alibek, твое произведение опять ругается :(((

Файл открывается без проблем, но через некоторое время выдает ошибку компиляции: переменная не определена. При нажатии <Ok> говорит, что Невозможно выполнение программы в режиме прерывания. При этом выделяется vbModal в строке ufErrorMessage.Show vbModal (7-ая от конца макроса). И еще попутно ищет файл справки VEruLR3.HLP, которого у меня нет.

А я-то уже слюнки сглатывал :(((

Надеюсь на вашу помощь!

С уважением, Алексей!

[alibek]

Попробуй вместо ufErrorMessage.Show vbModal написать ufErrorMessage.Show

[Asis]

Написал.

Теперь выделяет первый Replace в Public Function ErrorMessageBody() As String :((( и опять сообщает, что "Невозможно выполнение программы в режиме прерывания".

Что теперь?

[alibek]

Ох, мать моя женщина...
Тогда добавь к модулю такую функцию:

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

Function Replace(ByVal sExpression As String, ByVal sFind As String, ByVal sReplace As String) As String
Dim P As Long
P = 1
Do
  P = InStr(P, sExpression, sFind)
  If P = 0 Then Exit Do
  sExpression = Left$(sExpression, P-1) & sReplace & Mid$(sExpression, P+Len(sFind))
  P = P + Len(sReplace)
Loop
Replace = sExpression
End Function

Эта функция не отличается особой производительностью, лучше поищи по форуму темы с ключевым словом Replace и за авторством skiperski, от там что-то шаманил и оптимизировал, добившись производительности, не уступающей встроенной Replace().

[Asis]

alibek, ты действительно Большой Человек!
Огромное тебе спасибо!

Как проведем эксперимент, вывешу здесь его рез-ты.

С огромным уважением, Алексей!