办公室高级技能之Word邮件合并拆分

晶彩制版

当我们需要批量生成名片，合同，成绩单等有相同内容的文件时，使用word邮件合并功能非常方便。如果你还需要把word文件发给不同的人就需要再拆分一下，用复制粘贴的方法拆分word，数量一多不仅效率低，还会因为文档格式变化变得不一样，如果有图片的话又无法用大纲视图拆分，如果转成PDF文件再拆分后再转回word，格式还是会有变动，对于喜欢完美的强迫症患者来说，这真的是难以接受。
       其实就算有图片或表格，也是可以完美拆分的，下面我用word2010给大家举个例子演示一下这套方法的完整流程。
年底了，老板让助理给手下的10名一线员工写一封表扬信，对他们在公司的辛苦工作表示肯定，同时也调研一下他们对公司的期望，为了方便回收整理，以邮件附件的形式发给对方。
    1. 准备好需要替换的EXCEL数据源


    2. 打开word模板文件


  3.邮件合并


















如果插入域的格式不是文本，注意邮件合并之前修改域代码，即选择插入的域，右键选择“切换域代码”，在“\”输入想要对应的格式，如日期格式：@“yyyy-mm-dd”




注：第一次使用邮件合并会在合并后生成新文档“信函1”，如果想要拆分成单个文件，记得先将生成的信函关闭。
     4.文件拆分




点击运行后会在当前word文件目录下生成“拆分后文档”，运行结果如下：


代码：
Sub myMailMerge()
'主文档的类型为信函
'合并全部数据记录
'假设主文档已链接好数据源，可以进行正常的邮件合并
Dim myMerge As MailMerge, i As Integer, myname As String, t As String
t = ActiveDocument.Path
Set fso = CreateObject("scripting.filesystemobject")
    If (fso.folderexists(t & "\拆分后文档")) Then
     Else
       Set f1 = fso.createfolder(t & "\拆分后文档")
     End If
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个数据字符串，用以命名文件
            myname =  .DataFields(1).Value
            .ActiveRecord = wdNextRecord
            .Parent.Execute  '每次合并一个数据记录
            With ActiveDocument
                .Content.Characters.Last.Previous.Delete  '删除分节符
                .SaveAs t & "\拆分后文档\" & myname '生成的各文档保存目录
                .Close  '关闭生成的文档（已保存）
            End With
        Next
    End If
End With
Application.ScreenUpdating = True
MsgBox "拆分操作完毕!" & vbCrLf & "请到本目录下“拆分后文档”文件夹查看！！", vbInformation
End Sub



关注微信公众号，领取更多干货

中国式关系

拆分后是空的啊

手扶拖拉机司机

你是在原模板文件下运行代码的吗？

奔走相告

运行后显示不是有效文件名 这是怎么回事呀

渴望水生

word邮件合并及文件拆分详解https://mp.weixin.qq.com/s/gUMFdYt7Of6y_BIGha7O3w

龙月飞虹

按照文章内容，一步一步往下做后，点击宏运行后（word已在信任中心中设置了信任所有宏），文件所在的文件夹确实生成了新的文件夹“拆分后文档”，但里面是空的

我爱面条

中间步骤操作出现了问题

固原

拆分后文档有空白页怎么解决？