从Excel复制到Word中的特定位置
我正在将Excel中的一系列单元格作为图片复制到Word文档中。它粘贴在文档的开头。从Excel复制到Word中的特定位置,excel,vba,ms-word,Excel,Vba,Ms Word,我正在将Excel中的一系列单元格作为图片复制到Word文档中。它粘贴在文档的开头。 如何在特定区域粘贴?该区域可以由我稍后查找/替换的文本表示 Range("A1:H5").Select Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Doc
如何在特定区域粘贴?该区域可以由我稍后查找/替换的文本表示
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
我刚刚遇到了同样的问题,并使用了以下代码。我使用一个名为“here”的书签,它保存在我的Word文档中。嗯,米奇
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
有什么建议吗?