Проблема с Word'ом

[z3f]

Есть вордовый документ.
В событии на закрытие документа мне нужно поверить наличие заполнения текстового поля TextBox3. Если оно не заполнено - тогда не закрывать документ до тех пор пока человек не заполнит это поле.
Делаю
Private Sub Document_Close()
If TextBox3.Text = "" Then Response = MsgBox("Hello!", vbOk)
End Sub

Он радостно выкидывает мне MessageBox но после этого все равно выкидывает окно с пожеланием сохранить докумет, не сохранять и отменить...
Как сделать так чтобы все таки он не выкидывал никаких сообщений кроме msgbox пока поле не будет заполнено?

[alibek]

Document.Saved = True

[z3f]

Document.Saved = True

Пишу -

Private Sub Document_Close()
If TextBox3.Text = "" Then
Response = MsgBox("Hello!", vbOK)
Document.Saved = True
End If
End Sub

Получаю ошибку Run-time error '424'

И как мне дальше двигаться?
кроме того документ - НЕ должен сохраняться - к нему должны вернуться чтобы до конца заполнить поля...
вот такая вот проблема...

[alibek]

Ну правильно.
Word ведь не знает, какой Document ты имеешь ввиду. Пиши либо ThisDocument (или как он у тебя называется), либо ActiveDocument, либо Documents(1). Кроме того, .Saved=True не сохраняет документ, а просто устанавливает флаг, что документ не нуждается в сохранении.

[z3f]

Ну правильно.
Word ведь не знает, какой Document ты имеешь ввиду. Пиши либо ThisDocument (или как он у тебя называется), либо ActiveDocument, либо Documents(1). Кроме того, .Saved=True не сохраняет документ, а просто устанавливает флаг, что документ не нуждается в сохранении.

Насчет ActiveDocument я догадался когда он начал орать на 424 ошибку.
Но проблему это не сняло...
Код выше остался прежним за исключением
ActiveDocument.Saved = True
но при нажатии на кнопку cancel в msgbox выскакивает окно - сохранить документ, не сохранять, cancel.
Хотелось бы чтобы это окно не выскакивало а был возврат к именению документа...
вот в этом и проблем...
пробовал так
ActiveDocument.GoTo = TextBox3
но это однозначно не правильно хотя word и не ругается на это но по проежнему выкидывает окно с сохранение документа.
может както надо переписать кнопку закрытия документа?
но по моему это уже из разряда изврата=(
что делать????

попробовал еще так
Private Sub Document_Close()
If TextBox3.Text = "" Then
r = MsgBox("Hello!", vbOK)
'Document.Saved = True
'ActiveDocument.GoTo = ThisDocument.TextBox3
'TextBox3
End If
If r = vbOK Then
ActiveDocument.GoTo = ThisDocument.TextBox3
End If
End Sub