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

[cooler]

我用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属性啊。
谢谢。

[SharpKing515]

大侠。。。怎么响应Word的Quit事件啊？？？？？