用<em>excel</em>的<em>vba</em>生成<em

步骤一、先进入Excel表格，然后选中需要导入到Word文档中的区域，按下 Ctrl+C 复制;
步骤二、打开Word，然后选择zd菜单栏的“编辑”中的“选择性粘贴”，在“形式”下面选中“Microsoft Office Excel 工作表 对象”然后确定;
　　此时，就已经把编辑好的Excel表格导入到Word中了，有的人这时肯定会专说，这还不是和Word中表格没什么却别啊!确实，就这样用肉眼看，根本就看不错这个表格和Word中做的表格有什么不一样属之处;
　　区别肯定是有的，不信你双击表格看看，会是什么效果，没错把，导入的表格和Excel中的表格一模一样，当然，这个表格也可以自由拖动它的长和宽，还可以运用Excel中的公式呢!

简单的复制粘贴即可。

1. 准备好将生成文档的数据（excel格式）。将制式的文档的打开，按照文档每一项的顺序依次插入数据源（下面会用简单的数据作为例子）。

2. 首先点击word工具栏中的引用，然后点击邮件。
   

3.此时，工具栏中显示是邮件合并，然后点击打zhidao开数据源，查找你需要导入的数据表格，点击打开即可。

4.光标落到任意项即可，不分先后顺序，但最好按顺序依次插入。文档上回的项必须和插入域中选中的项一致，然后点击插入，然后点击关闭，依次插完合并域，注：每项插完后必须点击关闭，要不然就是重复插入呦，（注：操作正确的话，默认为数据库域）如果一不小心，在插入合并域时不小心点到工具栏中的其他选项，不要着急，直接点引用-邮件可以继续答插入呢

5.全部合并域插完后，是这个样子滴，提醒小伙伴们，一定要再三检查完插入是否正确呦

6.检查无误后，点击工具栏中的合并到新文档

7.最后生成就是这个样子啦

Sub GenDocfromExcel()

'excel控制word,生成新文件，插入图片和文件名，保存
'office 2003, VBA工具zhidao/引用中要勾选Microsoft Word 11.0 Object Library
'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library
'...

Range("A1:B13").Copy '复制当前内容

Dim WordApp As Word.Application '定义版变量
Set WordApp = CreateObject("Word.Application") '生成WORD对象
WordApp.Documents.Add '新建文权件

WordApp.Selection.Paste '粘贴

fn$ = "D:\" & Range("b1") '生成文件名
WordApp.ActiveDocument.SaveAs fn$ '保存文件

WordApp.Quit '退出
Set WordApp = Nothing '取消变量

End Sub