wsxq2

Sub auto_export_data_from_excel_to_word()
'将 Excel 中的 N 行数据导出到 Word 中的 N 个表格中
'输入：一个Excel表（提供数据），一个doc模板（提供表格模板）
'输出：一个doc文件，默认名称为 output.doc
'使用方法：
'    1. 打开Word和 Excel 的“开发工具”工具栏。可Bing搜索具体方法
'    2. 复制本函数代码到Excel文件的Visual Basic中：先打开Excel文件，点击“开发工具”，再点击“VisualBasic”，然后新建一个模块，将本函数代码复制过去
'    3. 调整本函数：一是调整doc输入输出文件名；二是Excel表格起始行和结束行，同时注意 wdapp.ActiveDocument.tables(r -1)的下标要正确调整；三是数据赋值部分需要正确对应相应的单元格；四是查找的内容要正确替换
'    4. 运行