Форум: "Основная";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Вниз

Delphi & Word   Найти похожие ветки 

← →
Disciple2005   (2006-02-08 07:40) [0]

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

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

---

← →
Некто_Аполло   (2006-02-08 08:56) [1]

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


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;


---

← →
Неважно   (2006-02-08 08:57) [2]

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

---

← →
Disciple2006   (2006-02-09 00:28) [3]

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

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

---

← →
Disciple2006   (2006-02-09 00:28) [4]

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

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.012 c