Question

我正在将Excel中的一系列单元格复制为图片，然后粘贴到word文档中。它粘贴在文档的开头，如何将其设置为粘贴到特定区域？该区域可以用我后来找到/替换的一些文字来表示。

谢谢！

Range("A1:H5").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture



Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Open("MyFile.docx")

objWord.Visible = True

Set objSelection = objWord.Selection

objSelection.Paste


End Sub

Answer 1

我刚遇到同样的问题并使用了以下代码。我使用一个名为“here”的书签，它保存在我的Word文档中。 HTH，米奇。

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open("MyFile.docx")

Range("A1:H5").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
WordApp.Visible = True
WordApp.ActiveDocument.Bookmarks("here").Select
Set objSelection = WordApp.Selection
objSelection.Paste

VBA：从Excel复制为图像并粘贴到Word中

1 个答案: