创建 Microsoft.Office.Interop.Word.Application 时出现延迟

Question

我有一个（旧版 VB.Net）应用程序，它从一些表中提取数据，填充 Word 模板，并将该模板与其他几个文件连接起来。

在多台计算机上，这可以正常工作，但对于一个客户端来说，存在一个持续存在的问题，即在尝试打开模板文件（该文件存在，并且没有权限问题等）。

Dim doc As Document
Dim msWord As Microsoft.Office.Interop.Word.Application

msWord = New Microsoft.Office.Interop.Word.Application
' next line throws "Object reference not set to an instance of an object"
doc = msWord.Documents.Add(verifiedTemplateName)

当在（实施得很糟糕的）调试模式下运行时，会抛出一堆启动-停止执行的模式对话框，则不会抛出异常。

Dim doc As Document
Dim msWord As Microsoft.Office.Interop.Word.Application

msWord = New Microsoft.Office.Interop.Word.Application
MsgBox("VooDoo coder at work")
' now no exception is thrown
doc = msWord.Documents.Add(verifiedTemplateName)

当在正常模式下运行时，延迟几秒，不会抛出异常。

Dim doc As Document
Dim msWord As Microsoft.Office.Interop.Word.Application

msWord = New Microsoft.Office.Interop.Word.Application
Delay(5) ' function that pauses for one second
' now no exception is thrown
doc = msWord.Documents.Add(verifiedTemplateName)

这表明，在某些计算机上，Word.Application 需要一些时间才能“启动”。

但是如何最好地捕获它，并在它存在后继续；或者如果时间范围不雅则抛出错误（一如既往，最好由当地司法管辖区决定）？

这也是 MSDN 论坛中其他人报告的问题 @ WordApplication.Documents.Add 方法返回 null？

我见过的唯一建议的解决方案是潜在的无限循环：

Document nulldoc = null;
do
{
    document = application.Documents.Add(template, newtemplate, documenttype, visible);
    Thread.Sleep(100);
}
while (document == nulldoc);

是否有比愚蠢的延迟或可能无限的检查循环更好的解决方案?

另请参阅：创建的实例VB.net 中的 Word。 相同的错误，类似的代码；但解决方案是确保目标文件存在（在我的例子中确实存在）。

Answer 1

我记得通过实现 COM IMessageFilter 接口（不与System.Windows.Forms.IMessageFilter）。

这篇 MSDN 文章。

由于您的问题发生在 Word 忙于启动时，因此此技术可能会有所帮助。

顺便说一句，当您将 Office 自动化时，您可能会遇到 Office 无法退出的问题，如本知识库文章中所述。

为了解决这个问题，您需要小心地在实例化的每个 COM 对象上调用 Marshal.ReleaseComObject，最好是在 try/finally 构造中。为了确保您不会错过任何引用，请避免使用“双点”构造 msWord.Documents.Add，而是显式创建对 msWord.Documents 的引用。

您的代码应该看起来更像（我猜是 VB.NET 语法，但您会明白的）：

Dim msWord As Application
Dim doc As Document
Dim docs As Documents

Try
    msWord = ...
    docs = msWord.Documents
    ' Test if docs is Nothing to avoid a NullReferenceException
    If Not docs Is Nothing Then
        doc = docs.Add...
        ...
    End If
    ...
Finally
    If Not doc Is Nothing Then Marshal.ReleaseComObject doc
    If Not docs Is Nothing Then Marshal.ReleaseComObject docs
    If Not msWord Is Nothing Then 
        msWord.Quit
        Marshal.ReleaseComObject msWord
    End If
End Try