[求助]如何利用邮件合并按记录生成为单独的word文档？

wsoft · 发表于 2006-9-14 12:46

EXCEL中多条记录邮件合并入WORD主文档，如何实现邮件合并后的每条记录分别自动生成一个单独的word文档？（因为单位上的电子邮件使用的是NOTES,无法使用WORD邮件合并中的邮件分发功能，因此，只能生成单独的文件再发送）

请回复操作方法，VBA也行，谢谢。

ZXsecDXs.rar (30.56 KB, 下载次数: 48)

wsoft · 发表于 2006-9-14 17:27

老大，给个思路啦！

wsoft · 发表于 2006-9-15 10:03

是问题未说清楚？还是无法解决？

konggs · 发表于 2006-9-15 10:34

你可以考虑

这样行否？

Sub a32()
Dim asec As Section
Dim adoc As Document
Dim bdoc As Document, i%
Dim astring As String
i = 1
Set bdoc = ActiveDocument
    For Each asec In ActiveDocument.Sections
        asec.Range.Copy
        Set adoc = Documents.Add
        Selection.Paste
        astring = ActiveDocument.Tables(1).Range.Cells(2).Range.Text
        astring = Mid(astring, 1, Len(astring) - 2)
        ActiveDocument.Save
        ActiveDocument.Close
        i = i + 1
        bdoc.Activate
    Next

End Sub

konggs · 发表于 2006-9-15 11:57

上面的有问题。

这样可能更好。

Sub 主程序()
Dim asec As Section
Dim i%
Dim astring As String
    i = 1
    On Error Resume Next
    Application.ScreenUpdating = False

    For Each asec In ActiveDocument.Sections
        副程序 (i)
        astring = ActiveDocument.Tables(1).Range.Cells(2).Range.Text
        astring = Mid(astring, 1, Len(astring) - 2)
        ActiveDocument.SaveAs astring & i & ".doc"
        i = i + 1
    Next

    Application.ScreenUpdating = True
End Sub
Function 副程序(i As Integer)
    ActiveDocument.Undo 2
    ActiveDocument.Sections(i).Range.Copy
    ActiveDocument.Range.Delete
    Selection.Paste
End Function

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