思路：
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
————————————————
版權聲明：本文為CSDN博主「jyh_jack」的原創文章，遵循CC 4.0 BY-SA版權協議，轉載請附上原文出處鏈接及本聲明。
原文鏈接：https://blog.csdn.net/jyh_jack/article/details/90139144