Word·VBA实现邮件合并

目录

之前写过的一篇使用《python实现word邮件合并》,本文为vba实现方法

制作邮件合并模板


域名可以使用中文,最终完成的word模板,wps操作步骤类似

VBA实现邮件合并

Excel启用宏的工作表运行以下代码,读取当前工作表数据,对模板word文档,按工作表表头名称对同一域名写入值,生成新文档

vbnet 复制代码
Sub word邮件合并_按域名写入()
    '读取当前工作表数据,按arr二维数组第1行表头名称,对word文档中同一域名写入值,生成新文档
    Dim fso As Object, wd As Object, docx$, save_path$, arr, i&, j&, k, v, f, fs
'--------------------参数填写:docx、arr、save_path
    docx = "E:\测试\docx\证明-模板word.docx"  '模板文件路径
    arr = ActiveSheet.[a1].CurrentRegion.Value     '合并数据,当前工作表
    save_path = ActiveWorkbook.path & "\结果\"     '文件保存路径
    Set fso = CreateObject("Scripting.FileSystemObject"): tm = Timer
    If Not fso.FolderExists(save_path) Then fso.CreateFolder (save_path)  '创建文件夹
    Set wd = CreateObject("word.application") ': wd.Visible = True  '默认不可见
    Set tmpl = wd.Documents.Open(docx)
    For i = 2 To UBound(arr)
        With tmpl
            For j = 1 To UBound(arr, 2)
                k = arr(1, j): v = arr(i, j)  'k表头/域名,v值
                Set fs = .Content.Fields  '域集合
                For Each f In fs
                    'Field.Code域代码,Field.Result域结果
                    If InStr(f.Code.text, k) Then f.result.text = v
                Next
            Next
            .SaveAs save_path & arr(i, 2) & ".docx"
        End With
    Next
    tmpl.Close: wd.Quit  '关闭文件,退出程序
    Debug.Print "word邮件合并完成,用时:" & Format(Timer - tm, "0.00")
End Sub

举例

Excel工作表表头与Word文档域名相同

  • 合并结果,20个文件生成用时4.62秒

相关推荐
vfvfb3 小时前
word文档结尾批量插入图片 docx批量插入图片 指定几张
word·docx插入图片·word批量插入图片·word文档批量插入图片
老马啸西风18 小时前
sensitive-word 敏感词性能提升14倍优化全过程 v0.28.0
安全·开源·nlp·word·敏感词·sensitive-word
象骑士Hack1 天前
Word 常用快捷键大全:提升文档处理效率的必备技巧
word
会飞的小菠菜1 天前
如何根据Excel数据表生成多个合同、工作证、录取通知书等word文件?
word·excel·模板·数据表·生成文件
IT小农工2 天前
Windows 文件资源管理器无法预览文件内容word、ppt、excel、pdf
windows·word·powerpoint
BillKu2 天前
在 Delphi 5 中获取 Word 文档页数的方法
word·delphi
Access开发易登软件2 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表2 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
IssacNew2 天前
【原创软件】第14期:FastWordReplace-Word文字批量替换工具V1.1
word·文字替换·批量替换
XiaoMu_0012 天前
【Markdown转Word完整教程】从原理到实现
word·markdown