如何阻止用户手动关闭VB6自动化Word实例？

Question

我的问题是关于对自动化实例的绝对控制.我正在使用VB6自动生成工作场所中使用的表单.该应用程序处于测试阶段,我编写了一份用户手册,向新用户介绍该应用程序; 解释GUI的子功能.我使用GUI上的命令按钮打开和关闭Word实例中的用户手册.所有这一切都很好,直到用户在应用程序运行时手动关闭Word应用程序.这会杀死Word实例,但我需要阻止用户关闭Word实例,或者让应用程序意识到实例已经消失.我的自动化知识非常浅薄.我从VBA宏调整子例程.请帮忙.

Answer 1

我需要阻止用户关闭Word实例,或让应用程序意识到实例已经消失

您可以同时执行这两项操作 - 使用"Give me events"语法声明您的Word变量,它将DocumentBeforeClose在您的代码中引发事件.

Public WithEvents mWordApp As Word.Application

Sub DoStuff()
    Set mWordApp = New Word.Application
    '// open doc ...
    mWordApp.Visible = True
End Sub

Private Sub mWordApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
    Cancel = MsgBox("Word is closing, keep open?", vbYesNo) = vbYes
End Sub