返回目录：word文档
Word2003邮件合并制作批量e68a847a64338招标邀请函操作过程 Word2003邮件合并是把一系列的信息与一个标准文档合并，从而生成多个文档。
例如：当企业或公司要邀请客户参加展览、招标或会议等活动时需要发送信函，信函的内容 全部一样，只是客户（姓名地址）不一样，如果我们使用邮件合并的功能，便可以将几百份 邮件迅速给处理完。 在做邮件之前准备：
（一）、必须先建立好要合并主文档，例如：展览、招标或会议的信函，信封。
（二）、创建数据源文件，他可以是Excel工作薄，也可以是来自Access。 例如：我们先用Excel做好表格保存（合并中的地址和姓名。）在Excel中，（我们做表格的 时候表格中的公司和姓名必须要按列去排序）
（三）、插入合并域了：例如：合并数据源中的地址，姓名，称谓等 下面我们用邮件合并完成一个招标的邀请函和信封的批量生成的过程。
（下面请同学们记录一下操作步骤，并看老师演示操作一遍）
第一节：利用创建好的Excel数据源，制作批量招标邀请信函
1)、先准备好的用Excel工作薄做的客户资料的表格（打开例子）
2)、打开Word新建一个空白文档做一个招标信函（或打开例子）
（下面使用邮件合并生成批量邀请函）
1)、我们在菜单栏视图下拉列表→工具栏下拉列表下面打开邮件合并工具栏。
2)、在菜单栏工具栏下拉列表下信函与邮件下拉列表下打开邮件窗任务窗口。
3)、邮件合并的任务窗口我们选择文档类型：信函。
○ 1点击：下一步：正在启动文档。
○ 2点击：下一步：选取收件人，
○ 3点击：浏览，
○ 4选取表格，数据首行包含列标题打勾，点确定。
○ 5弹出邮件合并收件人窗口，全选，确定。
○ 6光标放在要合并联系人，称谓的地方，点击：下一步：撰写信函，点其它项目，下并我们就要插入合并域了，点击《联系人》点击《称谓》。
○ 7点击：下一步：预览信函。我们可以在预览信函里合并信函的其他信函收件人。
○ 8点击：下一点完成合并 ○ 9点打印合并到打印机，那这个批量邀请函的邮件就算是完成了
第二节：利用Word创建邮件合并的数据源并合并邮件：
1、新建Word空白文档制做一个招标邀请信函
2、打开邮件合并的工具栏和任务窗口
3、选择文档类型为：信函，下一步
4、开始文档点击下一步：选取收件人，
5、选取收件人→键入新列表，然后点击创建选项。
6、新地址列表→点击自定义，添加或删除地址，公司，称呼
7、输入公司、地址、称呼后新建条目，可以不断的输入公司、地址、称呼后新建条目关闭，在弹出保存通迅录中的窗口下面输入保存的文件名点保存.
8、合并数据源：
在邮件合并任务窗口中选取收件人点击浏览，选取数据源的窗口中选择我们要插入合并的 数据源，
选取要插入数据源打开确定。
弹出邮件合并收件人窗口，全选，确定。
光标放在要合并的联系人，称谓的地方，点击：下一步：撰写信函，点其它项目，插入合 并域了，点击《联系人》点击《称谓》。
点击：下一步：预览信函。我们可以在预览信函里查看合并信函的其他收件人。
点击：下一点完成合并
点打印合并到打印机 下面我们用中文信封向导生成批量信封的邮件合并过程 ○ 1菜单栏工具栏下拉列表→信函与邮件下拉列表→选择中文信封向导 ○ 2信封制作向导点击下一步， ○ 3选择信封样式下一步，设置生成信封的方式和数量：选择：基于地址薄文件，生成批量信封，点击下一步。 ○ 4从文件中获取并匹配收件人信息单击：选择地址薄。 ○ 5弹出的打开窗口我们选择做好的客户资料，文件类型选择：Excel. ○6在从文件中获取并匹配收件人信息中为收件人的姓名、公司称谓等项目选择对应的字段。点击下一步。 ○ 7输入寄信人的信息：姓名、单位、地址、邮编，确实。 ○8合并到打印机。
参考资料：
http://jingyan.baidu.com/article/e5c39bf581f18939d7603385.html
我们在制作请柬、邀请函7a64e59b9ee7ad94361的时候，因为大部分的字段相同，不同的只有邀请函编号、被邀请人的姓名、被邀请人的职位等少量的信息不同，我们可以利用office的邮件合并功能批量制作邀请函。
工具/原料
EXCEL 2010
WORD 2010
方法/步骤
制作WORD版的邀请函，样本如下图所示。通过观察邀请函样本我们发现，不同的内容只有邀请函编号、邀请函姓名等信息。
制作EXCEL版被邀请人名单，
我们利用WORD的邮件合并功能，将邀请人名单插入邀请函文档中。在WORD文档中依次选择【邮件】【选择收件人】，因为人员名单已经做好了，所以在【选择收件人】的下拉框中选择【使用现有列表】
在弹出的【使用数据源】对话框中选择做好的EXCEL被邀请者名单，并在弹出的【选择表格】选项框中选择“邀请者名单”所在的Sheet表单，这里一般为Sheet1表单，确定。
将光标定位在“编号：”，单击【邮件】选项卡中的【编写和插入域】，选择需要插入的内容，本文中为“邀请者编号”即完成邀请者编号的插入工作，姓名的插入方式与之类似在次不在阐述。
单击【邮件】选项卡中的【完成并合并】按纽，即可按照需求选择将邀请函逐一打印还是以电子邮件形式发送。
这个需要用vba编程来完成。
具体代码需要根据实际情况来定制。
下面给出一段类似的代码（根据excel表格自动批量生成承租合同），仅供参考！
Sub SCWJ()
Dim arr(1 To 1000, 1 To 19) '1-编号 2-类型 3-区域 4-单元 5-楼层 6-面积 7-空房 8-起租日期 9-到期日期 10-周期 11-续费日期 12-续费类别 13-空白 14-空白 15-租金
'16-押金 17-姓名 18-电话 19-sfzhm
hh = 3
jls = 0
With Sheets("电子信息登记档案")
Do While .Cells(hh, 1) <> ""
jls = jls + 1
For j = 1 To 19
arr(jls, j) = .Cells(hh, j)
Next j
hh = hh + 1
Loop
End With
Dim bh As String '编号
Dim lx As String '类型
Dim qy As String '区域
Dim dy As String '单元
Dim lc As String '楼层
Dim mj As String '面积
Dim qzrq As Date '起租日期
Dim dqrq As Date '到期日期
Dim zq As String '周期
Dim xflb As String '续费类别
Dim zj As Long '租金
Dim yj As Long '押金
Dim xm As String
Dim dh As String
Dim sfzhm As String
For i = 1 To jls
bh = arr(i, 1)
lx = arr(i, 2)
qy = arr(i, 3)
dy = arr(i, 4)
lc = arr(i, 5)
mj = arr(i, 6)
qzrq = arr(i, 8)
dqrq = arr(i, 9)
zq = arr(i, 10)
xflb = arr(i, 12)
zj = Val(arr(i, 15))
yj = arr(i, 16)
xm = arr(i, 17)
dh = arr(i, 18)
sfzhm = arr(i, 19)
Select Case lx
Case "市场", "优惠"
Call 替换文e799bee5baa6e997aee7ad94e4b893e5b19e365本_市场(bh, lx, qy, dy, lc, mj, qzrq, dqrq, zq, xflb, zj, yj, xm, dh, sfzhm)
Case "5年"
Call 替换文本_5年(bh, lx, qy, dy, lc, mj, qzrq, dqrq, zq, xflb, zj, yj, xm, dh, sfzhm)
End Select
Next i
End Sub
Private Sub 替换文本_市场(bh, lx, qy, dy, lc, mj, qzrq, dqrq, zq, xflb, zj, yj, xm, dh, sfzhm)
Dim 当前路径, 导出文件名, 导出路径文件名 As String
Dim Str1, Str2
Dim tarr(1 To 27, 1 To 2)
当前路径 = ThisWorkbook.Path
导出文件名 = bh & ".doc"
导出文件名2 = bh & ".xlsx"
FileCopy 当前路径 & "\模板\房屋租赁合同.doc", 当前路径 & "\待打印WORD文档\" & 导出文件名
FileCopy 当前路径 & "\模板\承租申请.xlsx", 当前路径 & "\待打印WORD文档\" & 导出文件名2
With Sheets("关键字")
For i = 1 To 27
tarr(i, 1) = .Cells(i + 1, 1)
Next i
End With
tarr(1, 2) = xm
tarr(2, 2) = qy
tarr(3, 2) = dy
tarr(4, 2) = lc
tarr(5, 2) = dh
tarr(6, 2) = sfzhm
tarr(7, 2) = mj
tarr(8, 2) = yj
tarr(9, 2) = Num2Money(yj * 12) '大写总租金
tarr(10, 2) = yj * 12 '小写总租金
Select Case xflb
Case "年"
tarr(11, 2) = 1
tarr(12, 2) = 12
tarr(13, 2) = Num2Money(zj)
tarr(15, 2) = "" '续费日期2
tarr(16, 2) = "" '续费日期3
tarr(17, 2) = "" '续费日期4
tarr(18, 2) = 12 '第一次几个月租金
tarr(19, 2) = "/"
tarr(20, 2) = "/"
tarr(21, 2) = "/"
tarr(22, 2) = Num2Money(zj) '大写第一次租金
tarr(23, 2) = "/" '大写第二次租金
tarr(24, 2) = "/" '大写第三次租金
tarr(25, 2) = "/" '大写第四次租金
Case "半年"
tarr(11, 2) = 2
tarr(12, 2) = 6
tarr(13, 2) = Num2Money(zj)
tarr(15, 2) = Int(qzrq + 183)
tarr(16, 2) = "" '续费日期3
tarr(17, 2) = "" '续费日期4
tarr(18, 2) = 6 '第一次几个月租金
tarr(19, 2) = 6
tarr(20, 2) = "/"
tarr(21, 2) = "/"
tarr(22, 2) = Num2Money(zj) '大写第一次租金
tarr(23, 2) = Num2Money(zj) '大写第二次租金
tarr(24, 2) = "/" '大写第三次租金
tarr(25, 2) = "/" '大写第四次租金
Case "季度"
tarr(11, 2) = 4
tarr(12, 2) = 3
tarr(13, 2) = Num2Money(zj)
tarr(15, 2) = qzrq + Int(365 / 4 + 0.5)
tarr(16, 2) = qzrq + Int(365 / 4 * 2 + 0.5) '续费日期3
tarr(17, 2) = qzrq + Int(365 / 4 * 3 + 0.5) '续费日期4
tarr(18, 2) = 3 '第一次几个月租金
tarr(19, 2) = 3
tarr(20, 2) = 3
tarr(21, 2) = 3
tarr(22, 2) = Num2Money(zj) '大写第一次租金
tarr(23, 2) = Num2Money(zj) '大写第二次租金
tarr(24, 2) = Num2Money(zj) '大写第三次租金
tarr(25, 2) = Num2Money(zj) '大写第四次租金
End Select
tarr(14, 2) = qzrq
tarr(27, 2) = dqrq
If mj = 55 Then
tarr(26, 2) = 3
Else
If mj = 75 Then
tarr(26, 2) = 5
Else
tarr(26, 2) = 6
End If
End If
导出路径文件名 = 当前路径 & "\待打印WORD文档\" & 导出文件名
导出路径文件名2 = 当前路径 & "\待打印WORD文档\" & 导出文件名2
Set wdoc = CreateObject("word.application")
wdoc.Visible = False
With wdoc
.Documents.Open 导出路径文件名
.Visible = True
For i = 1 To 27 '填写文字数据
Str1 = tarr(i, 1)
Str2 = tarr(i, 2)
bj = True
Do While bj
.Selection.HomeKey Unit:=wdStory '光标置于文件首
If .Selection.Find.Execute(Str1) Then '查找到指定字符串
'.Selection.Font.Color = wdColorAutomatic '字符为自动颜色
.Selection.Text = Str2 '替换字符串
Else
bj = False
End If
Loop
Next i
End With
wdoc.Documents.Save
wdoc.Quit
Set wdoc = Nothing
'写入承租申请
'房号 !区域!单元!楼层
'户型 !面积
'承租说明付款方式: !周期!续费日期!续费
Set myb = Workbooks.Open(导出路径文件名2)
Dim xfrq As Date '续费日期
Select Case xflb
Case "年"
xfrq = dqrq
Case "半年"
xfrq = qzrq + 182
Case "季度"
xfrq = qzrq + 91
End Select
With myb.Sheets("sheet1")
.Cells(3, 2) = xm
.Cells(4, 2) = dh
.Cells(5, 2) = sfzhm
.Cells(6, 2) = qzrq
.Cells(7, 2) = dqrq
.Cells(3, 6) = qy & Space(1) & dy & Space(1) & lc
.Cells(4, 6) = mj
.Cells(5, 6) = yj * 12
.Cells(6, 6) = yj
.Cells(7, 6) = ""
.Cells(9, 1) = zq & " " & xfrq & " " & xflb
End With
myb.Save
myb.Close
End Sub
Private Sub 替换文本_5年(bh, lx, qy, dy, lc, mj, qzrq, dqrq, zq, xflb, zj, yj, xm, dh, sfzhm)
Dim 当前路径, 导出文件名, 导出路径文件名 As String
Dim Str1, Str2
Dim tarr(1 To 20, 1 To 2)
当前路径 = ThisWorkbook.Path
导出文件名 = bh & ".doc"
导出文件名2 = bh & ".xlsx"
FileCopy 当前路径 & "\模板\自装合同模板.doc", 当前路径 & "\待打印WORD文档\" & 导出文件名
FileCopy 当前路径 & "\模板\承租申请.xlsx", 当前路径 & "\待打印WORD文档\" & 导出文件名2
With Sheets("关键字")
For i = 1 To 20
tarr(i, 1) = .Cells(i + 1, 3)
Next i
End With
tarr(1, 2) = xm
tarr(2, 2) = qy
tarr(3, 2) = dy
tarr(4, 2) = lc
tarr(5, 2) = sfzhm
tarr(6, 2) = mj
tarr(7, 2) = qzrq
tarr(8, 2) = dqrq
mzrq = Int(qzrq + 18 * 30.42708333) '免租日期
tarr(9, 2) = mzrq
tarr(10, 2) = zj '小写总租金
tarr(11, 2) = qzrq
tarr(12, 2) = DateSerial(Year(mzrq) + 1, Month(mzrq), Day(mzrq))
tarr(13, 2) = DateSerial(Year(mzrq) + 2, Month(mzrq), Day(mzrq))
tarr(14, 2) = DateSerial(Year(mzrq) + 3, Month(mzrq), Day(mzrq))
tarr(15, 2) = yj
If mj = 55 Then
tarr(16, 2) = 3
Else
If mj = 75 Then
tarr(16, 2) = 5
Else
tarr(16, 2) = 6
End If
End If
tarr(17, 2) = dh
tarr(18, 2) = Num2Money(zj)
tarr(19, 2) = mzrq
tarr(20, 2) = Num2Money(zj / 2)
导出路径文件名 = 当前路径 & "\待打印WORD文档\" & 导出文件名
导出路径文件名2 = 当前路径 & "\待打印WORD文档\" & 导出文件名2
Set wdoc = CreateObject("word.application")
wdoc.Visible = False
With wdoc
.Documents.Open 导出路径文件名
.Visible = True
For i = 1 To 20 '填写文字数据
Str1 = tarr(i, 1)
Str2 = tarr(i, 2)
bj = True
Do While bj
.Selection.HomeKey Unit:=wdStory '光标置于文件首
If .Selection.Find.Execute(Str1) Then '查找到指定字符串
'.Selection.Font.Color = wdColorAutomatic '字符为自动颜色
.Selection.Text = Str2 '替换字符串
Else
bj = False
End If
Loop
Next i
End With
wdoc.Documents.Save
wdoc.Quit
Set wdoc = Nothing
Set myb = Workbooks.Open(导出路径文件名2)
Dim xfrq As Date '续费日期
Select Case xflb
Case "年"
xfrq = dqrq
Case "半年"
xfrq = qzrq + 182
Case "季度"
xfrq = qzrq + 91
End Select
With myb.Sheets("sheet1")
.Cells(3, 2) = xm
.Cells(4, 2) = dh
.Cells(5, 2) = sfzhm
.Cells(6, 2) = qzrq
.Cells(7, 2) = dqrq
.Cells(3, 6) = qy & Space(1) & dy & Space(1) & lc
.Cells(4, 6) = mj
.Cells(5, 6) = yj * 12
.Cells(6, 6) = yj
.Cells(7, 6) = ""
.Cells(9, 1) = zq & " " & xfrq & " " & xflb
End With
myb.Save
myb.Close
End Sub
如果你需要批量制作邀请函的话，可以用word来操作，关于具体的教程，软件帝已经copy为你准备好了，一起来看看吧：
1、在百制作之前，先要在Execl表格中准备好人员的名单，以下面的这张表格为例子。
2、在Word中制作好邀请函的模板，姓名那一栏要空着；
3、点击上方【邮件】-【选择收件人】-【使用现有列表】，在弹出来的窗口度中选择人员的名单；
4、导入后，点击上方【插入合并问域】，将光标定为到插入姓名的一栏，同时选择对应的域名，点击插入即可，插入完成后关闭插入窗口。
5、最后点击【完成并合并】-【编辑单个文档】，在窗口中点确答定。
以上就是用Word批量制作邀请函的操作方法了，大家学会了吗？更多相关教程，尽在软件帝官网！