VBA 对象不支持此属性或方法

VBA 对象不支持此属性或方法

VBA 代码正在 Excel 上运行,我尝试在 Word 中的书签后插入 3 行,但收到​​错误消息“对象不支持此属性或方法”

我在 Word 上运行代码,运行正常,我不知道发生了什么...以下是代码的一部分:

If iCounter > 1 Then
   oDoc.Bookmarks("Entregables").Range.Select
   Selection.MoveDown unit:=wdParagraph, Count:=1 'Here is where I get the error
   Selection.InsertAfter vbCrLf + vbCrLf + vbCrLf + vbCrLf
End If

答案1

如果从 Excel 运行并自动化 Word,则该Selection属性将被解释为 Excel 对象。只需Selection使用 document.ActiveWindow 引用进行限定:

If iCounter > 1 Then
   oDoc.Bookmarks("Entregables").Range.Select
   oDoc.ActiveWindow.Selection.MoveDown unit:=wdParagraph, Count:=1 'Here is where I get the error
   oDoc.ActiveWindow.Selection.InsertAfter vbCrLf + vbCrLf + vbCrLf + vbCrLf
End If

相关内容