excel数据用宏批量生成多个word文件-今日头条

在Excel中使用宏可以批量生成多个Word文件，以下是具体的操作步骤和方法：

准备工作：
- 确保Excel数据文件的第一个sheet页包含所需的数据。如果需要插入图片，可以将图片放在每条记录的某一列中或填写图片的网络地址。
- 制作一个Word文档模板，标注出需要批量填写的内容。使用英文大括号将Excel文件中的数据列标题名称括起来，例如：{姓名}、{身份证号}等。
- 模板文件名称可以设置为自动填充，确保数据列中不包含非法字符。

使用VBA代码：

打开Excel，按下Alt + F11打开VBA编辑器。
插入一个新的模块，将以下VBA代码复制到模块中：

plaintext

Sub GenerateWordDocuments()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim excelRow As Range
    Dim templatePath As String
    Dim outputPath As String
    Dim fieldName As String
    Dim fieldValue As String
    Dim i As Integer
    Dim lastRow As Integer

    lastRow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    templatePath = "C:\Your\Template\Path\YourTemplate.docx" '替换为实际的模板路径
    outputPath = "C:\Your\Output\Path\" '替换为实际的输出路径

    Set wdApp = New Word.Application
    wdApp.Visible = False

    For Each excelRow In Sheet1.Range("A1:A" & lastRow).Rows
        Set wdDoc = wdApp.Documents.Open(templatePath)
        For i = 1 To excelRow.Cells.Count
            fieldName = Sheet1.Cells(1, i).Value
            fieldValue = excelRow.Cells(i).Value
            wdDoc.Range.Replace What:="{" & fieldName & "}", Replacement:=fieldValue, LookAt:=wdFindWholeWord
        Next i
        wdDoc.SaveAs2 outputPath & excelRow.Cells(1).Value & ".docx" '使用第一列的值作为文件名
        wdDoc.Close SaveChanges:=True
    Next excelRow

    wdApp.Quit
End Sub