用VBA实现批量数据填充到word模板

在VBA（Visual Basic for Applications）中，可以使用宏来实现Word文档的批量数据填充。这通常涉及到以下几个步骤：

1. **打开模板文件**：首先，你需要使用`Documents.Open`方法打开包含模板内容的Word文档。

Dim wdTemplate As Word.Document
Set wdTemplate = Documents.Open("C:\Path\To\Your\Template.docx")

2. **创建数据源**：假设你有一个Excel工作表，你可以使用`Application.GetActiveWorkbook.Worksheets`来获取它。

Dim wsData As Worksheet
Set wsData = ActiveWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名

3. **读取数据**：通过`.Range`或`.Cells`选择器读取Excel的数据，如一列或多行。

Dim dataRange As Range
Set dataRange = wsData.Range("A2:B10") ' 替换为你需要的数据范围

4. **遍历数据并替换Word文本**：使用`With`语句和`.Find`和`.Replace`方法，在Word文档中查找特定标签（如`{name}`或`{date}`），然后用数据替换它们。

With wdTemplate
    For Each cell In dataRange
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
        .Find.Text = "{" & cell.Address(False, True) & "}"
        .Replace What:="", Replacement:=cell.Value, LookAt:=wdWholeWord
    Next cell
End With

5. **保存并关闭**：完成数据填充后，记得保存修改并关闭Word文档。

wdTemplate.SaveAs "C:\Output\" & Format(Date, "yyyy-mm-dd-hh-mm-ss") & ".docx" ' 新的保存路径
wdTemplate.Close SaveChanges:=True