EXCEL-VBA：将EXCEL的表格、图形、文字粘贴到Word中的指定位置

定位置

思路：

1、Word建书签，不会的⾃⼰百度；2、EXCEL中复制；

3、Word中找到书签并选中，粘贴或复制。

注意：⼀定要在EXCEL⼯具－引⽤ “Microsoft Word 1?.0 Object Library”，否则⼀些Word中的类⽆法使⽤的。Sub test()

Dim Sheet As Worksheet

Set Sheet = ThisWorkbook.Sheets(1) '定义EXCEL Sheet变量

Dim WordApp As Word.Application 'Word应⽤Dim WordDoc As Word.Document 'Word⽂档Set WordApp = New Word.ApplicationWordApp.Visible = True

Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & \"\\Temp.docx\") '打开同⽬录下的Temp.docx⽂档'表格-->Word

Sheet.Range(\"B2:F5\").Copy '.CopyPicture是可以作为图⽚复制的

WordDoc.Bookmarks(\"BookMark1\").Range.Select '选择Word中的书签BookMark1WordApp.Selection.Paste

'图形（柱状图等）-->WordSheet.ChartObjects(1).Copy

WordDoc.Bookmarks(\"BookMark2\").Range.SelectWordApp.Selection.Paste

'⽂字-->Word

WordDoc.Bookmarks(\"BookMark3\").Range.Select

WordApp.Selection.TypeText Text:=\"EXCEL⽂字到Word\"WordDoc.Save '保存WordDoc.Close '关⽂档WordApp.Quit '退Word

Set WordDoc = Nothing '清变量Set WordApp = NothingEnd Sub