Word邮件合并功能详解：合并后生成多个word文档，删除空白页
 
最近在实习，干了很多打杂得工作，所以office软件用的很多很多，瞬间觉得自己可以去裸考计算机二级了哈哈哈哈哈哈。今天因为工作用到了邮件合并这个功能，但又比我之前所学的更深一些，所以我来写下这一篇详解。
 
一、预期达到效果
 
 
这是一个信函模板，我要把其中标黄的部分也就是“乐业县”替换成Excel表中的县，如下图所示。
 
 
一共是21个县，因此我要生成21个这样的基于模板的word文件，同时将所有文件命名为“关于将乐业县确认为2020年xxx的函”。
 
二、我的操作步骤
 
 
首先我更改模板的各部分样式，同时把我需要的最后保存的文件名以白色文字在文件首行显示，把这行文字设置成 标题1。之所以把文字设成白色是为了和文档底色重合，达到一个隐形的效果 。
 
 
 
接着我们打开大纲视图，将显示级别选择为1级，我们可以看到一行白色的字，这就是我们刚刚修改格式的那行文字了。
 
 
 
接着我们就开始一段比较常见的邮件合并操作。首先选择邮件-开始邮件合并-普通word文档。
 
 
 接着我们选择插入合并域，选择县名这一列，在需要插入的部分都插入县名。
 
 然后我们选择完成并合并，再选择编辑单个文档，就会生成一个总的word文档。
 
 
 
生成一个总文档后我们需要借助大纲视图把它拆分成多个word文件，同时以第一行白色字体命名各文件。
 
 
我们切换到大纲视图，把显示级别选为级别1，再选中所有的级别1。
 
 
 
接着我们选择显示文档-创建，这一步非常重要。
 
 创建完以后我们可以发现每一个标题1四周出现了一个方框，这就代表你的步骤是正确的。
 
 
 
最后我们使用快捷键 ctrl+s 来保存，注意新建一个文件夹，不然会搞混。文件名是自动生成的，也就是你的标题1。
 
 
 
现在打开保存的那个文件夹，我们可以发现所有文档都过来了。
 
 
 
我们打开其中一个看看什么效果。我们可以发现有一点小瑕疵，最后一页多了一个空白页，咋办呢？删呗。但我发现它不是分页符，也不能直接delete删除。
 
 我百度了很久觉得最简单的方法就是在倒数第二页右键选择字体再选择隐藏，这样最后的空白页就被删除了。
 
 
 
 
三、结语
 
这样整个过程就结束了。最近实习都没什么时间来学习新技术，等我学习了新技能再来分享。再见啦。
 
 
 
本篇文章如有错的地方，欢迎在评论指正。喜欢在微信看技术文章，可以微信搜索「葫芦金水」，回复【Python】【前端基础】【vue开发】即可获得视频资源，回复【答辩PPT】【演讲PPT】即可获得超级实用PPT模板，还有更多资料，建议后台留言或者直接私信我。
 
 
 
 
另，如果觉得这本篇文章写得不错，有点东西的话，各位人才记得来个三连【点赞+关注+分享】。
 
 

 
应张老师的需求，修改制作了一个可以批量发送带附件的电子邮件VBA。
 
目的：给N多人发送电子邮件，而不是抄送模式，并带有对方的称谓。
 
实现：
 
用到Word的邮件合并功能，以及调用Outlook发送邮件。不过VBA我不太懂，只能用现有的改，有点繁琐。
 
步骤：
 
1.
 
Word建立一个表，第一列为表头，下面为每个人的记录，从第四列开始为附件列，需要加几个附件，就添加几个列，可以留空，像第五列一样：
 
Name
 
Title
 
Email
 
Attachment
 
Xiao Ma
 
PhD.
 
e:\test.txt
 
Copper
 
Dr.
 
e:\test2.txt
 
Marry
 
Miss.
 
e:\test.txt
 
2. 保存该word文件。
 
3. 新建一个Word文档，我用的是word2010版本，选择邮件选项卡。
 
4. 选择收件人，使用现有列表，打开之前编辑的word文件
 
5. 使用插入合并域功能，编辑邮件正文：
 
如：
 
Dear
 
<
><>
 
I’m mxio.
 
Good 2 c u at 9t.
 
Good
 
Luck!
 
mxio
 
2012.11.13
 
6. 点击预览结果，更新域
 
7. 启动编辑宏功能，键盘按ALT+F11
 
8. 工具\引用添加 Microsoft Outlook 14.0 Object Library
 
9. 新建模块添加如下代码：
 
Sub eMailMergeWithAttachments()
 
Dim docSource As Document, docMaillist As Document
 
Dim rngDatarange As Range
 
Dim i As Long, j As Long
 
Dim lRecordCount As Long
 
Dim bStarted As Boolean
 
Dim oOutlookApp As Outlook.Application
 
Dim oItem As Outlook.MailItem
 
Dim oAccount As Outlook.Account
 
Dim sMySubject As String, sMessage As String, sTitle As
 
String
 
'将当前文档设置为源文档(主文档)
 
Set docSource = ActiveDocument
 
'检查Outlook是不是打开了。如果未打开的话，就打开新的Outlook
 
On
 
Error Resume Next
 
Set oOutlookApp = GetObject(, "Outlook.Application")
 
If
 
Err <> 0 Then
 
Set oOutlookApp = CreateObject("Outlook.Application")
 
bStarted = True
 
End If
 
'打开保存有客人的邮件地址和需要发送的附件的路径的word文档。
 
With Dialogs(wdDialogFileOpen)
 
.Show
 
End With
 
'将该文档设置为客户邮件(附件)列表文档
 
Set docMaillist = ActiveDocument
 
'设置发送邮件的账户(账户必须已经在Outlook中设置好了)
 
'注意：如果你的Outlook版本低于2007，使用设置发送邮件的账户可能会导致错误，
 
'建议将下面的Set oAccount =
 
oOutlookApp.Session.Accounts.Item("someone@examplemail.com")语句删除
 
Set oAccount = oOutlookApp.Session.Accounts.Item("someone@examplemail.com")
 
'显示一个输入框，询问并让用户输入邮件主题
 
sMessage = "请为要发送的邮件输入邮件主题。"
 
sTitle = "输入邮件主题"
 
sMySubject = InputBox(sMessage, sTitle)
 
'循环查找源文档中所有的节(每一节为一封邮件内容)，以及循环查找邮件列表文档中所有的客户信息，
 
'以便用于插入到生成的邮件中
 
'获取需要发送的邮件数，并将当前节置为第一条记录
 
lRecordCount
 
= docMaillist.Tables(1).Rows.Count
 
docSource.MailMerge.DataSource.ActiveRecord =
 
wdFirstRecord
 
'第一列为表头，需跳过
 
For j = 2 To
 
lRecordCount
 
Set oItem = oOutlookApp.CreateItem(olMailItem)
 
With oItem
 
'注意：如果你的Outlook版本低于2007，使用设置发送邮件的账户可能会导致错误，
 
'建议将下面的.SendUsingAccount = oAccount语句删除
 
.SendUsingAccount = oAccount
 
.Subject = sMySubject
 
'正文内容，节号1的文字
 
.Body = docSource.Sections(1).Range.Text
 
Set rngDatarange = docMaillist.Tables(1).Cell(j,
 
3).Range
 
rngDatarange.End = rngDatarange.End - 1
 
.To = rngDatarange
 
For i = 4 To docMaillist.Tables(1).Columns.Count
 
Set rngDatarange = docMaillist.Tables(1).Cell(j,
 
i).Range
 
rngDatarange.End = rngDatarange.End - 1
 
.Attachments.Add Trim(rngDatarange.Text), olByValue, 1
 
Next i
 
.Send
 
End With
 
Set oItem = Nothing
 
'Word邮件文档下一节
 
docSource.MailMerge.DataSource.ActiveRecord =
 
wdNextRecord
 
Next j
 
docMaillist.Close wdDoNotSaveChanges
 
'如果Outlook是由该宏打开的，则关闭Outlook
 
If
 
bStarted Then
 
oOutlookApp.Quit
 
End If
 
MsgBox "共发送了 " & lRecordCount - 1 &
 
" 封邮件。"
 
'清空Outlook实例
 
Set oOutlookApp = Nothing
 
End Sub
 
10. 执行该代码。
 
mxio
 
2012.11.13
 
________________________________2012.12.6_______________________________
 
实践证明还是excel的好些，改了改：
 
Sub sendmail()
 
Dim xlApp
 
As New Excel.Application
 
Dim
 
oOutlookApp As Outlook.Application
 
Dim
 
docSource As Document
 
Dim colCount
 
As Long, rowCount As Long
 
Dim
 
lRecordCount As Long, endColNo As Long
 
Dim bStarted
 
As Boolean
 
Dim oItem
 
As Outlook.MailItem
 
Dim oAccount
 
As Outlook.Account
 
Dim
 
sMySubject As String, sMessage As String, sTitle As String,
 
sMailList As String
 
'将当前文档设置为源文档(主文档)
 
Set
 
docSource = ActiveDocument
 
'获取当前excel工作簿路径
 
sMailList =
 
docSource.MailMerge.DataSource.Name
 
'检查Outlook是不是打开了。如果未打开的话，就打开新的Outlook
 
On Error
 
Resume Next
 
Set
 
oOutlookApp = GetObject(, "Outlook.Application")
 
If Err
 
<> 0 Then
 
Set oOutlookApp = CreateObject("Outlook.Application")
 
bStarted = True
 
End If
 
'打开保存有客人的邮件地址和需要发送的附件的路径的excel文档。
 
Dim wb As
 
Excel.Workbook
 
Set wb =
 
xlApp.Workbooks.Open(sMailList)
 
xlApp.Visible = Flase
 
'设置发送邮件的账户(账户必须已经在Outlook中设置好了)
 
'注意：如果你的Outlook版本低于2007，使用设置发送邮件的账户可能会导致错误，
 
'建议将下面的Set oAccount = oOutlookApp.Session.Accounts.Item("someone@examplemail.com")语句删除
 
Set
 
oAccount = oOutlookApp.Session.Accounts.Item("someone@examplemail.com")
 
'显示一个输入框，询问并让用户输入邮件主题
 
sMessage
 
= "请为要发送的邮件输入邮件主题。"
 
sTitle =
 
"输入邮件主题"
 
'sMySubject = InputBox(sMessage, sTitle)
 
'免打扰模式设置邮件主题
 
sMySubject =
 
"test"
 
'循环查找源文档中所有的节(每一节为一封邮件内容)，以及循环查找邮件列表文档中所有的客户信息，
 
'以便用于插入到生成的邮件中
 
'获取需要发送的邮件数，列数，并将当前节置为第一条记录
 
lRecordCount
 
= wb.Sheets("Sheet1").Cells(1, 1).CurrentRegion.Rows.Count
 
endColNo =
 
wb.Sheets("Sheet1").Cells(1, 1).CurrentRegion.Columns.Count
 
docSource.MailMerge.DataSource.ActiveRecord = wdFirstRecord
 
'第一列为表头，需跳过
 
For rowCount
 
= 2 To lRecordCount
 
Set oItem = oOutlookApp.CreateItem(olMailItem)
 
With oItem
 
'注意：如果你的Outlook版本低于2007，使用设置发送邮件的账户可能会导致错误，
 
'建议将下面的.SendUsingAccount = oAccount语句删除
 
.SendUsingAccount = oAccount
 
.Subject = sMySubject
 
'使用纯文本格式，正文内容，节号1的文字
 
'.Body = docSource.Sections(1).Range.Text
 
'正文使用HTML代码格式，可保留排版格式，用论坛上的文本编辑器可轻松获取HTML代码
 
.HTMLBody = docSource.Sections(1).Range.Text
 
'如果excel数据结构发生改变，那么请修改此次email地址所在列数，默认为4
 
.To = wb.Sheets("Sheet1").Cells(rowCount, 4)
 
'如果excel数据结构发生改变，那么请修改此次附件地址所在列数，默认为5
 
For colCount = 5 To endColNo
 
.Attachments.Add Trim(wb.Sheets("Sheet1").Cells(rowCount,
 
colCount))
 
Next colCount
 
'发送 or 仅显示 or 保存草稿箱，重要邮件，推荐使用 .Display模式，确认后点击发送即可
 
.Send
 
'.Display
 
'.Save
 
End With
 
Set oItem = Nothing
 
'Word邮件文档下一节
 
docSource.MailMerge.DataSource.ActiveRecord = wdNextRecord
 
Next
 
rowCount
 
xlApp.Quit
 
'如果Outlook是由该宏打开的，则关闭Outlook
 
If
 
bStarted Then
 
' oOutlookApp.Quit
 
End If
 
MsgBox "共发送了
 
" & lRecordCount - 1 & "
 
封邮件。"
 
'清空Outlook实例
 
Set
 
oOutlookApp = Nothing
 
Set xlApp =
 
Nothing
 
End Sub

 
您好：
 
了解到您在使用office时遇到的问题。
 
1、当前登陆系统和尝试运行应用程序的是什么账户？尝试更换一个本地管理员账户(非内置管理员administrator)，登陆之后尝试运行组件，看下是否能正常打开。
 
2、控制面板-卸载程序中，可以尝试先右键Office，选择更改-联机修复看下修复后的使用效果。尝试从文件资源管理器定位到Outlook.exe的位置，直接执行该应用程序，看下是否能正常启动。
 
3、系统下建议您将所有可能存在的三方安全程序和优化软件全部关闭或卸载掉，进行干净启动后重新注册system32目录下的所有DLL文件。
 
请参考以下步骤：
 
(1)同时按下Win+r后输入：msconfig
 
(2)点击”服务”标签卡，选择”隐藏所有的微软服务”，然后点击全部禁用(若您启用了指纹识别功能，请不要关闭相关服务)
 
(3)点击”启动”标签卡, 点击”打开任务管理器”，然后禁用全部启动项并确定
 
(4)重启设备。当弹出“系统配置实用程序”的时候，选中此对话框中的”不再显示这条信息”并点击确定
 
(5)同时按下Win+x，点击命令提示符，输入下面命令：for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1   回车，直到屏幕滚动停止为止。
 
4、关于错误C0000142，您可以参考一下下面链接中的信息，建议您将组件更新到对应或是以上版本。
 
希望以上的信息可以帮助到您
 
感谢您使用微软产品

 
2019年9月份计算机二级office考试，许多考生反应考试了word邮件合并功能，其实这个知识点在实际的生活工作运用的非常多，诸如会计、教师、文职类岗位工作，今天IT考试网就结合实际案例详解下word邮件合并功能。
 
word邮件合并功能因为带有“邮件”字样，所以被很多误认为只是邮件操作，而实际上抛去发邮件，其余操作还真和邮件没多大关联。它可以将Excel的表格数据，通过批量的方式变成一份份word文档。它更像是一个转换工具。
 
本文通过几个实例，由浅入深介绍邮件合并的使用方法，既让您掌握实用技术，也能让您学到变通方法。
 

 
实例一：利用邮件合并功能批量制作出奖状证书
 
准备工作
 
1、Word中用邮件合并功能，那肯定是少不了Excel数据源表格的。
 
2、证书模板，在上一篇章中我已经教大家制作了，还提供了资源下载。详情可参阅《实战案例，教你用Word制作一份精美荣誉证书、奖状》。
 
开始制作
 
1、进入【邮件】，选择【开始邮件合并】，这里我们选择【信函】可别点错了哦！然后在【选择收件人】选择【使用现有列表】，插入你的Excel表格数据源。最后在“姓名”处及“部门”处插入对应域。
 
2、全部搞定后，点击【完成】中的【完成并合并】，选择【编辑单个文档】-【全部】。此时，就会将所以姓名以及所在部门全部各生成出一份证书。
 
怎么样，是不是非常简单呢！然后你可以用稍微硬一点的纸，打印出来，再裁剪一下，就可以直接颁发啦！
 
实例二：利用邮件合并功能制作成绩单
 
准备资料
 
首先，准备好Excel的数据源，然后就是Word模板一个，这个就不用提了哈，邮件合并是离不开这两样东西的！
 
操作步骤
 
步骤一、首先【邮件】-【开始邮件合并】-【邮件合并分步向导】在右侧会弹出一个【邮件合并】窗格，然后选择【信函】-【下一步】-【下一步】-【下一步】，然后选择Excel表格存放位置，确定。
 
步骤二、再【下一步】后，我们在【撰写信函】处时可以【插入合并域】，一个一个对应的插入域，也可以点击【其他项目】一个一个插入。
 
3分钟完成数万数据 | 邮件合并制作成绩单
 
步骤三、继续【下一步】-【下一步】，在最后【完成合并】处，点击【编辑单个信函】-【全部】即可生成所有的成绩单。
 
准备工作
 
要批量生成出大量学生的准考证，我们需要准备哪些资料呢？
 
1、考生的照片，最好将他们都放到一个文件夹下面。
 
2、表格数据源文件。我们可以看到数据源中的【照片】我们输入的是照片所在位置的路径，默认情况下路径应该是【E:\Word联盟\神奇女侠.jpg】，不过这里我们需要改成双斜杠，也就是【E:\\Word联盟\\神奇女侠.jpg】。
 
3、准考证的空白模板文档。
 
实例三：利用邮件合并功能批量生成准考证
 
操作步骤
 
步骤一、点击选择【邮件】-【开始邮件合并】-【信函】；然后在点击【选择收件人】-【使用现有列表】-选择我们“数据源”表格所在位置，确定。最后依次【插入合并域】。
 
步骤二、点击需要插入照片的单元格，进入【插入】-【文本】-【文本部件】-【域】选择【IncludePicture】，在【文件名或URL：】输入“照片”。使用快捷键【ALT + F9】，选择域代码中的“照片”二字，将其替换为【插入合并域】中的【照片】域。最后再次使用【ALT + F9】切换回来。
 
步骤三、点击【邮件】-【完成】-【完成并合并】-【编辑单个文档】-【全部】-【确定】。此时，我们会发现已经生成出了邮件合并的文档，所有信息都正确，就是照片或图片无法显示出来，此时，我们可以使用快捷键【Ctrl + A】进行全选，然后按下【F9】更新域即可显示所有图片。
 
实例四：利用邮件合并功能批量制作工资条
 
准备资料
 
以Excel制作而成的工资表，上面详细记录了在职人员的工资情况。以下图为例~
 
开始制作工资条
 
步骤一、打开Word空白文档，然后插入工资条和日期等有关信息内容文字，然后居中，稍微调整一下。
 
步骤二、插入一个10列2行的表格，当然这个表格列行的数量是根据你工资表中内容而定的，然后将工资表中的姓名、基本工资等标题依次复制过来。
 
步骤三、开始邮件合并向导，到第三步的时候要选取数据源，找到我们的Excel表格制作而成的工资表所在位置，打开。
 
步骤四、到第四步的时候，我们选择【其他选项】开始依次对应插入域。
 
步骤五、再次点击下一步【预览目录】，我们就可以看到生成出来的第一条工资信息了。
 
步骤六、到最后一步骤的时候，我们选择【创建新文档】，在弹出的选项卡中选择【全部】，即可生成所有的工资信息。
 
以上就是IT考试网分享给大家的word邮件合并功能步骤详解教程，其中运用利用邮件合并功能批量制作出奖状证书、制作成绩单、批量生成准考证、批量制作工资条等四个案例详细讲解了word邮件合并功能，希望能够帮到大家！