Word邮件合并批量生成单个文档，页眉引用不了数据源，求大神解答

dainel

下面是代码：
VBA代码：

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

Word邮件合并批量生成单个文档，页眉引用不了数据源，求大神解答

tmtony

这里看不到你的Datasource,
要提供相关对应的文件上来才好帮你调试

Wendyanne

请问这个问题解决了吗？我也遇到了一样的问题。。。。。

Wendyanne

阴差阳错，我终于解决了这个问题，把.Content.Characters.Last.Previous.Delete这句话删掉，这句话可能是“删除分节符”的意思

vera

请问下，Word邮件合并生成单个文档时页眉页脚不会一并在单个文档中生成，这样需要怎么设置