Sub myMailMerge()
Dim myMerge As MailMerge, i As Integer, myname As String
Application.ScreenUpdating = False
Set myMerge = ActiveDocument.MailMerge
With myMerge.DataSource
If .Parent.State = wdMainAndDataSource Then
.ActiveRecord = wdFirstRecord
For i = 1 To .RecordCount
.FirstRecord = i
.LastRecord = i
.Parent.Destination = wdSendToNewDocument
'生成的各文档的文件名，以数据源第1个和第2个字段的当前数据命名，请自行修改命名公式，例 "公司文档" & .DataFields (4)
myname = .DataFields(2).Value & “ ” & .DataFields(1).Value
.ActiveRecord = wdNextRecord
.Parent.Execute
With ActiveDocument
.Content.Characters.Last.Previous.Delete
'生成的各文档保存于D盘根目录下，请自行修改文档保存的路径
.SaveAs "D:\" & myname & ".doc"
.Close
End With
Next
End If
End With
Application.ScreenUpdating = True
End Sub作者: dainel 时间: 2017-1-5 16:57
Word邮件合并批量生成单个文档，页眉引用不了数据源，求大神解答作者: tmtony 时间: 2017-1-6 11:10
这里看不到你的Datasource,
要提供相关对应的文件上来才好帮你调试作者: Wendyanne 时间: 2017-5-2 17:01
请问这个问题解决了吗？我也遇到了一样的问题。。。。。作者: Wendyanne 时间: 2017-5-3 11:19
阴差阳错，我终于解决了这个问题，把.Content.Characters.Last.Previous.Delete这句话删掉，这句话可能是“删除分节符”的意思作者: vera 时间: 2018-6-11 10:45
请问下，Word邮件合并生成单个文档时页眉页脚不会一并在单个文档中生成，这样需要怎么设置