设为首页收藏本站Access中国
Office中国(www.office-cn.net),专业Office论坛

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表 发新帖
查看: 1528|回复: 5

[宏/菜单/工具栏] Word邮件合并批量生成单个文档,页眉引用不了数据源,求大神解答

[复制链接]
发表于 2017-1-5 16:11:47 | 显示全部楼层 |阅读模式
下面是代码:
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
 楼主| 发表于 2017-1-5 16:57:12 | 显示全部楼层
Word邮件合并批量生成单个文档,页眉引用不了数据源,求大神解答

点击这里给我发消息

发表于 2017-1-6 11:10:18 | 显示全部楼层
这里看不到你的Datasource,
要提供相关对应的文件上来才好帮你调试
发表于 2017-5-2 17:01:49 | 显示全部楼层
请问这个问题解决了吗?我也遇到了一样的问题。。。。。
发表于 2017-5-3 11:19:51 | 显示全部楼层
阴差阳错,我终于解决了这个问题,把.Content.Characters.Last.Previous.Delete这句话删掉,这句话可能是“删除分节符”的意思
发表于 2018-6-11 10:45:45 | 显示全部楼层
请问下,Word邮件合并生成单个文档时页眉页脚不会一并在单个文档中生成,这样需要怎么设置
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐