尝试在使用VBA将图片从Excel粘贴到Word后创建封闭书签

Sub CopyImageToWord()
    ' 声明变量
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdRange As Object
    Dim img As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 将Excel中选中的图片复制到Word文档
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    ' 在Word文档中创建一个新的段落
    Set wdRange = wdDoc.Content
    wdRange.Collapse Direction:=0
    wdRange.InsertParagraphAfter
    
    ' 将剪贴板中的图片粘贴到Word文档
    wdRange.Paste
    
    ' 关闭剪贴板
    Application.CutCopyMode = False
    
    ' 创建一个封闭书签
    Set img = wdDoc.InlineShapes(1)
    wdDoc.Bookmarks.Add "MyBookmark", img.Range
    
    ' 保存Word文档
    wdDoc.SaveAs "C:\Path\To\Your\Word\File.docx"
    
    ' 关闭Word文档
    wdDoc.Close
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放对象变量
    Set wdRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub