调用 Word.Documents.Add 后 WinWord.exe 不会退出 - Word .NET Interop

我遇到了一个经典场景，即在 .NET 中创建 Word COM 对象（通过 Microsoft.Office.Interop.Word 程序集）时，WinWord 进程不会退出，即使我正确关闭和释放物体 http://www.xtremevbtalk.com/showthread.php?p=1326018.

我已将范围缩小到使用 Word.Documents.Add() 方法。我可以以其他方式使用 Word，不会出现任何问题（打开文档、修改内容等），并且当我告诉 WinWord.exe 退出时，它就会退出。有一次我使用 Add() 方法（并且仅在添加template）该进程保持运行状态。

这是一个重现该问题的简单示例：

Dim word As New Word.Application()
word.Visible = False

Dim documents As Word.Documents = word.Documents
Dim doc As Word.Document = documents.Add(Template:=CObj(templatePath), NewTemplate:=False, DocumentType:=Word.WdNewDocumentType.wdNewBlankDocument, Visible:=False)

'' dispose objects
doc.Close()
While (Marshal.ReleaseComObject(doc) <> 0)
End While
doc = Nothing

While (Marshal.ReleaseComObject(documents) <> 0)
End While
documents = Nothing

word.Quit()
While (Marshal.ReleaseComObject(word) <> 0)
End While
word = Nothing

GC.Collect()

正如您所看到的，我正在正确创建和处置对象，甚至采取额外的步骤来循环 Marsha.ReleaseComObject 直到它返回正确的代码。使用 Word 对象在其他方面都很好，只是令人讨厌的 Documents.Add 让我感到悲伤。在此过程中是否创建了另一个我需要引用和处置的对象？我还需要遵循其他处置步骤吗？还有别的事吗？非常感谢您的帮助 ：）

Update:我在处置步骤结束时尝试了 GC.Collect 但仍然没有运气。

Update 2:我已将问题范围缩小到使用自定义模板。当我调用 Documents.Add(...) 时，我为新文档指定一个自定义模板。如果我不这样做，而是调用不带参数的 Add()，那么问题就不会发生。

（我的所有建议均改编自这个答案 https://stackoverflow.com/questions/158706/#158752关于 Excel 互操作。）

这里有一些重要的事情：

1) 切勿在同一行上使用 2 个点。还可以将索引器视为点

Good

Word.Documents d = wordApp.Documents;
Word.Document aDoc = d.Open(/*...*/);

BAD

Word.Document aDoc = wordApp.Documents.Open(/*...*/);

2) 释放所有指针。

3）不，真的，返回并释放所有的指针，你在某个地方错过了一个（或者至少我总是这样做）。

这是一个完整的例子，展示了在我痛苦地哀嚎和咬牙切齿之后，最终在一个项目上为我工作的内容：

object m = Missing.Value;
// this must be an object, not a string. if you forget though,
// intellisense will remind you
object oFilename = @"C:\my sheet.doc";

object readOnly = false;
object isVisible = false;

Word.Application wordApp = new Word.ApplicationClass();
wordApp.Visible = false;
// remember: don't use 2 dots on 1 line
Word.Documents d = wordApp.Documents;
Word.Document aDoc = d.Open(ref oFilename, ref m, ref readOnly, ref m,
    ref m, ref m, ref m, ref m, ref m, ref m, ref m, ref isVisible,
    ref m, ref m, ref m, ref m);
aDoc.Activate();

object findText = "my old value";
object replaceText = "new and improved value";

object oTrue = true;
object oFalse = false;
object replace = 2;
object wrap = 1;

Word.Selection s = wordApp.Selection;
Word.Find f = s.Find;
f.Execute(ref findText, ref oTrue,
    ref oTrue, ref oFalse, ref oFalse,
    ref oFalse, ref oTrue, ref wrap, ref oFalse,
    ref replaceText, ref replace, ref oFalse, ref oFalse,
    ref oFalse, ref oFalse);

aDoc.SaveAs(ref oFilename, ref m, ref m, ref m, ref m, ref m, ref m,
    ref m, ref m, ref m, ref m, ref m, ref m, ref m, ref m, ref m);

object doNotSaveChanges = Word.WdSaveOptions.wdDoNotSaveChanges;
// casting here because intellisense complained of ambiguity
(aDoc as Word._Document).Close(ref doNotSaveChanges, ref m, ref m);

// release each in the reverse of the order in which it was first used
// ReleaseComObject might also work as well. I haven't tested yet
Marshal.FinalReleaseComObject(f);
Marshal.FinalReleaseComObject(s);
Marshal.FinalReleaseComObject(aDoc);
Marshal.FinalReleaseComObject(d);

// must quit app before releasing
// again: casting because intellisense complained of ambiguity
(wordApp as Word._Application).Quit(ref m, ref m, ref m);
Marshal.FinalReleaseComObject(wordApp);