Форум: "Corba";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];
ВнизРабота с Word - поиск и замена Найти похожие ветки
← →
Vitalik_P (2004-10-25 15:39) [0]Как в открытом RTF-файле заменить некоторые фрагменты текста (типа ID_1, ID_2)на другие?
← →
1008 © (2004-10-26 14:39) [1]http://www.delphiworld.narod.ru/
← →
Rouse_ © (2004-10-26 15:19) [2]Что-то наподобие...
procedure CreateReport(const Path: String; const Index: Byte = 0;
Shablon: Boolean = False);
var
W: Variant;
I: Byte;
ClassID: TCLSID;
procedure Replace(const Value, Result: String);
begin
W.Selection.Find.Execute(Value, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, 1, EmptyParam,
Result, EmptyParam);
Application.ProcessMessages;
end;
begin
if CLSIDFromProgID("Word.Application", ClassID) <> S_OK then
begin
MessageBox(MainForm.Handle, PChar("Word не обнаружен. Создание отчета не возможно"),
"Внимание!!!",MB_OK or MB_ICONERROR);
MainForm.StatusBar1.Panels.Items[0].Text := " Ошибка...";
Exit;
end;
W := CreateOleObject("Word.Application");
W.Documents.Open(FileName := Path, ReadOnly:=False);
Replace("<Qpn>",
FormatFloat("0", HeatData[0].Qpn));
Replace("<1>", HeatData[0].BoilerName);
Replace("<2>", HeatData[0].Snumber);
Replace("<3>", HeatData[0].Rnumber);
Replace("<4>", HeatData[0].Znumber);
Replace("<5>", MainForm.ComboBox2.Text);
Replace("<6>", HeatData[0].Obor);
Replace("<7>", HeatData[0].Ust);
и т.д.
Страницы: 1 вся ветка
Форум: "Corba";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c