求教VBA高手，EXCEL里输入数据,自动生成相应的WORD文件之实现..

[ChneChen]

具体实现要求如下：
1、打开EXCEL文件,输入相关数据，
2、关闭EXCEL文件，这时调用对应WORD模板，生成相应的WORD文件并自动保存（每一行EXCEL数据生成一个WORD文件）

想请CSDN上做过这类的高手给点VBA源代码提供参考,万分感谢！！(WORD邮件合并请不用介绍，谢谢！)..

[蓝帆·雨轩]

循环就是了。

[andyzgx1]

帮LZ UP一下！顺便学习

[ChneChen]

Yiqun_Zhao(蓝帆·雨轩 MS MVP)
循环就是了。
-----------
思路上我还是有点头绪，但主要是没做过VBA开发，所以想想请CSDN上做过这类的高手给点VBA源代码提供参考,万分感谢！

[magic_u]

如有，请给我一份。我也需要

[jacktown]

首先要搞清楚几个问题
1你是要将指定表格里的数据生成WORD文件呢还是将整个工作薄里每个表的数据都生成WORD文件
2你是只要生成最新输入的数据呢还是生成所有数据
3自动生成的WORD文件准备如何命名呢？
4生成的WORD文件是什么格式？纯文字还是表格？

[ljc007]

初学VBA
看看斑竹怎样写

[crystal_19790103]

Sub AddNew(fname,Row)
Set NewBook = Workbooks.Add
With NewBook
.Title = "All Sales"
.Subject = "Sales"
.SaveAs Filename:=fname&".Doc" //创建名为*.Doc文件
End With
Workbooks.Open(fname&".Doc") //打开这个文件
Set oDoc = ActiveDocument
　　 Set oTable= oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows
:=1) //创建一行
oCell.Range.InsertAfter row //写如一行
End Sub
For Counter = 1 To 20
Row=Workbooks("Book1").Sheets("Sheet1").Rows(Counter) //读Execel第一行
AddNew(Counter,Row) //调用AddNew创建Doc表以及写入数据
Next Counter

[ChneChen]

首先感谢所有关注我的问题的朋友,因为最近忙于其它工作,就没有继续关注这个问题,

顺便,我对jacktown提出的几个问题做如下回答:
1你是要将指定表格里的数据生成WORD文件呢还是将整个工作薄里每个表的数据都生成WORD文件
答:其实都一样,因为整个工作薄只有一张表,

2你是只要生成最新输入的数据呢还是生成所有数据
答:因为此EXCEL文件要多次重复使用,所以每输入一次都要生成,只需要生成最新输入的.

3自动生成的WORD文件准备如何命名呢？
答:这个不重要,最好是以每一行EXCEL数据中的某一个字段来命名,如序号.

4生成的WORD文件是什么格式？纯文字还是表格？
答:生成前要调用对应WORD模板，此WORD模板是一个复杂的表格...