[Yadeluxe]

Доброго времени суток!

На данный момент сделал Базу данных, считывание и запись информации :

на данный момент 2 формы в проге:
- 1 с DBGrid - вывод таблицы и кнопками создания и редактирования данных
-2 Форма где в отдельных DBedit вбивается и редактируется инфа и сохраняется в БД

Хочу реализовать печать документов, Допустим есть файл Html или doc, в нем есть определенные места (в тексте) куда нужно вставить информацию например ФИО и т.д. При открытии третей формы будет вывод инфы через BDtext , пара кнопок. После того убедившись, что инфа правильная при нажатии кнопки будет открываться HTML страничка или Doc файл где будет " текст текст текст текст Заменный текст ,текст текст текст текст текст текст Замененный текс текст текст текст текст. Замена будет происходить всегда в одом и том же месте в файле, при распечатке нужно сохранить табуляцию и положение текста.

Вот так вот не пинайте сильно, не знаю где копать

[Kailon]

Как-то так...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  FName, OldText, NewText, CntFind, CntReplace: OleVariant;
begin
  FName := 'D:\MyDoc.dotx';
  OldText := '#Name#'; //текст который ищем
  NewText := 'Иванов Иван Иванович'; //текст на который меняем
  CntFind := wdFindContinue; //ищем до конца документа
  CntReplace := wdReplaceAll;//меняем каждый раз
  with WordApp do
    begin
      Documents.Add(FName, EmptyParam, EmptyParam, EmptyParam);
      Selection.Find.Execute(OldText, EmptyParam, EmptyParam, EmptyParam,
                             EmptyParam, EmptyParam, EmptyParam, CntFind,
                             EmptyParam, NewText, CntReplace, EmptyParam,
                             EmptyParam, EmptyParam, EmptyParam);
      Visible := True;
    end;
end;