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

在VBA（Visual Basic for Applications）中，可以利用宏操作将Excel的数据填充到Word模板文档中。以下是基本步骤：

1. **打开工作簿和模板**：首先，你需要在Excel中打开包含数据的工作表，并通过`Documents.Open`方法加载Word模板文件。

Dim excelSheet As Worksheet
Set excelSheet = ThisWorkbook.Sheets("Sheet1") ' 假设数据在Sheet1
Dim wordDoc As Word.Document
Set wordDoc = Documents.Open("C:\Template.docx")

2. **读取Excel数据**：从Excel工作表中选择需要的数据范围，比如A1:C10，然后将其转换为字符串数组或对象列表。

Dim dataRange As Range
Set dataRange = excelSheet.Range("A1:C10")
Dim data() As Variant
data = dataRange.Value

3. **遍历数据并插入Word**：创建一个新的Word文档，然后循环遍历数据，用`ActiveDocument.Content.InsertBefore`方法将每个单元格的内容插入到Word文档相应的位置。

For i = LBound(data, 1) To UBound(data, 1)
    Dim rowData As String
    rowData = Join(data(i, 1, 3), vbNewLine) ' 将列合并为行
    wordDoc.Content.InsertAfter rowData & vbCrLf ' 添加换行符
Next i

4. **保存和关闭**：最后，记得保存并关闭Word文档。

wordDoc.SaveAs "C:\Output\ProcessedTemplate.docx"
wordDoc.Close