Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/visual-studio-2012/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
从Excel复制到Word中的特定位置_Excel_Vba_Ms Word - Fatal编程技术网

从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

我正在将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

我刚刚遇到了同样的问题,并使用了以下代码。我使用一个名为“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

有什么建议吗?