Excel邮件合并宏生成PDF未替换合并域及筛选需求求助

问题1：PDF未替换邮件合并域，显示域名称 #

这个问题的核心是你现在导出的是原始的Word模板文档，而不是邮件合并生成的新文档。原代码里虽然执行了.Execute生成新文档，但后续循环操作的还是模板文件wdDoc，自然不会有合并后的内容。

修改方案： #

执行邮件合并后，获取生成的新Word文档对象，针对这个新文档进行PDF导出，完成后关闭它。核心调整是捕获合并后的新文档，而非一直操作模板。

问题2：按首行标记筛选需要合并的行 #

假设你在Excel的**首列（比如A列）**添加标记，填写“x”的行需要合并。我们可以在循环里加入判断逻辑，跳过没有“x”的行，确保只处理符合条件的数据。

完整修改后的宏代码 #

Sub RunMailMerge()
    Dim wdOutputName, wdInputName, PDFFileName As String
    Dim x As Integer
    Dim nRows As Integer
    wdInputName = ThisWorkbook.Path & "\Letter.docx" ' 补全路径分隔符，避免拼接错误
    
    Const wdFormLetters = 0, wdOpenFormatAuto = 0
    Const wdSendToNewDocument = 0, wdDefaultFirstRecord = 1, wdDefaultLastRecord = -1 ' -1表示所有记录
    Const wdNextRecord = 2
    
    ' 获取有效数据行数（-1排除表头行）
    nRows = Sheets("Overview").Range("B" & Rows.Count).End(xlUp).Row - 1
    
    ' 打开邮件合并模板文档
    Dim wdDoc As Object
    Set wdDoc = GetObject(wdInputName, "Word.document")
    wdDoc.Application.Visible = False
    
    Dim mergedDoc As Object
    With wdDoc.MailMerge
        .MainDocumentType = wdFormLetters
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord ' 处理所有记录
        End With
        .Execute Pause:=False
        ' 捕获邮件合并生成的新文档
        Set mergedDoc = wdDoc.Application.ActiveDocument
    End With
    
    For x = 1 To nRows
        With wdDoc.MailMerge.DataSource
            .ActiveRecord = x
            If .ActiveRecord > .LastRecord Then Exit For
            
            ' 检查标记列（这里假设标记在A列，可自行修改列号，比如改成3对应C列）
            Dim isMergeNeeded As Boolean
            isMergeNeeded = UCase(Trim(Sheets("Overview").Cells(x + 1, 1).Value)) = "X" ' 忽略大小写和空格
            If Not isMergeNeeded Then GoTo NextRow ' 跳过不需要合并的行
        End With
        
        ' 生成PDF文件名
        PDFFileName = ThisWorkbook.Path & "\Letter - " & Sheets("Overview").Cells(x + 1, 2) & ".pdf"
        
        ' 导出合并后的文档为PDF
        mergedDoc.ExportAsFixedFormat PDFFileName, 17 ' 17对应wdExportFormatPDF
        
        ' 切换到下一条数据记录
        wdDoc.MailMerge.DataSource.ActiveRecord = wdNextRecord
        
NextRow:
    Next x
    
    ' 清理资源，关闭文档
    mergedDoc.Close SaveChanges:=False
    wdDoc.Close SaveChanges:=False
    Set mergedDoc = Nothing
    Set wdDoc = Nothing
    
    MsgBox "PDF文件已成功保存！"
End Sub

额外提示： #

• 确保Word模板中的邮件合并域和Excel的列名完全一致，否则也会出现域不替换的情况。
• 原代码里的wdDefaultLastRecord = 3是固定只处理3条记录，改成-1会处理所有符合条件的数据行。

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