使用Microsoft Mail Merge批量生成文档的问题咨询

• 调整合并完成选项
  走完邮件合并向导后，别选“编辑单个信函”的逐份生成模式。选“完成并合并”里的“编辑单个文档”，勾选“全部”，Word会生成一个包含所有合并内容的单文档，不会弹出一堆“Letters”窗口。如果要单独保存每份文档，别用手动逐份编辑的方式。

• 用VBA脚本自动批量生成保存
  按Alt+F11打开Word的VBA编辑器，插入模块，粘贴下面的代码，改好保存路径和文件名规则后运行，就能自动生成并保存每份文档，全程不会打开单个“Letters”窗口：

  Sub MailMergeToDocs()
      Dim objMerge As MailMerge
      Dim objDoc As Document
      Dim strSavePath As String
      
      Set objMerge = ActiveDocument.MailMerge
      strSavePath = "C:\你的目标保存文件夹\" ' 替换成实际路径
      
      For i = 1 To objMerge.DataSource.RecordCount
          objMerge.DataSource.ActiveRecord = i
          objMerge.Destination = wdSendToNewDocument
          objMerge.Execute False
          
          Set objDoc = ActiveDocument
          ' 这里用Excel数据源里的“姓名”字段命名，换成你实际的字段名
          objDoc.SaveAs2 strSavePath & objMerge.DataSource.DataFields("姓名").Value & ".docx"
          objDoc.Close False
      Next i
  End Sub
  

  注意：提前确认邮件合并的数据源已经正确连接，替换代码里的保存路径和字段名（比如把“姓名”改成你Excel里用来区分每份文档的字段，比如“客户ID”）。

• 检查模板的合并设置
  打开你的邮件合并模板，到“邮件”选项卡，确认“选择收件人”里的数据源连接正常。再检查“完成并合并”的选项，确保没选到逐份打开编辑的模式，优先用批量生成单文档或VBA脚本的方式。

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