set the Saved property to True - something like:
dim wordDoc as Word.Document set wordDoc= Word.Application.Documents("macrofilename.dot")wordDoc.Saved = truewordDoc.Closeset wordDoc = nothing