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.Application
WordApp.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中的書籤BookMark1
WordApp.Selection.Paste

'圖形（柱狀圖等）-->Word
Sheet.ChartObjects(1).Copy
WordDoc.Bookmarks("BookMark2").Range.Select
WordApp.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 = Nothing

End Sub