VBA打开的WORD窗体,直接点击WORD窗体关闭按钮关闭时WORD总是提示Normal.dot正在使用

cooler 2004-02-14 02:38:57
我用VBA打开一个WORD后,直接点击WORD窗体关闭按钮关闭时WORD总是提示Normal.dot正在使用,这怎么解决,?马上给分!谢谢。

相关代码如下:
打开WORD的函数代码:

Public gobjWordDoc As Object
Public Function funChkWordValid() As String

'查找一个正在运行的Word拷贝
If funChkWordValid1 = False Then '如果 Word 没有运行则
Set gobjWordDoc = CreateObject("Word.Application") '运行它
End If
Err.Clear '清除发生错误的 Err 对象

On Error GoTo errE
gobjWordDoc.Application.Visible = False

Exit Function
errE:
funChkWordValid = "创建WORD对象失败:" & Err.Description
End Function

'试着访问一下WORD对象的属性,如果无法访问,说明WORD已经被关闭,返回false,否则返回true
Public Function funChkWordValid1() As Boolean
On Error GoTo errE
Dim str1 As String
str1 = gobjWordDoc.Application.Caption
funChkWordValid1 = True
Exit Function
errE:
funChkWordValid1 = False
End Function

----------------------------------
结果我发现,如果我使用程序来终端WORD将不会报错,但是直接点击WORD窗体关闭按钮关闭时WORD总是提示Normal.dot正在使用。我查阅过CSDN相关提问,有人回答说是因为WORD直接关闭时gobjWordDoc没有释放为空,导致WORD APP不会真正退出。请问有何解决良策?我的程序确实又需要一个gobjWordDoc指针来操纵WORD属性啊。
谢谢。
...全文
146 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
SharpKing515 2004-03-30
大侠。。。怎么响应Word的Quit事件啊?????
回复
发帖
Office开发/ VBA
创建于2007-08-27

4989

社区成员

其他开发语言 Office开发/ VBA
申请成为版主
帖子事件
创建了帖子
2004-02-14 02:38
社区公告
暂无公告