请叫我--王者
方法/步骤
制作WORD版的邀请函，样本如下图所示。通过观察邀请函样本我们发现，不同的内容只有邀请函编号、邀请函姓名等信息。
制作EXCEL版被邀请人名单，如下图。
我们利用WORD的邮件合并功能，将邀请人名单插入邀请函文档中。在WORD文档中依次选择【邮件】【选择收件人】，因为人员名单已经做好了，所以在【选择收件人】的下拉框中选择【使用现有列表】
在弹出的【使用数据源】对话框中选择做好的EXCEL被邀请者名单，并在弹出的【选择表格】选项框中选择“邀请者名单”所在的Sheet表单，这里一般为Sheet1表单，确定。
将光标定位在“编号：”，单击【邮件】选项卡中的【编写和插入域】，选择需要插入的内容，本文中为“邀请者编号”即完成邀请者编号的插入工作，姓名的插入方式与之类似在次不在阐述。
6
单击【邮件】选项卡中的【完成并合并】按纽，即可按照需求选择将邀请函逐一打印还是以电子邮件形式发送。
如何使用 Word2010 批量制作客户邀请函
首先，大家要先把【邀请函】的模板准备好，下图所示只是一个简单的例子。
然后切换到【邮件】菜单，找到【选择收件人】子菜单，
在其下拉列表中再选择【使用现有列表】，并左击。
弹出下图所示对话框。
选择要批量制作的【客户资料】，然后单击【打开】按钮。
【客户资料】如下图所示。
此时，会弹出下图所示对话框。
直接点击【确定】即可。
接下来，将【光标】移到下图中所指地方，然后在【邮件】菜单下，
找到【插入合并域】，并左击，在其下拉列表中选择【编号】，并左击。
同理，将【光标】移到下图所指地方，然后在【邮件】菜单下，
找到【插入合并域】，在其下拉列表中选择【姓名】，并左击。
接下来，为了表示对客户的尊敬，通常在客户姓名后面加上【先生】或【女士】。在【邮件】菜单下，找到【规则】菜单，
在其下拉列表中选择【如果...那么...否则】，并左击。
此时，弹出下图所示对话框。
然后，按照下图中的提示信息，依次输入相关信息，再点击【确定】按钮。
通过【如果...那么...否则】这个规则，就可根据【性别】判断出，
是【先生】还是【女士】。
接下来，在【邮件】菜单下，找到【预览结果】菜单，并左击。
然后，再点击下图中所指地方，切换客户。
最后，在【邮件】菜单下，选择【完成并合并】菜单，在其下拉列表中，
可以选择【打印文档】或【发送电子邮件】。
至此，批量制作客户邀请函就完成啦！
如何使用 Word2010 批量制作客户邀请函
这个需要用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 替换文本_市场(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版的邀请函，样本如下图所示。通过观察邀请函样本我们发现，不同的内容只有邀请函编号、邀请函姓名等信息。
制作EXCEL版被邀请人名单，如下图。
我们利用WORD的邮件合并功能，将邀请人名单插入邀请函文档中。在WORD文档中依次选择【邮件】【选择收件人】，因为人员名单已经做好了，所以在【选择收件人】的下拉框中选择【使用现有列表】
在弹出的【使用数据源】对话框中选择做好的EXCEL被邀请者名单，并在弹出的【选择表格】选项框中选择“邀请者名单”所在的Sheet表单，这里一般为Sheet1表单，确定。
将光标定位在“编号：”，单击【邮件】选项卡中的【编写和插入域】，选择需要插入的内容，本文中为“邀请者编号”即完成邀请者编号的插入工作，姓名的插入方式与之类似在次不在阐述。
单击【邮件】选项卡中的【完成并合并】按纽，即可按照需求选择将邀请函逐一打印还是以电子邮件形式发送。
Word文档如何快速批量的生成邀请函
使用Word中的邮件合并功能做，不会做网上有视频教程
word怎么结合excel制作多份邀请函
用邮件合并功能实现：
1、编辑邀请函文本，然后再点击“邮件”选项卡；
2、点击“开始邮件合并”；
3、选择你想要创建的文档类型；
4、选择“选择收件人”，选择使用现有列表（Excel，在这里有联系人的信息）；
5、插入合并域，在域中插入被邀请人信息；
6、当所有的东西都已经依照你的想法设置完毕，你就可以点击“完成并合并”。
怎样运用excel和word制作邀请函并成批打印？
做好EXCEL表格，一个被邀请人一行，填好信息比如姓名、头衔等。
打开一个WORD文件，把邀请函相同点写好，比如邀请词和日期，然后利用WORD的邮件合并功能（网上搜索一下怎么用，一大把），读EXCEL的文件，然后排版、打印就行。
转载请注明出处51数据库 » word批量制作邀请函 如何用Word批量制作专属邀请函
