使用 VBA 从 Excel 打开 Word – 几个错误

Question

我目前正在尝试使用 VBA 从 Microsoft Excel 打开 Microsoft Word。我在网上找到了这些资源：

• Official Microsoft Tutorial
• Microsoft Forum

基于它们，我想出了以下代码：

---

代码 1

Dim wordApp As Word.Application
Set wordApp = CreateObject("Word.Application")

在 Word 已打开的情况下运行代码

Excel 停止响应。

关闭 Word 运行代码

Word 打开，但 Excel 给我错误 Out of memory 或 Automation error 和 wordApp 未定义。

---

代码 2

Dim wordApp As Word.Application
Set wordApp = GetObject(,"Word.Application")

在 Word 已打开的情况下运行代码

Excel 抛出错误 Out of memory 和 wordApp 未定义。

关闭 Word 运行代码

Excel 抛出错误 ActiveX component can't create object or return reference to this object 和 wordApp 未定义。

---

系统信息

操作系统：macOS Mojave (10.14.6)

Excel 和 Word 版本：16.36

Excel 中的引用：

Visual Basic For Applications, Microsoft Excel 16.0 Object Library, Microsoft Forms 2.0 Object Library, Microsoft Office 16.0 Object Library, Microsoft Word 16.0 Object Library, OLE Automation

---

结论

这些错误非常令人困惑，我无法通过阅读 Microsoft 的错误页面来修复它们。例如，我不断收到错误Out of memory（见上文），尽管我有大约 10 GB 的可用 RAM 空间。我怎样才能让它在我的机器（见上文）以及任何其他机器上可靠地工作？

Answer 1

将您的两种方法组合在一个中看起来像这样，并且它不应该返回任何错误。

如果错误仍然存​​在，则它没有连接到代码本身... 只需要引用Microsoft Word 16.0 Object Library。

Sub openWordApp()
  Dim wordApp As Word.Application

  On Error Resume Next
   Set wordApp = GetObject(, "Word.Application")
   If Err.Number <> 0 Then
      Err.Clear: On Error GoTo 0
      Set wordApp = CreateObject("Word.Application")
   End If
   On Error GoTo 0
   wordApp.Visible = True
   Debug.Print wordApp.Documents.count
End Sub

请同时检查是否没有打开多个 Word 会话...也许您使用 Word 会话Visible = False 多次检查了代码，但仍然有很多这样的会话打开。只是可能，但最好检查一下。