ник: Filosof
Так значит все таки полная правка кода.
а про слияние в оврд есть какие нибудь аналоги вот такой код
With word_obj.Application
.Documents(FileBLH1).Activate
.ActiveDocument.MailMerge.OpenDataSource _
Name:=DbLet.Name, _
ReadOnly:=True, _
LinkToSource:=True, _
AddToRecentFiles:=False, _
SQLStatement:="SELECT [TblLetterOutTmp].* FROM [TblLetterOutTmp];" 'источник данных для полей слияния
.ActiveDocument.MailMerge.MainDocumentType = 3
.ActiveDocument.MailMerge.Execute Pause:=True
.Documents(FileBLH1).Close SaveChanges:=0 'закрыли копию шаблона
word_obj.Selection.Fields.Update
word_obj.ActiveWindow.View.ShowFieldCodes = False 'отключение показа кодов полей
.ActiveDocument.SaveAs FileName:=DocBLH
.Documents(DocBLH).Close SaveChanges:=0
End With