使用邮件合并主文档分解独立文档并根据域内容命名
来源:互联网 发布:淘宝自动充话费软件 编辑:程序博客网 时间:2024/04/28 10:59
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个字段(合并域)的当前数据字符串,用以命名文件
myname = .DataFields(1).Value & .DataFields(2).Value
.ActiveRecord = wdNextRecord
.Parent.Execute '每次合并一个数据记录
With ActiveDocument
.Content.Characters.Last.Previous.Delete '删除分节符
.SaveAs "E:\" & myname & ".doc" '假设生成的各文档保存于E盘根目录下
.Close '关闭生成的文档(已保存)
End With
Next
End If
End With
Application.ScreenUpdating = True
'主文档的类型为信函
'合并全部数据记录
'假设主文档已链接好数据源,可以进行正常的邮件合并
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个字段(合并域)的当前数据字符串,用以命名文件
myname = .DataFields(1).Value & .DataFields(2).Value
.ActiveRecord = wdNextRecord
.Parent.Execute '每次合并一个数据记录
With ActiveDocument
.Content.Characters.Last.Previous.Delete '删除分节符
.SaveAs "E:\" & myname & ".doc" '假设生成的各文档保存于E盘根目录下
.Close '关闭生成的文档(已保存)
End With
Next
End If
End With
Application.ScreenUpdating = True
End Sub
0 0
- 使用邮件合并主文档分解独立文档并根据域内容命名
- word 创建邮件及合并主文档
- 使用Jacob合并Word文档并填充文档中的书签
- Word文档中--邮件合并
- Aspose.words合并文档、邮件合并功能
- 在邮件合并时使用Aspose.Words生成多个文档的具体代码
- Word使用心得:邮件合并
- abas ERP主文档
- 格式化文本域内容
- 格式化文本域内容
- 告别Word文档邮件合并产生的超长小数位数
- 解决Word文档邮件合并产生的超长小数位
- word的使用——邮件合并
- js自动过滤替换页面文本框和文本域内容中的特殊字符并进行提示
- Chromium主文档加载流程
- C# 合并两个int数组 合并后根据大小排序 并输出
- BGR分解与合并
- 技巧: 使用 StAX 合并 XML 文档
- 数据库常见问题
- jQuery中的end()方法
- 919正式开始写博客
- 非阻塞socket的连接 connect
- 怎么限制Google自动调整字体大小
- 使用邮件合并主文档分解独立文档并根据域内容命名
- linux内核CFS进程调度策略分析(二)
- P沟道mos管作为开关的条件(GS >GS(TH))
- LA 3708 Graveyard,NEERC 2006
- 系统调用跟我学(3)
- WORD邮件合并文档自动拆分每节为一个文档
- 从监听系统启动开始学习系统广播
- 不用临时变量交换两个数的值
- N/