使用ADO打开WORD文件创建新文件后关闭时不保存的代码?

代码如下: 

Dim docApp As Object

Set docApp = CreateObject("Word.Application")    '创建WORD对象

Dim doc As Object
    Dim win As Object

       Set doc = docApp.Documents.Add(CurrentProject.Path & "\模板.doc")

Set win = doc.ActiveWindow

        With win.Selection.Find    '使用查找和替换

            .Text = "[年]"
            .Replacement.Text = Nz(Format(Me.Text18, "yyyy"), "")
            .Execute , , , , , , , , , , 2  '全部替换

End With
       
        doc.PrintPreview    '打印预览
    '    doc.PrintOut        '直接打印

doc.Close

'释放对象变量
Set doc = Nothing
Set docApp = Nothing
Set win = Nothing

这个操作是用已有的WORD文件创建一个新的文件再操作,当操作完成后,DOC.CLOSE关闭这个新建WORD文件时,会提示保存,如果不保存直接关闭WORD,

怎么改代码,请高手指点