當我們需要批量生成名片，合同，成績單等有相同內容的文件時，使用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

關注微信公眾號，領取更多干貨Excel/Word/Outlook/PDF免費助手?www.liangxin-vip.com

總結

以上是生活随笔為你收集整理的word删除分节符后之前的格式乱了_办公室高级技能之Word邮件合并拆分的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。