| Есть программка, которая берет из базы данных (путем простейшего select) данные и заполняет табличку Ворда.
Когда из базы берутся 35 или менее строк, то все работает нормально.
 Но когода строк 36, то возникает ошибка:
 
 ?err.Description
 Слияние в новый документ не было выполнено, поскольку все записи данных были пусты или ни одна запись данных не соответствовала условиям отбора.
 
 ?err.Number
 5631
 
 Кодинг:
 Set objStickerTemplate = objWordApp.ActiveDocument
 objStickerTemplate.MailMerge.MainDocumentType = wdFormLetters
 objStickerTemplate.MailMerge.OpenDataSource Name:= _
 sPathDB & "\CBSD_SP_CRM_vRegistrationList1.odc" _
 , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
 AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
 WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
 Format:=wdOpenFormatAuto, Connection:=sConnStr _
 , SQLStatement:=sSQL, SQLStatement1:="", _
 SubType:=wdMergeSubTypeOther
 With objStickerTemplate.MailMerge
 .Destination = wdSendToNewDocument
 .SuppressBlankLines = True
 With .DataSource
 .FirstRecord = wdDefaultFirstRecord
 .LastRecord = wdDefaultLastRecord
 End With
 .Execute Pause:=False
 End With
 
 Ошибка возникает на строке:
 .Execute Pause:=False
 
 
 Подскажите в чем тут может быть дело и как это исправить?
 
 
 |