一个邮件合并问题

YZLSZAJ · 发表于 2016-10-14 17:35

请问各位老师：
如何将工作表的ABCIOEGHFPQL列用邮件合并分别填入WORD的空格，谢谢！

LMY123 · 发表于 2016-10-15 16:24

参考

Sub 生成Word文件_Click()
Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
Dim Word表格行号, Word表格列号, Excel数据表列号
Dim Str1, Str2
当前路径 = ThisWorkbook.Path
For i = 5 To Range("a65536").End(3).Row
导出文件名 = "通知书"
FileCopy 当前路径 & "\通知书.doc", 当前路径 & "" & Sheets("统计表").Range("A" & i) & ".doc" '可以将Sheets("1").Range("B" & i)换成其他数据
导出路径文件名 = 当前路径 & "" & Sheets("统计表").Range("A" & i) & ".doc" '可以将Sheets("1").Range("B" & i)换成其他数据
With Word对象
.Documents.Open 导出路径文件名
.Visible = False
With .Selection.Find
For x = 17 To 1 Step -1 '从大到小，防止字符串序号低位与高位串扰，填写数据即excel表总列数
Str1 = "数据" & Format(x, "000")
Str2 = Sheets("统计表").Cells(i, x)
.Text = Str1 '查找到指定字符串
.Replacement.Text = Str2 '替换字符串
.Execute Replace:=wdReplaceAll '全部替换
Next x
End With
.Selection.WholeStory '全部选中
.Selection.Font.Color = wdColorAutomatic '字符为自动颜色
End With
Word对象.Documents.Save
Word对象.Quit
Set Word对象 = Nothing
Next i
If 判断 = 0 Then
i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
End If
End Sub

复制代码

YZLSZAJ · 发表于 2016-10-18 06:06

LMY123 发表于 2016-10-15 16:24
参考

不好意思，现在才回复。经测试出现“用户定义类型未定义”的错误，请继续指教，谢谢。

LMY123 · 发表于 2016-10-18 11:21

YZLSZAJ 发表于 2016-10-18 06:06
不好意思，现在才回复。经测试出现“用户定义类型未定义”的错误，请继续指教，谢谢。

YZLSZAJ · 发表于 2016-10-19 06:35

LMY123 发表于 2016-10-18 11:21

还是不行，提示“找不到工程或库”，我的是03版的。

LMY123 · 发表于 2016-10-19 08:26

YZLSZAJ 发表于 2016-10-19 06:35
还是不行，提示“找不到工程或库”，我的是03版的。

		自动登录	找回密码
密码			免费注册

[求助] 一个邮件合并问题