从 VBA Excel 打开和关闭 Word 文档

Question

我在VBAExcel开发了一个小程序。这是一个好的开始，但我调整了一些预设——一个网站推荐这样做，因为它可以从 MS Word 中提取文本。我删除了我正在处理的所有代码：

Function FnOpeneWordDoc()

   Dim objWord

   Dim objDoc

   Set objWord = CreateObject("Word.Application")

   Set objDoc = objWord.Documents.Open("C:\Users\Filepath\Example1.docx")

   objWord.Visible = True

End Function

它打开任务管理器中引用的 Word 文档，而不是从界面中引用。

上面的程序挂了一会儿，returns下面的程序：

Microsoft Office Excel 正在等待另一个应用程序完成 OLE 操作。

最后运行停止了，我得到了运行-Time Error '-2147023170 (800706be)': Automation The Remote call failed.

*我已经尝试了所有基本技巧，例如关闭 Excel 和 Word 的所有实例。

Answer 1

您应该在 Set objWord = CreateObject("Word.Application")

之后添加 objword.Visible = True

从 VBA Excel 打开和关闭 Word 文档

Open and Close Word Document from VBA Excel

excel

vba

ms-word

freeze