Вставка в шаблон WORD

Автор:Maxim
Дата:03.02.2004
Просмотров:5097
Скачиваний:2797
Оценка:, Оценок - 12

Описание

Текст примера

 import rslx,lgxs,BankInter;

const
  wdFindContinue = 1,
  wdReplaceAll   = 2;

var ФайлШаблона1=String"..\\mac\\primer.doc"),WordApp,НомерКлиента=1,
Temp=String("..\\txtfile\\"),App, Source, Target);
/*----------*/
macro ЗаменитьВДокументе(App, Source, Target)
App.Selection.Find.Execute(Source, True, True, False, False, False, True, wdFindContinue,False,Target, wdReplaceAll);
end;
/*----------*/
/*---------Начало-----------*/

WordApp = ActiveX("Word.Application.8");
WordApp.Documents.Open(ФайлШаблона1);

WordApp.ActiveDocument.SaveAs(Temp + "klbi"+НомерКлиента+".doc");
НомерДоговора=1;
ЗаменитьВДокументе(WordApp,"#NOMER#",string(НомерДоговора) );

end;


а в шаблоне, в нужном месте напишите #NOMER#. Все