一个关于WORD文档关闭的问题

[一只小蝈蝈]

请问各位现在我想打开一个文档后，进行了部分修改，但是在文档 关闭时，不保存，也不要WORD提示“是否保存”对话框，应该怎么办？

[IMHELLFIRE]

看看：
Dim WithEvents wdApp As Word.Application
Dim WithEvents wdDoc As Word.Document

Private Sub wdApp_DocumentBeforeClose(ByVal Doc As Word.Document, Cancel As Boolean)
If Doc Is wdDoc Then
wdDoc.Close SaveChanges:=wdDoNotSaveChanges
wdApp.Quit SaveChanges:=wdDoNotSaveChanges
Set wdDoc = Nothing
Set wdApp = Nothing
End If
End Sub

[一只小蝈蝈]

首先感谢楼兄的热心帮助，你的这段代码是不是在VB环境下执行的，而我现在是想在WORD中写一个宏来达到同样的目的，不知兄台可有高招!!主要是如何去掉WORD提示“是否保存”对话框，请多费心!!!!!

[一只小蝈蝈]

请问在WORD中怎么做，谢谢

[cy_nwau]

Set ow = CreateObject("word.application")
Set od = ow.documents.open("c:\aa.doc")
ow.Visible = True
od.Close SaveChanges:=wdDoNotSaveChanges
ow.Quit SaveChanges:=wdDoNotSaveChanges