请问如何用VB捕捉到WORD的保存事件呢？？

[fanty123]

以下的代码：
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add("c:\temp.dot")
End Sub

已经用VB启动了一个WORD的文档了，请问如何触发下面的一个事件啊：

if 用户保存了该WORD文档 then
执行代码。
else
继续等待
End if

[hhjjhjhj]

Public WithEvents myWord As Word.Application

其它的清查WithEvents的用法

[rainstormmaster]

'注意引用Microsoft Word 9.0 Object Library
'窗体1个按钮，2个timer控件
Dim WithEvents wdApp As Word.Application
Dim wdDoc As Word.Document
Dim waiting As Boolean
Private Sub Command1_Click()
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("c:\temp.doc")

End Sub

Private Sub Form_Load()
waiting = True
Timer1.Interval = 55
Timer2.Interval = 55
Timer2.Enabled = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If waiting = False Then
wdDoc.Close
wdApp.Quit
Set wdApp = Nothing
Set wdDoc = Nothing
Me.Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
MsgBox "yes" '换成你想继续执行的代码
Timer2.Enabled = False
End Sub

Private Sub wdApp_DocumentBeforeSave(ByVal Doc As Word.Document, SaveAsUI As Boolean, Cancel As Boolean)
waiting = False
End Sub

[fanty123]

还是不行啊，是不是还有什么地方要设的啊。