1. 利用 WPS文字实现邮件合并

WPS文字中提供了一系列丰富的API支持邮件合并的操作。接下来通过WPS API实现打印工资单的功能，以进一步了解WPS文字的“邮件合并”功能。

1.1. 建立数据源

在开始进行邮件合并操作之前，必须先建立数据源，也就是要先创建“收件人列表”文档。下面用WPS表格创建一个名为“工资单.et”的数据源文件，保存于C盘根目录下，文件内容如图1所示：

图 1 工资数据表

注意：在使用WPS表格或者Excel文件作为数据源时，必须保证明细数据为数据库格式，即第一行必须是字段名，并且数据行中间不能有空行。

1.2. 在“主文档”中编写实现邮件合并的代码

用WPS文字新建一个文件，切换到Visual Basic 编辑器，添加一个 “MailMergeDemo”的过程，代码如下：

Sub MailMergeDemo()

'打开数据源

ActiveDocument.MailMerge.OpenDataSource _

"c:/工资单.et", SQLStatement:="Select * from `Sheet1$`"

'设置主文档中合并域的显示方式为显示域代码

ThisDocument.MailMerge.ViewMailMergeFieldCodes = True

'设置每页显示的数量为6条

Dim PageToShow As Long

PageToShow = 6

'循环插入文本以及合并域

For i = 1 To PageToShow

ActiveDocument.Fields.Add Range:=Selection.Range, _

Type:=wpsFieldMergeField, Text:="""姓名"""

Selection.TypeText Text:="，您所在的部门是 "

ActiveDocument.Fields.Add Range:=Selection.Range, _

Type:=wpsFieldMergeField, Text:="""部门"""

Selection.TypeText Text:="，您的基本工资是 "

ActiveDocument.Fields.Add Range:=Selection.Range, _

Type:=wpsFieldMergeField, Text:="""工资"""

Selection.TypeText Text:="，奖金是 "

ActiveDocument.Fields.Add Range:=Selection.Range, _

Type:=wpsFieldMergeField, Text:="""奖金"""

Selection.TypeText Text:="，总额是 "

ActiveDocument.Fields.Add Range:=Selection.Range, _

Type:=wpsFieldMergeField, Text:="""总额"""

'判断是否插入“NEXT”域

If i <> PageToShow Then

'插入空段落

Selection.TypeParagraph

'插入 “NEXT” 域

ActiveDocument.Fields.Add Range:=Selection.Range, _

Type:=wpsFieldNext

End If

Next i

'设置合并方式为“合并到新文档”

ActiveDocument.MailMerge.Destination = wpsSendToNewDocument

'执行合并操作

MailMerge.Execute Pause:=False

End Sub

1.3. 实现邮件合并

运行上述的宏代码之后，会将源数据合并成新的文档，文档内容的显示如图2所示：

图 2 文档内容显示结果

注：

1、执行“邮件合并”操作必需的两个文件：“主文档”和“收件人列表”文件。

2、在使用数据表作为数据源时，必须注意数据的格式：第一行必须是字段名，并且数据行中间不能有空行。

3、“邮件合并”为用户提供了4种合并方式：合并到新文档、合并到不同文档、合并到打印机和合并到邮件，用户可以根据实际的需求进行自行选择。

利用WPS的“邮件合并”功能打印工资单相关推荐

实现一张A4纸上能够打印6个学员证,利用excel数据源和word(wps)的邮件合并功能实现批量打印
实现一张A4纸上能够打印6个学员证,利用excel数据源和word(wps)的邮件合并功能实现批量打印 1.首先我们要准备好数据源,以本文为了,excel表中保存了学员信息. 2.打开word(wps ...
利用Word的邮件合并功能,自动发送工资表邮件(亲自实践)
Excel中的工资条,希望能够把每个人的信息,发送给个人. 如果手工来发送的话,工作量太大其实可以用Word的"邮件合并"功能,直接读取Excel,然后通过outlook来实现自 ...
WPS使用邮件合并功能快速完成员工工资单的创建
1.先用Excel创建基础数据模板 2.按照Excel的表格格式,在Word中创建一个(同数列.2行)表格[插入]--->[表格],并一致表头信息 3.[引用]---->[邮件]----& ...
邮件合并保存为一个个单独的文档_巧用邮件合并功能，批量打印收据、带照片的证件等！...
关于邮件合并,并不是一个新鲜的话题,但是对于好多同学总是使用不好,例如批量打印收据.带照片的证件等.针对此类情况,本文将对邮件合并的批量打印功能做详细的讲解,希望对大家的工作有所帮助. 一.批量打印收 ...
word2007邮件合并html,Word2007邮件合并功能的使用
您可能感兴趣的话题: Word2007 核心提示:邮件合并算得上是Word中很有帮助的一项特性,而很多人都还没有使用过它,因为他们都不知道应该如何操作.它听起来似乎有些陌生难懂,但实际上是非常简单易用 ...
php td生成excel 斜杠表头_邮件合并功能都不掌握，还怎么成为Excel达人？
关于邮件合并,并不是一个新鲜的话题,但是对于好多同学总是使用不好,例如批量打印收据.带照片的证件等.针对此类情况,本文将对邮件合并的批量打印功能做详细的讲解,希望对大家的工作有所帮助. 一.批量打印收 ...
WORD中“邮件合并”功能和应用
应用 Word邮件合并功能在制作信函.信封或者是准考证.成绩通知单.毕业证.工资条.问卷等方面有着丰富的应用. 应用领域:批量打印信封,信件,请柬,工资条,个人简历,成绩单,获奖证书,明信片等等,由电 ...
python邮件合并的基本操作步骤_Python如何实现反向邮件合并功能
摘要:邮件合并是Office的一项功能,可便捷地批量生成文档,却无法从大量Word文档中汇总信息.结合实际应用,阐述基于Python语言对Word文档进行批量导入.读取其中的表格与段落.汇总信息至Ex ...
C# 实现多种Word邮件合并功能
C# 实现多种Word邮件合并功能在处理Word文档的工作中经常会遇见这样一种情况:文件的主要内容和格式大体相同,只是需要填充的数据不同.如果一个一个填写数据的话会非常麻烦,而且很耗时间.这时候我们 ...

利用WPS的“邮件合并”功能打印工资单

1. 利用 WPS文字实现邮件合并

1.1. 建立数据源

1.2. 在“主文档”中编写实现邮件合并的代码

1.3. 实现邮件合并

注：

利用WPS的“邮件合并”功能打印工资单相关推荐

最新文章

热门文章