要在Excel中批量填充Word模板，您可以使用VBA宏来完成此任务。这将循环遍历Excel的每个工作表，并根据指定的替换标记在Word模板中进行文本替换。每个工作表的数据将被填入Word模板中，并另存为一个新的Word文档。
要在Excel中批量填充Word模板，您可以使用VBA宏来完成此任务。以下是一个示例VBA代码来实现此目标：
```vba
Sub FillWordTemplate()
Dim wdApp As Object
Dim wdDoc As Object
Dim ws As Worksheet
Dim rng As Range
Dim i As Integer
' 创建Word应用程序对象
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
' 循环遍历每个工作表
For Each ws In ThisWorkbook.Worksheets
' 定义要填充的区域范围
Set rng = ws.Range("A2:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
' 打开Word模板文件
Set wdDoc = wdApp.Documents.Open("C:\路径\至\您的\Word模板文件.docx")
' 循环遍历每个区域单元格
For i = 1 To rng.Rows.Count
' 在Word模板中查找并替换文本
With wdDoc.Content.Find
.Text = "<<文本替换标记" & i & ">>"
.Replacement.Text = rng.Cells(i, 1).Value
.Execute Replace:=2
End With
Next i
' 关闭并保存Word文档
wdDoc.Close SaveChanges:=True, Filename:="C:\路径\至\保存的\Word文件_" & ws.Name & ".docx"
Next ws
' 关闭Word应用程序对象
wdApp.Quit
Set wdApp = Nothing
Set wdDoc = Nothing
End Sub
```
请按照以下步骤操作：
1. 打开Excel文件，然后按下`Alt + F11`打开VBA编辑器。
2. 在VBA编辑器中，插入一个新的模块（`Insert -> Module`）。
3. 将上述VBA代码复制粘贴到新插入的模块中。
4. 根据您的实际需要，修改代码中的文件路径和替换标记。
5. 关闭VBA编辑器并返回到Excel界面。
6. 在Excel中，按下`Alt + F8`打开宏对话框。
7. 选择“FillWordTemplate”宏，并单击“Run”按钮执行宏。
这将循环遍历Excel的每个工作表，并根据指定的替换标记在Word模板中进行文本替换。每个工作表的数据将被填入Word模板中，并另存为一个新的Word文档。