邮件合并后指定固定页分页保存。

windy_dell

想请教各位大神，我想实现邮件合并中，第1，5，9，13，17，20（即每次都加4）条记录按页保存（之所以是如此条数，是因为EXCEL中数剧需要每4条合并到一个文档。），参考论坛中的如下代码，请问怎么修改才能实现呢？

Sub myMailMerge()
Dim myMerge As MailMerge, i As Integer, myname As String
Application.ScreenUpdating = False
Set myMerge = ActiveDocument.MailMerge
With myMerge.DataSource
    If .Parent.State = wdMainAndDataSource Then
        .ActiveRecord = wdFirstRecord
        For i = 1 To .RecordCount
            .FirstRecord = i
            .LastRecord = i
            .Parent.Destination = wdSendToNewDocument
         
            myname = .DataFields(3).Value
            .ActiveRecord = wdNextRecord
            .Parent.Execute
            With ActiveDocument
   
                .SaveAs "C:\Users\lenovo\Desktop\导出文件\" & myname & ".doc"
                .Close
            End With
        Next
    End If
End With
Application.ScreenUpdating = True

windy_dell

已经解决 .LastRecord = i-3