VB.NET替换Word书签图片时出现剪贴板为空的COM异常问题

问题说明 #

使用VB.NET替换Word文档中书签标记的图片时，从另一个Word文件的书签提取图片后执行粘贴操作，抛出异常：
System.Runtime.InteropServices.COMException: 'This method or property is not available because the Clipboard is empty or not valid.'

仅当书签范围包含图片+换行符时代码正常运行，书签仅标记图片时触发异常。

原因分析 #

1. 当书签仅包裹图片对象时，Range.CopyAsPicture()无法正确将图片内容写入剪贴板，导致后续粘贴操作失败。
2. 复制后立即关闭源文档，可能导致剪贴板中的内容被提前清空。

解决方法 #

• 直接定位书签范围内的图片对象（InlineShape）进行复制，而非依赖Range的复制方法。
• 延迟关闭源文档，确保剪贴板内容在粘贴完成后再释放。
• 替换图片后重新创建目标书签，避免书签丢失。

修改后的代码 #

Private Sub test123_Click(sender As Object, e As EventArgs) Handles test123.Click
    Dim oWord As Word.Application = CreateObject("Word.Application")
    oWord.Visible = True

    Dim path As String = "C:\Users\user\basefile\"
    Dim file As String = Dir(path & "*.docx")
    Dim oDoc As Word.Document = oWord.Documents.Add(path & file)

    If Not Me.checkbox.Checked Then
        Dim sourceFile As String = "C:\Users\user\sourcefile\source.docx"
        Dim sourceDoc As Word.Document = oWord.Documents.Open(sourceFile)

        ' 获取源书签内的图片对象
        Dim sourceBookmark As String = "bkm_src"
        Dim sourceRange As Word.Range = sourceDoc.Bookmarks(sourceBookmark).Range
        Dim sourcePic As Word.InlineShape = Nothing

        ' 遍历范围内的内嵌形状，找到图片
        For Each shape As Word.InlineShape In sourceRange.InlineShapes
            If shape.Type = Word.WdInlineShapeType.wdInlineShapePicture Then
                sourcePic = shape
                Exit For
            End If
        Next

        If sourcePic IsNot Nothing Then
            sourcePic.Range.Copy() ' 直接复制图片的Range

            ' 处理目标文档的书签
            Dim destBookmark As String = "bkm_dest"
            Dim destRange As Word.Range = oDoc.Bookmarks(destBookmark).Range
            
            ' 删除原有内容
            destRange.Delete()
            ' 粘贴图片
            Dim newPic As Word.InlineShape = destRange.PasteSpecial(DataType:=Word.WdPasteDataType.wdPastePicture)
            
            ' 重新创建书签，确保替换后书签仍存在
            oDoc.Bookmarks.Add(destBookmark, newPic.Range)
        End If

        ' 粘贴完成后再关闭源文档
        sourceDoc.Close(SaveChanges:=False)
    End If
End Sub

关键优化点 #

• 直接遍历书签范围内的InlineShape定位图片，避免Range复制的兼容性问题。
• 复制图片对象的Range，确保剪贴板内容有效。
• 粘贴后重新创建目标书签，保证后续操作可继续使用该书签。
• 延迟关闭源文档，确保剪贴板内容在粘贴完成前不被清空。

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