利用vba将excel数据填入多个word模版中

利用VBA（Visual Basic for Applications）可以方便地将Excel数据填充到多个Word文档的模板中。以下是基本步骤：

1. **准备工作**：
- 在Excel中准备好数据，确保每一列代表Word模板中的一个字段。
- 准备Word模板文件，每个模板应该有一个特定的位置等待插入数据。

2. **编写VBA宏**：
- 打开一个新Word文档，转到`Developer`选项卡，选择`Visual Basic`。
- 创建一个新的VBA模块，然后编写以下基础代码框架，这里假设`xlWorkBook`是Excel的工作簿，`wordDoc`是Word文档对象：

   Sub FillExcelToWord()
       Dim ws As Worksheet, lastRow As Long, i As Long
       Set ws = ThisWorkbook.Sheets('Sheet1') ' 改为你实际的Excel工作表名
       lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

       For i = 2 To lastRow ' 假设从第二行开始有数据
           ' 假设Word文档的起始位置是第2页的顶部，你可以根据需求调整
           wordDoc.Content.InsertAfter ws.Cells(i, 1).Value ' 读取Excel数据，替换为你的Word插入位置
           ' 依次处理其它列数据
       Next i
   End Sub

3. **调用宏**：
- 在Word文档上，关闭代码编辑器，点击宏下的`FillExcelToWord`来运行它，数据会按顺序填充到每个模板。

4. **处理多个模板**：
- 可以创建一个数组存储模板路径，然后遍历数组，每次运行宏前更改`wordDoc`为当前模板的Word文档对象。

注意：此过程可能会比较耗时，特别是数据量大时，可以根据实际情况考虑使用异步编程或者分批处理来优化性能。