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

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

word


Чувак ©   (2006-05-21 22:50:00) 

как мне сделать так что при выборе любого вордовского(*.doc) файла запустился этот файл с ворда?
как использовать word application?


Lexer   (2006-05-22 11:26:00) [1]

Определение приложения для файла и его открытие
FindExecutable(pFile, nil, pApp);
Winexec(pApp pFile,SW_NORMAL)


Steplerr   (2006-05-22 11:21:00) [2]

Советую почитать статью на этом сайте:
http://www.delphimaster.ru/articles/dbtoword/index.html
Глущенко Юрий aka YurikGL
Экспорт из БД в Word.

Грамотно описаны принцыпы работы с WordApplication и несколько интересных приёмов работы с Word, даже есть исходники примера программы.


Ega23   (2006-05-22 11:08:00) [3]


> Может не в тему, но так ещё можно:
> WinExec('Explorer.exe D:\DocFile.doc');


Зачем так-то? ShellExecute для этого есть...


balepa   (2006-05-22 10:39:00) [4]


> DevilDevil ©   (22.05.06 00:50) [2]

Winexec('Explorer.exe D:\Doc.doc',SW_NORMAL)


DevilDevil   (2006-05-22 00:50:00) [5]

Может не в тему, но так ещё можно:
WinExec('Explorer.exe D:\DocFile.doc');


Loginov Dmitry   (2006-05-21 23:39:00) [6]

Что-то в этом духе:

procedure TForm1.Button1Click(Sender: TObject);
var
 FileName: OleVariant;
begin
 FileName := 'd:\docfile.doc';
 WordApplication1.Connect;
 WordApplication1.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam,
   EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
   EmptyParam, EmptyParam, EmptyParam, EmptyParam);
 WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
 WordApplication1.Visible := True;
end;


Это раннее связывание (которое к тому же реализовано в виде классов). При позднем связывании будет немного по-другому:
Word := CreateOleObject('Word.Application');

Ну и так далее.


Наверх

Титульная страница Поиск, карта сайта Написать письмо