VBA Object не поддерживает это свойство или метод

Question

Код VBA выполняется в Excel, я пытаюсь вставить 3 строки после закладки в Word, но получаю сообщение об ошибке «Объект не поддерживает это свойство или метод»

Я запускаю код на 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

Answer 1

При запуске из Excel и автоматизации Word свойство Selection будет интерпретироваться как объект Excel. Просто квалифицируйте Selection с документом.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