如何获取word文件的关闭消息

[xiaopeng_e]

我已经在vb中打开了word文档，当用户关闭或存盘是我如何获得消息

[xiaopeng_e]

再线等待，qq59092922

[xiaopeng_e]

up

[gxingmin]

'不用知道是否关闭，你在创建对象的时候先nothing一下
Set recWord = Nothing
Set recWord = GetObject(, "word.application")
If (recWord Is Nothing) Then
Set recWord = CreateObject("word.application")
End If

[xiaopeng_e]

我是想在用户关闭的时候给出提示

[feihong0233]

如果是Word Object 9.0
用
private withevents wdOneTest as Word.Application


Private Sub wdOneTest_DocumentBeforeClose(ByVal Doc As Word.Document, Cancel As Boolean)
MsgBox "Close"
End Sub

[xiaopeng_e]

谢谢

[xiaopeng_e]

up