使用来自Excel宏的单词选择对象

Question

我正在编写Excel中的宏，该宏可以打开并操纵Word文档。当我通过Word中的VBA编辑器运行该代码时，该代码可以正常工作，但是当我将代码行导入Excel Macro时，我会收到一个运行时438错误。

字宏

Selection.Collapse WdCollapseDirection.wdCollapseEnd

插入Excel宏的代码，WTEMP是Word Document对象

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

我相信这个问题在于选择对象，或者我缺少参考。我在vbaproject中包含的引用是：

• 应用程序的视觉基本
• Microsoft Excel 16.0对象库
• Ole Automation
• Microsoft Office 16.0 Office Library
• Microsoft Word 16.0办公室库
• Microsoft Forms 2.0对象库
• Microsoft脚本运行时

Answer 1

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

如果您有对单词应用程序的引用，则可以使用这样的代码：

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