Welches Dokument ist denn das "ActiveDocument" ?
Dein Makro-Dokument ?

Ansonsten probier einfach folgendes:

ActiveDocument.Saved = True
ActiveDocument.Close

und lass "Document_Close" weg, da dies ja wohl dein Makro-Dokument betrifft.