在VB中(不是VBA)怎样才能检测到窗口关闭??

Question

我想这里word高手比较多,所以在这里问问Dim wdApp As New Word.ApplicationWith wdApp
    .Visible = True
    .Documents.Add App.Path & "\doc\plan.dot", False, wdNewBlankDocument, True
    .ActiveDocument.Variables("PLANNAME") = "教育1"
    .ActiveDocument.Variables("cdate") = Date
    .ActiveDocument.Content.Select
    .ActiveDocument.Content.Fields.Update'' stop program...
do while .documents.count=0
   doevents
loop
End With然后我想让程序等待,直到word窗口关闭为止继续,可是我用
.documents.count=0
可以测出文档关闭,但是一但word窗口关闭,.documents.count语句就报错,说是什么远程服务器不存在,怎么才能测到word窗口关闭呢??

Answer 1

加一名no Error Resume Nextdo while .documents.count=0 or err.Number建议,DoEvnets之后加一名 API:Sleep

Answer 2

呵呵,就是不想用on error才在这里问的

Answer 3

那就判断.documents.count之前先判断word的进程是否存在,你出错主要是因为引用的对象word已经妖折了.或者你新建一个word.doument 并将它.visable=false,这样在理论上word.applictaion不会被直接销毁.

Answer 4

知道了,用
dim withevents wddoc as word.document然后在
Private Sub wdDoc_Close()
里写就可以了,感谢以上各位的帮助