excel - VBScript：如何将一系列单元格复制为图像并通过书签将其粘贴到 Word 中

Question

我尝试将 Excel 工作表中的一系列单元格复制到特定书签上的 Word 文档中。额外的调整大小会很棒，但我还没有走这么远。如果有必要提及，我不想拥有 Visible Word 或 Excel（因为我在某些代码上看到了它，不知道它是否是强制性的）。这里的代码：

Set ObjWkBk = ObjXl.Workbooks.Open("C:\test.xlsx")

Set ObjWd = CreateObject("Word.Application")
Set ObjDoc = ObjWd.Documents.Add("C:\test.docx")

Set xlRange =  ObjWkBk.Worksheets("Sheet1").Range("A1:D4").Select

Set wdRange = ObjDoc.Bookmarks("Ending").Range

xlRange.CopyPicture
wdRange.Paste

ObjDoc.SaveAs ("C:\test1.docx")

ObjDoc.Close: ObjWd.Quit: ObjWkBk.Close: ObjXl.Quit
Set ObjDoc = Nothing: Set ObjWd = Nothing: Set ObjWkBk = Nothing: Set ObjXl = Nothing

错误如下：错误：预期语句代码：800A0400

标签： excelms-wordvbscript