邮件合并,求大神用VBA写一个.,~

zhangx1aoxi

word已标明表格内容 . 自己研究Vba的.,word模板的格式排版错乱. 不知道哪里错了.谢谢大神

3190496160

搜搜vba替换功能生成word

lizhipei78

https://club.excelhome.net/thread-1674623-1-1.html

gwjkkkkk

这个应该就是标准的邮件合并，不需要写代码了吧.

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar, i&, j&, wdApp As Word.Application, strFileName$, strPath$, strSaveName$
   
    strPath = ThisWorkbook.Path & "\"
    strFileName = strPath & "通知书.docx"
    If Dir(strFileName) = "" Then MsgBox "模板文件不存在，请检查！", vbExclamation: Exit Sub
   
    Application.ScreenUpdating = False
    ar = [A1].CurrentRegion.Value
    On Error Resume Next
    Set wdApp = GetObject(, "Word.Application")
    If Err <> 0 Then
        Set wdApp = New Word.Application
    End If
    For i = 2 To UBound(ar)
        With wdApp.documents.Open(strFileName)
            strSaveName = strPath & ar(i, 2)
            For j = 1 To UBound(ar, 2)
                With .Content.Find
                    .Text = ar(1, j)
                    .Replacement.Text = IIf(j = 1, Format(ar(i, j), "00000"), ar(i, j))
                    .Execute Replace:=wdReplaceAll
                End With
            Next j
            .SaveAs strSaveName
            .Close True
        End With
    Next i
   
    If Err <> 0 Then wdApp.Quit
    Set wdApp = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

写一个也比较 方便，请参考附件。。。

cai2532

厉害，学习了。