Скопируйте и вставьте таблицу из Excel в папку с закладками в Word, используя VBA

Question

Я пытаюсь скопировать таблицу из таблицы в Excel и вставить ее в текстовый документ в определенном c месте, используя VBA

. Я попробовал код ниже:

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 «Запрашиваемый элемент коллекции не существует»

В этом слове документа существует закладка под этим имя, так что я немного застрял

Пожалуйста, кто-нибудь может помочь?

Answer 1

Возможно:

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

Answer 2

'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