word邮件合并

醉爱

普通邮件合并不能完成，有哪位大神有更好的办法请赐孝。

约定的童话

Sub 填写()
    Application.ScreenUpdating = False
    Dim myword, myPath$, myfile, mydoc, s, i, n, arr, wdapp
    myPath = ThisWorkbook.Path & "\"
    Set wdapp = VBA.CreateObject("Word.Application")
    arr = [a1].CurrentRegion
    For i = 2 To UBound(arr)
        FileCopy myPath & "模板.docx", myPath & arr(i, 7) & ".docx"
        With wdapp.Documents.Open(myPath & arr(i, 7) & ".docx")
            .Tables(2).Cell(2, 2).Range = arr(i, 2)
            .Tables(2).Cell(2, 5).Range = arr(i, 3)
            .Tables(2).Cell(2, 6).Range = arr(i, 4)
            .Tables(2).Cell(2, 7).Range = arr(i, 8)
            .Tables(2).Cell(2, 8).Range = arr(i, 9)
            .Tables(2).Cell(2, 9).Range = arr(i, 10)
            .Close True
        End With
    Next
    wdapp.Quit
    Set wdapp = Nothing
    MsgBox "填写完毕!", , "报告"
End Sub

修改下用。。。

蜀中草莽

https://www.ixigua.com/7035595710749737510?id=7048294443400561160&logTag=d13a2d810f1e5d823834
这里有讲邮件合并 一户一表的操作

醉爱

fansty1012 发表于 2022-3-7 14:48
表格数据和文档数据要匹配，你word文档需要填报数据，exce里不足。

不足的可以不填写，现在我想请教的是方法。不足的可以后补上。谢谢

同心/ty

约定的童话 发表于 2022-2-22 06:58
Sub 填写()
    Application.ScreenUpdating = False
    Dim myword, myPath$, myfile, mydoc, s, i, n, ...

代码测试没有成功，能否上传附件学习一下。

约定的童话

同心/ty 发表于 2022-3-27 22:34
代码测试没有成功，能否上传附件学习一下。

附件没做，报错的话可能是哪个变量没有对上，F8配合本地窗口耐心调试

zmj9151

_____________

醉爱

zmj9151 发表于 2022-4-5 16:56
_____________

都是一闪而过，是设置了密码吗。如何保存呢。

zmj9151

醉爱 发表于 2022-4-6 10:04
都是一闪而过，是设置了密码吗。如何保存呢。

文件解压了吗？生成的文档在当前文件路径下的  一户一表 文件夹中

zhanglei1371

醉爱 发表于 2022-4-6 10:04
都是一闪而过，是设置了密码吗。如何保存呢。

楼上的附件测试过了，没有任何问题。