使用Excel宏中的单词选择对象

Question

我在Excel中编写了一个宏，该宏可以打开和处理Word文档。当我通过vba编辑器运行该代码时，该代码有效，但是当我将代码行导入到excel宏中时，出现运行时438错误。

字宏

Selection.Collapse WdCollapseDirection.wdCollapseEnd

将代码插入到Excel宏中，其中wtemp是word文档对象

wtemp.Activate
wtemp.Tables(3).Select
wtemp.Activate
wtemp.Selection.Collapse WdCollapseDirection.wdCollapseEnd

我认为问题出在选择对象上，或者我缺少参考。我在VBAProject中包含的引用是：

• Visual Basic应用程序
• Microsoft Excel 16.0对象库
• OLE自动化
• Microsoft Office 16.0 Office库
• Microsoft Word 16.0 Office库
• Microsoft Forms 2.0对象库
• Microsoft脚本运行时

Answer 1

文档对象没有Selection属性，但是Word应用程序有。

如果您有对Word应用程序的引用，则可以使用如下代码：

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

Dim wtemp As Word.Document
Set wtemp = wd.ActiveDocument

wtemp.Activate
wtemp.Tables(3).Select
wtemp.Activate
wd.Selection.Collapse WdCollapseDirection.wdCollapseEnd