同样代码运行出问题

zigege

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
n = Int(.RecordCount / 300 + 1)
For i = 1 To n
.FirstRecord = 300 * (i - 1) + 1
.LastRecord = 300 * i
.Parent.Destination = wdSendToNewDocument
myname = "平导钢架" & "-" & .DataFields(52).Value
.ActiveRecord = wdNextRecord
.Parent.Execute
With ActiveDocument
.Content.Characters.Last.Previous.Delete
.SaveAs "E:\竣工资料相关\检验批数据库\平寨隧道\检验批打印\辅助坑道及附属设施\平导\平导支护" & myname & ".doc"
.Close
End With
Next
End If
End With
Application.ScreenUpdating = True
End Sub

我用这个代码运行只有1800多条记录的主文件，可以成功生成各种记录。
但是运行另外的一个主文件有11000多记录的，.ActiveRecord = wdFirstRecord 这条就显示黄了

zigege

刚刚又试了一个1w多条记录的主文件 又可以运行生成。。。。 这是怎么回事啊