您的位置：程序门 -> vb -> vba

在vb中（不是vba)怎样才能检测到窗口关闭??

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

在vb中（不是vba)怎样才能检测到窗口关闭??[已结贴,结贴人:lanman]

发表于：2007-06-11 16:15:59 楼主

我想这里word高手比较多,所以在这里问问

dim wdapp as new word.application

with 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窗口关闭呢??

发表于：2007-06-12 14:42:061楼得分:0

....没有人知道吗?

发表于：2007-06-12 14:48:472楼得分:10

加一名no error resume next

do while .documents.count=0 or err.number

建议,doevnets之后加一名 api:sleep

发表于：2007-06-12 14:53:113楼得分:0

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

发表于：2007-06-13 08:44:234楼得分:10

那就判断.documents.count之前先判断word的进程是否存在,你出错主要是因为引用的对象word已经妖折了.

或者你新建一个word.doument 并将它.visable=false,这样在理论上word.applictaion不会被直接销毁.

发表于：2007-06-13 10:13:535楼得分:0

知道了,用
dim withevents wddoc as word.document

然后在
private sub wddoc_close（)
里写就可以了,感谢以上各位的帮助

下一篇：excel vba中的sheet对象和模块之间是什么关系？
上一篇：excel下面的vba如何连接sql server数据库

其他资讯