تفضل ضع هذا الكود في حدث الاغلاق للمستند
ActiveDocument.SaveAs FileName:="s.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveWindow.Close
Application.Quit
استبدل s.doc باسم المستند لديك