跨Word文档复制图片报“Clipboard empty or not valid”4605错误如何解决？

• 剪贴板读写为异步操作，VBA代码执行速度远快于系统剪贴板的响应速度，上一轮复制的内容还未完全写入剪贴板，代码就已进入下一轮循环执行复制、删除原图片的操作，导致剪贴板内容为空或数据损坏。
• docNew.Content.Paste的写法存在逻辑问题：每次调用会覆盖新文档的全部内容范围，且未准确定位插入位置，会导致粘贴逻辑异常。
• 依赖Selection对象执行复制操作稳定性差，选中范围偏移、文档焦点变化都会导致复制内容不符合预期。

推荐优先使用不依赖剪贴板的实现方案，通过FormattedText属性直接复制范围内容，完全规避剪贴板相关错误，代码如下：

Sub ExtractAllImages()
    Dim docOpen As Document
    Set docOpen = ActiveDocument
    Dim docNew As Document
    Set docNew = Documents.Add
    Dim i As Long
    Dim targetRange As Range
    
    ' 初始化新文档并保存
    docNew.SaveAs2 FileName:="Images.docx", FileFormat:=wdFormatDocumentDefault
    ' 定位插入位置到新文档末尾
    Set targetRange = docNew.Content
    targetRange.Collapse Direction:=wdCollapseEnd
    
    For i = docOpen.InlineShapes.Count To 1 Step -1
        ' 给原图片添加标注
        docOpen.InlineShapes(i).Range.InsertAfter "image00" & CStr(i)
        ' 直接复制范围内容，不经过剪贴板
        targetRange.FormattedText = docOpen.InlineShapes(i).Range.FormattedText
        ' 移动插入点到新内容末尾，准备下一次插入
        targetRange.Collapse Direction:=wdCollapseEnd
        ' 复制完成后再删除原图片
        docOpen.InlineShapes(i).Delete
    Next i
    docNew.Save
End Sub

如果必须使用剪贴板实现，只需在原有代码的Selection.Copy后添加DoEvents语句，让系统先完成剪贴板写入操作再执行后续代码，同时修正粘贴位置的逻辑即可。

内容的提问来源于stack exchange，提问作者Diego Schiavon