挂在LS中的Word.Application（Office 2016）对象.quit（）方法

Question

我有一个在客户端（9.0社交版）上运行的预定LotusScript代理。其目的之一是打开Word文档并将其另存为PDF，但这并不是很重要。 这是相关的代码片段

Declarations
Dim wrdApp as Variant

Sub Initialize

[Getting the usual Notes Session, Database, View values]
    Set wrdApp = createObject("Word.Application")
    wrdApp.visible = True
starthere:
    'we check to see if there is anything that has been deferred
    Set v = db.GetView("RIT")
    strStatus = "Success"

    Set doc = v.Getfirstdocument()
    If (doc Is Nothing) Then Exit Sub
[Snip]
End Sub

Sub Terminate
    wrdApp.visible = True

    Dim quitCode As Variant
    quitCode = 0
    Call wrdApp.quit(quitCode)
    Print "Quit called, waiting 3 seconds"
' Wait a couple seconds
    Sleep(3)
    Print "Done waiting, setting wrdApp to Nothing"
    Set wrdApp=Nothing
    Print "Exiting agent"
End Sub

我遇到的问题是，自从我们升级到Office 2016以来，有时代理将永远不会终止。 在日志中，我看到“完成等待，将wrdApp设置为Nothing”，但没有看到“ Exiting agent”。 我将打开一个Word窗口（但是当然没有文档），然后在任务管理器中查看时，我看到一个WINWORD.EXE以0％CPU和2或3秒的CPU时间运行。 当然，只是为了增加吸引力，这也不是每次都发生。 而且由于该代理永无止境，因此所有其他预定的代理都将受阻，直到我杀死僵尸Word实例为止。 我已经尝试了所有可以找到的建议（您会注意到我使Word可见，并使用Variant作为Quit的参数，甚至出于绝望我甚至把sleep（3）扔了进去），但没有任何改变。 我们从未在Office 2010中遇到过这个问题（即使代理代码太草率了。）而且，无论我实际上是否打开Word文档，都可能发生该问题。 有解决方案吗？ 还是回到O2010的唯一选择？

Answer 1

抱歉耽搁了。 我开发了一个包装器类，可以“透明”处理Word和OpenOffice文件。 您可以在下面找到部分内容。 我的客户从来没有抱怨过该代码不再起作用，但这可能是由于他们使用该库使用模板打开文档，然后用数据填充文档，然后将文档保持打开状态。

乍一看，其中一个区别是：我在退出的位置使用“关闭”。

-打开文件

Function CreateMSWordDocument As Variant
    Dim msWord As Variant

    On Error Goto CreateNewInstance
    Set msWord = GetObject("", "Word.Application")
Done:
    Set CreateMSWordDocument = msWord
    Exit Function
CreateNewInstance:
    Print "Loading Microsoft Word.... Please Wait...."
    Err = 0
    Set msWord = CreateObject("Word.Application")
    Print "Microsoft Word Loaded"
    Resume Done
End Function

Set wdDoc= CreateMSWordDocument

-重新关闭它：

Sub Close
    Call wdDoc.Close
End Sub

除了以上内容，我没有给您更多信息。

Answer 2

我不确定这是否仍然与您有关。

我已经像使用您的方法一样使用Word了很长时间（只是将它包装在Class中）。 但是，我遇到了完全相同的问题...

解决的办法是什么也不做，一旦我关闭该文档-然后WINWORD任务只是默默地在后台退出了！

HTH /约翰

Answer 3

作为更新/回答此问题的一种方式，我放弃了寻找真正的答案的方法，而是编写了一个C＃程序来查找运行时间超过15分钟的WINWORD.EXE的任何实例，并终止该进程。 然后，我使用任务计划程序每15分钟启动一次该程序。 这很粗糙而且很丑陋，但是却扑灭了我以前的四声警报。