excel - VBA Excel 将图片和图表导出到 Word 书签

Question

我是新来的（虽然浏览了网站很长一段时间），所以如果我的问题已解决（可能已经解决了！），请原谅我。我正在尝试从多个来源自己学习，这可能是我的问题的原因。

我正在做一个 excel 宏，它将在 Word 模板中创建一个报告，其中填充了 Excel 中的数据和图片。我的数据在“ToWord”工作表中，图片在“SiteMap”工作表中。我需要做的是将以上内容复制到 Word 中的确切位置（因此我的想法是在 Word 中使用书签）。但是，每次我尝试在 Word 中放置图片时都会出现错误：

运行时错误 91：未设置对象变量或 With 块变量。

这是我的代码。谢谢你的帮助！

Sub Report()
    Dim objWord As Object
    Dim ws As Worksheet
    Dim sh As Shape
    Dim bm As Bookmark
    
    Set ws = ThisWorkbook.Sheets("ToWord")
    Set sh = ThisWorkbook.Sheets("SiteMap").Shapes("Picture 2")
    Set bm = objWord.Bookmarks("site_map")
    Set objWord = CreateObject("Word.Application")
    
    objWord.Visible = True
    
    objWord.Documents.Open (ThisWorkbook.Path & "\Template.docx")
    
    With objWord.ActiveDocument
        .Bookmarks("street_name").Range.Text = ws.Range("A2").Value
        sh.Copy
        bm.Range.Paste
    End With
    
    Set objWord = Nothing
End Sub

标签： excelvbams-word