word邮件合并自动拆分
2007-12-16 15:12
316 查看
Sub autosplit()
For i = 1 To 11 'i是拆分成的文件个数
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1 + (i - 1) * 2000
.LastRecord = i * 2000
End With
.Execute Pause:=False
End With
ActiveDocument.SaveAs FileName:="c:/jjh_new" & i & ".doc"
ActiveDocument.Close
Windows("jjh.doc").Activate
Next i
End Sub
For i = 1 To 11 'i是拆分成的文件个数
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1 + (i - 1) * 2000
.LastRecord = i * 2000
End With
.Execute Pause:=False
End With
ActiveDocument.SaveAs FileName:="c:/jjh_new" & i & ".doc"
ActiveDocument.Close
Windows("jjh.doc").Activate
Next i
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 利用Word的"邮件合并"功能,自动发送工资表邮件(亲自实践)
- Word之邮件合并
- 轻松玩转word表格拆分与合并
- Word中的邮件合并
- 邮件合并----WORD2013、EXCEL2013
- Word邮件合并技巧提高办公效率
- word 中的邮件合并
- Word（七）-强大的“邮件合并”（3）
- Word文档中--邮件合并
- Visual FoxPro 9调用word 2003 实现邮件合并功能
- 利用word的邮件合并做标签纸条
- word邮件合并中日期/电话号码/金额字段的格式
- C# 实现多种Word邮件合并功能
- [转]Word邮件合并打印
- 批量制作word文档-邮件合并
- 如何自动执行 Microsoft Word 执行邮件合并使用 Visual c + + 和 MFC
- 利用Word邮件合并插入图片
- WORD邮件合并打印EXCEL数据制作大量奖证、奖状、准考证、成绩单、明信片、信封等个人报表
- 第九周（1） Word邮件合并2
- word的使用——邮件合并