Автозаполнение документа Word из Делфи

[Fantss]

Начальство дало задание сделать програмку для автозаполнения нужных мест в документе word и реализовать как прогу... я вообще не шарю с этим, но надо сделать за неделю.. помогите плиз...
Прикреплен документ.

[AlexanderKs]

Можно сделать через WordApplication (вкладка Servers). AutoConnect=true
( Word: TWordApplication; ). Материал для изучения WordApp (то, что нужно в данном случае) - здесь.

procedure TForm1.Button1Click(Sender: TObject); // "Заполнить"
var
  fil:OleVariant; // путь к файлу
  Tabl: Table; // таблица Word
   i:integer;
   s:string;
begin
   fil:=GetCurrentDir()+'\заявление.doc';  // путь к документу
     Word.Documents.OpenOld(fil,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
       EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam); // открываем документ

   tabl:=Word.ActiveDocument.Tables.Item(2); // получаем "указатель" на вторую таблицу - табл с полем "Форма"
   s:=Ed3.Text; // номер формы из текстового поля
   for i:=1 to 6 do // записываем в ячейки таблицы номер формы, разбивая его на символы
      tabl.Cell(1,i+1).Range.Text:=s[i];

   tabl:=Word.ActiveDocument.Tables.Item(3);  // переходим к таблице 3
   tabl.Cell(1,2).Range.Text:=ed1.Text; // записываем наименование органа
   tabl.Cell(1,4).Range.Text:=ed2.Text; // записываем код органа

   // и так далее, по всем оставшимся таблицам.. 


   word.Visible:=true; // отображаем окно Word (после заполнения, чтобы не отображать запись данных в документ)
end;

[Fantss]

А как после всего заполнения автоматически с заполненными данными всё это выходило на печать?

[AlexanderKs]

Распечатать заполненный документ не сложно: заведите еще одну переменную
типа OleVariant ( в данном примере - docum ), и после кода заполнения напишите:

  docum := Word.ActiveDocument;
  docum.PrintOut;