Как в Worde сделать DisplayAlerts=False

[CaptainNemo]

Добрый день, что-то не получается позакрывать все документы MS Word, что бы окна не выскакивали…
Поставил Application.DisplayAlerts = wdAlertsNone, начало окно «Сохранение документа появляется». Вот код:

Sub t2()
On Error Resume Next
For i = 1 To Documents.Count
Application.DisplayAlerts = wdAlertsNone
    Documents(i).Close
Next i
End Sub

[viter.alex]

А ты укажи, что сохранять нужно или, наоборот, не нужно

Sub t2()
On Error Resume Next
For i = 1 To Documents.Count
Application.DisplayAlerts = wdAlertsNone
    Documents(i).Close False 'Не сохранять изменения
Next i
End Sub

Т.е., чтобы Word не задавал глупых вопросов, ему нужно дать ответ заранее.

[CaptainNemo]

Спасибо, приблизительно так я себе это и представлял.

Всё равно что-то не получается правильно Word загасить. Хотел было проверить орфографию в TexBox вот так вот:

Private Sub txtMy_Change()
    Call zzz
End Sub

Sub zzz()
Dim myWord As Document
Set myWord = Documents.Add()
    myWord.Content = frmMy.txtMy
    myWord.CheckSpelling
    frmMy.txtMy = myWord.Content
    myWord.Close False
Set myWord = Nothing
End Sub

По моей задумке Check Speller должен был при первом изменении в TextBox выскочить и в нём можно было набрать что надо. Но документы не закрываются, не понятно, почему…

[Eleonora_]

Спасибо за помощь