最近在实施的一个项目中碰到客户需要将EXCEL的表格和图表自动传递到WORD标准模板中，并嵌入到指定位置。微软OFFICE中有很强的互用性。几经摸索成功测试！！！现将思路整理如下：
1、建立好标准WORD模板，在需要插入表格或图表的位置设置好书签。
2、在EXCEL中，将表格复制。
3、通过VBA代码调用WORD，并将内容复制到指定位置。
参考代码如下：
Private Sub 生成表格到WORD_Click()
''声明变量
Dim MyRange As Excel.Range
Dim wd As Word.Application
Dim wdDoc As Word.Document
Dim WdRange As Word.Range
''复制区域
Set MyRange = Sheet1.Range("A1:H9")
MyRange.Copy
''打开Word文档
Set wd = New Word.Application
Set wdDoc = wd.Documents.Open("D:\TEST.DOT")
wd.Visible = True
''将光标移至书签位置
Set WdRange = wdDoc.Bookmarks("TEST").Range
On Error Resume Next
WdRange.Paste
''内存清理
Set wd = Nothing
Set wdDoc = Nothing
Set WdRange = Nothing