使用 VBA 将表格从 Excel 复制粘贴到 Word 中的书签位置答案

【问题标题】：Copy paste a table from excel to a bookmarked location in Word using VBA使用 VBA 将表格从 Excel 复制粘贴到 Word 中的书签位置
【发布时间】：2020-01-16 16:30:32
【问题描述】：

我正在尝试使用 VBA 从 Excel 中的工作表中复制和表格并将其粘贴到 Word 文档中的特定位置

我试过下面的代码：

Sub Copypastetabe()

Dim strPath As String

'Set path via this excel workbook

strPath = ThisWorkbook.Path & "\" & "Morning Snapshot1" & ".docx"

Dim objWord As Object

Dim docWord As Object

'copy the date table to go to word doc

Sheets("Sheet4").Range("A1:F6").Copy

'define and open word doc

Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Set docWord = objWord.Documents.Open(fileName:=strPath, ReadOnly:=False)

'Select bookmark in word doc

docWord.Bookmarks(BondYields).Select

Selection.Paste

End Sub

我得到了错误

运行时错误 5941 "请求的集合成员不存在"

这个word文档中存在这个名字的书签，所以我有点卡住了

有人可以帮忙吗？

【问题讨论】：

"BondYields" - 引号。

标签： excel vba ms-word copy bookmarks

【解决方案1】：

'Select bookmark in word doc

docWord.Bookmarks(BondYields).Select

Selection.Paste

应该是：

'Select bookmark in word doc

docWord.Bookmarks(“BondYields”).Select

objWord.Selection.Paste

或者更好：

‘Paste into bookmark in Word doc

docWord.Bookmarks("BondYields").Range.Paste

【讨论】：

【解决方案2】：

大概：

docWord.Bookmarks("BondYields").Range.Paste

【讨论】：