Ошибка при попытке перейти к закладке в word doc с помощью VBA - ошибка времени выполнения '438' Объект не поддерживает это свойство или метод

Question

Я пытаюсь создать чат в Excel и вставить его в слово документ в позиции закладки "1".

макрос умрет при 'Selection.GoTo What: = wdGoToBookmark, Name: = "1"'

Sub Macro1()

    Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
'open the word file 
    objWord.Documents.Open "N:\Template\Template.docx"
    objWord.Visible = True

'create and format the chart
    ThisWorkbook.Activate 
    Range("A:A,C:C").Select
    Range("C1").Activate
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select
    ActiveChart.SetSourceData Source:=Range("Sheet1!$A:$A,Sheet1!$C:$C")
    ActiveChart.Axes(xlCategory).Select
    Selection.TickLabels.NumberFormat = "m/yyyy"

'copy the chart
    ActiveChart.Parent.Copy

    objWord.Activate
    objWord.Visible = True
    Set objSelection = objWord.Selection
   'go to the bookmark in the word doc
    Selection.GoTo What:=wdGoToBookmark, Name:="1"

    'paste the chart
    objWord.Selection.Paste

End Sub

Answer 1

Selection.GoTo What:=wdGoToBookmark, Name:="1"

должно быть

objSelection.GoTo What:=wdGoToBookmark, Name:="1"

Вы добавили ссылку на библиотеку объектной модели Word в своем проекте VBA? Если нет, вы не можете использовать константы из слова, такие как wdGoToBookmark - вам нужно либо определить их в Excel VBA, либо заменить их числовым значением.