VBA邮件合并生成PDF：单记录对应单个PDF的代码调整问询

问题：现有VBA代码已实现Word文档打开、数据源绑定、邮件合并及PDF保存，但生成的每个PDF都包含所有数据记录，需修改为单条记录对应单个PDF。

修改思路 #

核心问题是原代码未指定邮件合并的记录范围，默认会合并全部数据源记录。只需在每次循环中设置MailMerge的FirstRecord和LastRecord属性，限定为当前要处理的单条记录即可。

修改后的完整代码 #

Private Sub CommandButton1_Click()
Dim wdApp As Object
Dim wdDoc As Object
Dim tempDoc As Object
Dim wordDocPath As String
Dim dataSourcePath As String
Dim saveDir As String
Dim savePath As String
Dim lastRow As Long
Dim i As Long
Dim pdfFileName As String
Dim ws As Worksheet

' 定义Word文档路径
wordDocPath = "M:\...\1. Letter.docx"

' 定义Excel数据源路径
dataSourcePath = "M:\...\Interview Schedule.xlsm"

' 定义PDF保存目录
saveDir = "M:\...\02. Letters\"

' 指定邮件合并数据所在工作表
Set ws = ThisWorkbook.Sheets("Mailmerge")

' 获取数据最后一行
lastRow = ws.Cells(ws.Rows.Count, "V").End(xlUp).Row

' 创建或获取Word实例
On Error Resume Next
Set wdApp = GetObject(Class:="Word.Application")
If wdApp Is Nothing Then
    Set wdApp = CreateObject(Class:="Word.Application")
End If
On Error GoTo 0

wdApp.Visible = True

' 打开Word文档
Set wdDoc = wdApp.Documents.Open(wordDocPath)

' 绑定Excel数据源
wdDoc.MailMerge.OpenDataSource _
    Name:=dataSourcePath, _
    SQLStatement:="SELECT * FROM [Mailmerge$]"

' 循环处理每条记录
For i = 2 To lastRow ' 假设数据从第2行开始
    ' 获取列V中的PDF文件名
    pdfFileName = ws.Cells(i, "V").Value
    
    ' 执行单条记录的邮件合并
    With wdDoc.MailMerge
        .Destination = 0 ' wdSendToNewDocument
        ' 关键修改：限定合并当前单条记录，数据源索引从1开始，对应Excel行i-1
        .FirstRecord = i - 1
        .LastRecord = i - 1
        .Execute Pause:=False
        
        ' 保存为PDF
        savePath = saveDir & pdfFileName & ".pdf"
        wdApp.ActiveDocument.SaveAs2 Filename:=savePath, FileFormat:=17 ' 17对应PDF格式
        
        ' 关闭生成的临时文档
        wdApp.ActiveDocument.Close SaveChanges:=False
    End With
Next i

' 关闭原Word文档
wdDoc.Close SaveChanges:=False

' 退出Word
wdApp.Quit

' 释放对象
Set wdDoc = Nothing
Set wdApp = Nothing

MsgBox "邮件合并完成，PDF已保存至指定目录。"

End Sub

关键修改说明 #

• 在With wdDoc.MailMerge代码块中新增了.FirstRecord = i - 1和.LastRecord = i - 1两行：Excel数据从第2行开始，对应Word邮件合并数据源的第1条记录，因此用i-1匹配当前处理的单条记录索引
• 这两句代码强制每次仅合并指定的单条记录，确保生成的PDF只包含当前行对应的内容

内容的提问来源于stack exchange，提问作者Blake Stretton