Delphi. Добавление данных в документ Word.

[Алекс Миско]

Подскажите. Как можно дописать дописать текст в уже существующий документ word? Текст берется из эдитов. Дабы было понятнее что я спрашиваю попытаюсь сформулировать на примере:

Допустим нужно сделать отчет по полученым оценкам\списаным запчастям и т.д. Т.е. есть например готовый документ а в него нужно просто дописать данные нужные места.
Реально ли такое? и если да то где можно почиать именно на эту тему!

[p51x]

2 варианта:
1. используете объекты ворда, если он установлен
2. изучаете спеки на формат и парсите сами

[Алекс Миско]

Сообщение от p51x

2 варианта:
1. используете объекты ворда, если он установлен
2. изучаете спеки на формат и парсите сами

будьте добры- поясните подробнее

[Multiman]

Открываете документ, там в нужных местах пишете что нибудь, а потом заменяете текстом их едитов.

Я вот так делал. (это как пример)

begin
  if CreateWord then begin

VisibleWord(true);

If OpenDoc('C:\Учебный банк(программа)\Documents\платежное поручение(шаблон).rtf') then begin

 StartOfDoc; while not

   FindAndPasteTextDoc('***НомПлат',DBEdit1.Text) do;

  StartOfDoc; while not

   FindAndPasteTextDoc('***ПоступВбанк',DBEdit2.Text) do;

  StartOfDoc; while not

   FindAndPasteTextDoc('***СписСоСч',DBEdit3.Text) do;

  StartOfDoc; while not

   FindAndPasteTextDoc('***Дата',DBEdit4.Text) do;

 StartOfDoc; while not

   FindAndPasteTextDoc('***ВидПлат',DBEdit5.Text) do;

  StartOfDoc; while not

   FindAndPasteTextDoc('***ВидОп',DBEdit6.Text) do;

  StartOfDoc; while not

   FindAndPasteTextDoc('***Очер',DBEdit7.Text) do;

  StartOfDoc; while not

   FindAndPasteTextDoc('***РезП',DBEdit8.Text) do;

  StartOfDoc; 




  SaveDocAs('C:\Учебный банк(программа)\Documents\платежное поручение');


end;  
end;