守柔斑竹请进！谢谢！

wy23456283

我打算实现这样的功能。在关闭本word窗口时，自动运行，先是判断该文件是否已经保存，再判断是否要保存到数据库，大家知道，在关闭文件时，如果有改动，则系统自动提示是否要修改，但我想做的是在插入数据库以前，判断这个，我没办法把这个系统提示写在插入数据库前，就自己手动写了一个判断句，如下。可是，当我选不保存修改的时候。系统还是会出一个提示，问是否保存对文件的修改，这怎么处理好呢？

if ActiveWindow.Document.Saved = False Then If MsgBox("是要保存到对" & ActiveWindow.Document.Name, vbYesNo, "确认保存记录") = vbYes Then ActiveWindow.Document.Save End If End If Set res = New ADODB.Recordset If MsgBox("是要保存到数据库中吗", vbYesNo, "确认保存记录") = vbYes Then

....

end if

守柔

以下代码供参考： '* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ 2005-4-18 07:15:12 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Dim MyWord As New myclass Private Sub Document_Open() Set MyWord.MyApp = Word.Application End Sub '---------------------- '* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ 2005-4-18 07:19:12 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [类模块-MyClass]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Option Explicit Public WithEvents MyApp As Word.Application Private Sub MyApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean) Dim MySelect As Byte If Doc.Saved = True Then Exit Sub MySelect = MsgBox("是否保存对""" & Doc.Name & """的更改？", vbYesNoCancel + vbExclamation) Select Case MySelect Case vbYes MsgBox "你选择了是!" Doc.Save Case vbNo MsgBox "你选择了否!" Doc.Saved = True Case vbCancel MsgBox "你选择了取消" Cancel = True End Select End Sub '----------------------

wy23456283

谢谢，守柔斑竹！你又帮我解决了个难题！