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属性啊。
谢谢。
...全文
305 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
SharpKing515 2004-03-30
  • 打赏
  • 举报
回复
大侠。。。怎么响应Word的Quit事件啊?????

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧