| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Delphi & Word [D7]

Disciple2005 ©   (2006-02-08 07:40:00) 

уважаемые мастера!

 Мне нужно текст вставить в шаблон документа Word.
я знаю, как это сделать на VBA? а можно ли из Delphi и как?

---

Disciple2006   (2006-02-09 00:28:00) [1]

Спасибо большое, Апполо!

очень остроумный ход!

---

Disciple2006   (2006-02-09 00:28:00) [2]

Спасибо большое, Апполо!

очень остроумный ход!

---

Неважно   (2006-02-08 08:57:00) [3]

можно,
например, добавив в шаблон документа закладки
http://www.compdoc.ru/prog/basic/msoffauto/

---

Некто_Аполло   (2006-02-08 08:56:00) [4]

Я делаю так. Открываю файл с кодовыми словами, а потом эти слова заменяю на то, что мне нужно.


procedure TfrmMain.WordRepl(FileName: String);
var FN:OleVariant;
   s1,Tr,Fal,Replace,ReplaceWith,Wrap:OleVariant;
   i:integer;
   WordApplication1:TWordApplication;
begin
 WordApplication1:=TWordApplication.Create(frmMain);
 FN:=FileName;
 WordApplication1.Documents.Open(FN,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPar am,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
 for i:=0 to DM1.TableMDB.FieldCount-1 do
   begin
     s1:='{'+AnsiLowerCase('aaa')+'}'; // {ключевое слово}
     Wrap := wdFindContinue;
     Replace := wdReplaceAll;
     ReplaceWith := 'ddd';// Чем заменять
     if ReplaceWith=Null then ReplaceWith:='';
     Tr:=True;
     Fal:=False;
     WordApplication1.Selection.Find.Execute(S1,Fal,Fal,fal,Fal,Fal,Tr,Wrap,Fal,ReplaceWith,Replace,EmptyParam,EmptyParam,Emp tyParam,EmptyParam);
   end;

 WordApplication1.Visible:=True;
 WordApplication1.Disconnect;
 WordApplication1.Free;
end;


---

Наверх