将图像从Excel复制粘贴到Word时出现运行时错误-2147023170（800706be）

Question

我正在尝试将一些图像从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和其他各种方法，但是没有帮助。任何帮助都非常欢迎！

Answer 1

好吧，现在我没有直接粘贴到标题范围，而是在标题内创建了一个表，并将图像粘贴到两个不同的单元格中。从那时起，我已经成功运行了10倍以上的代码，因此似乎可以解决该问题（希望如此）。不过，仍然不确定是什么原因造成的。