Запуск word
jenbond © (2002-01-24 10:08:00)
Подскажите как попроще реализовать запуск Word и сразуже
предачу в него текста с активной формы!
MetallAdm (2002-01-24 11:18:00) [1]
А как енто проше ?!!
implementation
uses OleAuto;
var
V : Variant ;
..
V := 0; // at some point just to initialise
if V = 0 then
begin
V := CreateOLEObject("Word.Application");
V.WordBasic.AppShow;
end;
V.WordBasic.Fileopen("Your Word Doc name");
V.WordBasic.EditBookmark("Title",0,0,0,1);
V.WordBasic.Insert(Title);
....
Можно Так а можно и так ...
var
Word: Variant;
begin
Word := CreateOleObject("Word.Basic");
with Word do
begin {Pure WordBASIC commands follow...}
FileNew("Normal");
Insert("This is the first line"#13);
Insert("This is the second line"#13);
FileSaveAs("c:\temp\test.txt", 3);
end;
end;
Наверх 
ЧАТ |
Орешник |
|
