Question

我在VBA Excel中开发了一个小程序。这是一个不错的开始，但是我调整了一些预设-一个网站建议这样做，因为它将从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文档，但不会从界面中打开。

上面的程序挂了一段时间，并返回以下内容：

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

最后，运行停止，最终出现运行时错误'-2147023170（800706be）'：自动化远程调用失败。

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

Answer 1

您应在objword.Visible = True之后添加Set objWord = CreateObject("Word.Application")

从VBA Excel打开和关闭Word文档

1 个答案: