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

Вниз

word   Найти похожие ветки 

← →
Чувак   (2006-05-21 22:50) [0]

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

---

← →
Loginov Dmitry ©   (2006-05-21 23:39) [1]

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

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");

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

---

← →
DevilDevil ©   (2006-05-22 00:50) [2]

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

---

← →
balepa ©   (2006-05-22 10:39) [3]

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

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

---

← →
Ega23 ©   (2006-05-22 11:08) [4]

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


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

---

← →
Steplerr ©   (2006-05-22 11:21) [5]

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

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

---

← →
Lexer ©   (2006-05-22 11:26) [6]

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

---

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

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

Наверх

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