Ошибка выполнения -2147023170 (800706be) при копировании и вставке изображений из Excel в Word - PullRequest
Новая
       100

Ошибка выполнения -2147023170 (800706be) при копировании и вставке изображений из Excel в Word

0 голосов
/ 28 мая 2020

Я пытаюсь скопировать / вставить несколько изображений из моего листа Excel в файл Word. Иногда это работает безупречно, но часто я сталкиваюсь с большой ошибкой времени выполнения «-2147023170 (800706be)»: Ошибка автоматизации. Ошибка вызова удаленной процедуры. сообщение. Google показал мне, что я не одинок с этой ошибкой и что она часто возникает из-за того, что, например, диапазоны не определены точно. Однако я думаю, что они есть в моем проекте.

Вот мой код: 

Dim wdDoc As Object
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Add
Dim wdImg As Object
ThisWorkbook.Worksheets("Backup - Do not change").Shapes("companyLogo").Copy
With wdDoc.Sections(1).Headers(2).Range
    .PageSetup.DifferentFirstPageHeaderFooter = True
    .Paste
    Set wdImg = .InlineShapes(.InlineShapes.Count).ConvertToShape
    With wdImg
       'some specifications
    End With
End With
ThisWorkbook.Worksheets("Backup - Do not change").Shapes("projectLogo").Copy
With wdDoc.Sections(1).Headers(2).Range
    .Paste
    Set wdImg = .InlineShapes(.InlineShapes.Count).ConvertToShape
    With wdImg
       'some specifications
    End With
End With
Application.CutCopyMode = False

Ошибка всегда возникает на .Paste. Я уже пробовал .PasteSpecial DataType:=8 и другие вещи, но это не помогло. Любая помощь приветствуется!

1 Ответ

0 голосов
/ 30 мая 2020

Хорошо, поэтому вместо вставки непосредственно в диапазон заголовков я создал таблицу внутри заголовка и вставил изображения в две разные ячейки. С тех пор я успешно запускал код более чем в 10 раз, поэтому, похоже, проблема устранилась (надеюсь, так и останется). Однако до сих пор не уверен, чем это вызвано.

...