VBA将Excel内容粘贴为图片到Word时随机出现4605运行时错误

我编写了用于筛选特定数据并将表格方案复制到Word文档的VBA宏，通过两个Sub过程完成复制粘贴操作（调用第一个Sub后立即调用第二个）。

最初的代码如下：

Sub SheetOperation(typ_dev_ark, LayoutName, TS_dev)
    Sheets(typ_dev_ark).Select
    Sheets(typ_dev_ark).Cells(4, 1).Value = LayoutName
    Sheets(typ_dev_ark).Cells(3, 3).Value = "Techno Scheme No."
    Sheets(typ_dev_ark).Cells(4, 3).Value = TS_dev
    Dim rng As Range
    Set rng = ActiveWorkbook.Sheets(typ_dev_ark).UsedRange
    rng.CopyPicture xlScreen, xlPicture

End Sub
Sub Paste(wdApp)
    wdApp.Activate
    wdApp.Visible = True
    wdApp.Selection.Paste
    Application.CutCopyMode = False
End Sub

执行wdApp.Selection.Paste时，随机出现4605运行时错误，但在调试器中点击继续后，操作又能正常完成，甚至会粘贴出错时对应的内容。

我又尝试了另一种代码变体：

Sub SheetOperation(typ_dev_ark, LayoutName, TS_dev)
    Sheets(typ_dev_ark).Select
    Sheets(typ_dev_ark).Cells(4, 1).Value = LayoutName
    Sheets(typ_dev_ark).Cells(3, 3).Value = "Techno Scheme No."
    Sheets(typ_dev_ark).Cells(4, 3).Value = TS_dev
    Set rng = ActiveWorkbook.Sheets(typ_dev_ark).UsedRange
    rng.Copy

End Sub
Sub Paste(wdApp)
    wdApp.Activate
    wdApp.Visible = True
    wdApp.Selection.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=wdInLine
    Application.CutCopyMode = False
End Sub

但问题依旧存在。

内容的提问来源于stack exchange，提问作者Karo S-S