在 Excel 中使用 VBA 在 Word 中设置范围

Question

在 Excel 中使用 VBA 打开该文件时如何在 Word 中设置范围？

Dim wordApp As Word.Application
Dim wordObject As Word.Document
Dim wordRange As Word.Range

Dim filePath As String
Dim fileName As String

filePath = "C:\Users\"
fileName = "somename.docx"

Set wordApp = CreateObject("Word.Application")

With wordApp
    .Visible = True
    .Activate
    .WindowState = wdWindowStateNormal
End With

Set wordObject = wordApp.Documents.Open(filePath & fileName)

Set wordRange = Documents(fileName).Sections(1).Range

With wordRange
    'code
End With

造成问题的线路：

Set wordRange = Documents(fileName).Sections(1).Range

不管我在此返回的字符串是什么

4160 运行时错误“错误的文件名”

如果我使用ActiveDocument 而不是Documents()，我会得到

4248 运行时错误：“此命令不可用，因为没有打开文档”。

即使在运行代码时打开多个未保存和保存的 Word 文档后，错误仍然存​​在，只是显示相同的错误消息。

Answer 1

Set wordRange = Documents(fileName).Sections(1).Range 错误，因为 Excel 不知道 Documents 是什么（或者它会将其解析为 Word.Documents 以外的其他内容）

要解决这个问题，您可以使用（就像您在上一行中所做的那样）

Set wordRange = wordApp.Documents(fileName).Sections(1).Range

也就是说，您已经将Set Document(filepath & filename) 变为wordObject，所以使用它：

Set wordRange = wordObject.Sections(1).Range

---

此外，Excel 不知道wdWindowStateNormal，因此会创建一个新的Variant 变量（除非您有Option Explicit，您应该这样做，始终）并分配默认值@ 987654332@。这恰好是 Word.wdWindowStateNormal 的值，所以没有伤害，但代码具有误导性。

要修复，请使用

.WindowState = 0 'wdWindowStateNormal

---

我很好奇您创建对象的方式。使用早期绑定，而不是创建New Word.Application，而是使用CreateObject

• 这是一个有意的决定吗？
• 有什么好处？