Sub AutoClose()

Set DocWord = ActiveDocument 'создаём  объект, активный документ Word-a

'проверка, были ли сохранены внесенные изменения свойством Saved
'если изменения не были сохранены - сохранить их

If DocWord.Saved = False Then DocWord.Close True 'ошибка команды???? и всё же появляется окно сохранения документа????????7

'закрываем Word (без запроса на сохранение)
DocWord.Quit True

'уничтожаем обьект - документ
Set DocWord = Nothing

End Sub

Option Explicit

Sub AutoClose()

Dim DocWord As Word.Document 'экземпляр документа

Set DocWord = ActiveDocument

'проверить, были ли сохранены внесенные изменения свойством Saved и если изменения не были сохранены - сохранить их;

If DocWord.Saved = False Then DocWord.Save

'закрываем документ (без запроса на сохранение)
DocWord.Close 'True здесь пробовал и до заремарчивания 'True и после ????????????????

'закрываем Word (без запроса на сохранение)
DocWord.Quit True

'уничтожаем обьект - документ
Set DocWord = Nothing

End Sub

Option Explicit

Sub AutoClose()

Dim DocWord As Word.Document 'экземпляр документа

Set DocWord = ActiveDocument

If DocWord.Saved = False Then DocWord.Save

'уничтожаем обьект - документ
Set DocWord = Nothing

End Sub

Sub AutoClose()

If ActiveDocument.Saved = False Then ActiveDocument.Save

End Sub

Sub AutoClose()

If ActiveDocument.Saved = False Then ActiveDocument.Save

End Sub