Как заносить в Word текст это понятно:
const wdReplaceAll=2;
var W :variant;
dir_: string;
begin
// Перевод данных в Word
W:=CreateOleObject ('Word.Application');
GetDir(0,dir_);
if not OpenDialog1.Execute then begin chdir(dir_);
exit;
end;
chdir(dir_);
W.Documents.Add(OpenDialog1.FileName);
W.Visible:=CheckBox1.Checked;
// W.documents.Add(ExtractFileDir(Application.ExeName)+'\Шаблон заключения.dot\');
W.Selection.Find.Text:='###дата&';
W.Selection.Find.Replacement.Text:=DM_ORND.dset_REC_Find.FieldByName('REC_OLD_DATE').AsString;
W.Selection.Find.Execute(Replace:=wdReplaceAll);
W.Selection.Find.Text:='###описание&';
W.Selection.Find.Replacement.Text:=DM_ORND.dset_REC_Find.FieldByName('REC_OLD_DES').AsString;
W.Selection.Find.Execute(Replace:=wdReplaceAll);
Проблема вот в чем! При занесении данных из DM_ORND.dset_REC_Find.FieldByName('REC_OLD_DES').AsString на место ###описание& выдает ошибку, что слишком длинная строка. С короткими строками работает запросто, а вот с длинной не хочет(ок.2000 символов).Как можно исправить эту ошибку?
Работаю с Delphi7, firebird.
