Delphi və iki Word sənədi

word və excel faylları ilə işləmək üçün makrosları bilmək yaxşı olar.
Bilməsən də bacararsan. Amma çox çətin olacaq.

var word: Variant;
doc1: Variant;
doc2: Variant;
begin
//word proqrami hazirlanir
word:=CreateOleObject(‘word.application’);
word.visible:=true;

//faylar hazirlanir
doc1:=f.Documents.Add;
doc2:=f.Documents.Add;

//birinci fayl aktivlesir ve text daxil edilir
doc1.select;
word.Selection.Text:=’Birinci acilan fayl’;

//ikinci fayl aktivlesir ve text daxil edilir
doc2.select;
word.Selection.Text:=’Makroslari mutleq oyren’;

//fayllar saxlanir ve proqram baglanir.
doc1.saveAs(‘c:\word1.doc’);
doc2.saveAs(‘c:\word2.doc’);
word.Quit;
end;