當(dāng)我們需要批量生成名片，合同，成績單等有相同內(nèi)容的文件時(shí)，使用word郵件合并功能非常方便。如果你還需要把word文件發(fā)給不同的人就需要再拆分一下，用復(fù)制粘貼的方法拆分word，數(shù)量一多不僅效率低，還會(huì)因?yàn)槲臋n格式變化變得不一樣，如果有圖片的話又無法用大綱視圖拆分，如果轉(zhuǎn)成PDF文件再拆分后再轉(zhuǎn)回word，格式還是會(huì)有變動(dòng)，對(duì)于喜歡完美的強(qiáng)迫癥患者來說，這真的是難以接受。

其實(shí)就算有圖片或表格，也是可以完美拆分的，下面我用word2010給大家舉個(gè)例子演示一下這套方法的完整流程。

年底了，老板讓助理給手下的10名一線員工寫一封表揚(yáng)信，對(duì)他們?cè)诠镜男量喙ぷ鞅硎究隙?#xff0c;同時(shí)也調(diào)研一下他們對(duì)公司的期望，為了方便回收整理，以郵件附件的形式發(fā)給對(duì)方。

1. 準(zhǔn)備好需要替換的EXCEL數(shù)據(jù)源

2. 打開word模板文件

3.郵件合并

如果插入域的格式不是文本，注意郵件合并之前修改域代碼，即選擇插入的域，右鍵選擇“切換域代碼”，在“”輸入想要對(duì)應(yīng)的格式，如日期格式：@“yyyy-mm-dd”

注：第一次使用郵件合并會(huì)在合并后生成新文檔“信函1”，如果想要拆分成單個(gè)文件，記得先將生成的信函關(guān)閉。

4.文件拆分

點(diǎn)擊運(yùn)行后會(huì)在當(dāng)前word文件目錄下生成“拆分后文檔”，運(yùn)行結(jié)果如下：

代碼：
Sub myMailMerge()

'主文檔的類型為信函

'合并全部數(shù)據(jù)記錄

'假設(shè)主文檔已鏈接好數(shù)據(jù)源，可以進(jìn)行正常的郵件合并

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

'取得數(shù)據(jù)源第1個(gè)數(shù)據(jù)字符串，用以命名文件

myname = .DataFields(1).Value

.ActiveRecord = wdNextRecord

.Parent.Execute '每次合并一個(gè)數(shù)據(jù)記錄

With ActiveDocument

.Content.Characters.Last.Previous.Delete '刪除分節(jié)符

.SaveAs t & "拆分后文檔" & myname '生成的各文檔保存目錄

.Close '關(guān)閉生成的文檔（已保存）

End With

Next

End If

End With

Application.ScreenUpdating = True

MsgBox "拆分操作完畢!" & vbCrLf & "請(qǐng)到本目錄下“拆分后文檔”文件夾查看！！", vbInformation

End Sub

關(guān)注微信公眾號(hào)，領(lǐng)取更多干貨Excel/Word/Outlook/PDF免費(fèi)助手?www.liangxin-vip.com

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。