VBA打开的WORD窗体,直接点击WORD窗体关闭按钮关闭时WORD总是提示Normal.dot正在使用
我用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属性啊。
谢谢。