邮件合并要求每页生成一个word文件！

yanjie

邮件合并要求每页生成一个word文件！没想到平时很少做word,现在一下便做成功，和大家分享代码如下：
Sub yanjie()
Dim i As Long
With ActiveDocument.MailMerge
For i = 1 To .DataSource.RecordCount

        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = i
            .LastRecord = i
        End With
        .Execute Pause:=False
        
    ChangeFileOpenDirectory _
        "C:\Documents and Settings\Administrator\桌面\luxueqin1982\"
    ActiveDocument.SaveAs FileName:=.DataSource.DataFields("客户档案号") & ".doc"
    ActiveWindow.Close
   Next i
End With
End Sub

wjhere

以前也看过类似的代码，版主这个好懂，谢谢分享。

夙蝶

看了几遍总算是看明白什么意思了，不过，对于这些代码不明白地说

SH婧婧

Sub aa()
myPath = "D:\temp\"
Selection.HomeKey Unit:=wdStory
Set myRange = Selection.Range
curpage = 0
Application.ScreenUpdating = False
Do
prepage = curpage
pagenum = pagenum + 1
Set myRange = myRange.GoToNext(What:=wdGoToPage)
curpage = myRange.Start
endpage = myRange.Previous.Start
If curpage = prepage Then _
endpage = ActiveDocument.Content.End
ActiveDocument.Range(prepage, endpage).Copy
With Documents.Add
.Content.Paste
.SaveAs myPath & "Page" & pagenum & ".doc"
.Close
End With
If curpage = prepage Then Exit Do
Loop
Application.ScreenUpdating = True
End Sub

YZLSZAJ

辛苦！不懂，实例------

dsp5000

老大有示例吗？

xxiaoa

看不懂，能否注释一下？

linyancheng

個人覺得樓主的比較好，也比較容易懂。

飞云楼主

已转入代码收藏，慢慢消化。谢谢楼主分享。

李子然

收藏学习，谢谢