思路：
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