как открыть готовый word в Delphi

← →
Дмитрий (2013-04-23 16:49) [0]

Помогите пожалуйста еще разок.
я вписал код:
procedure TForm1.RadioButton1Click(Sender: TObject);
var Word: variant;
begin
if RadioButton1.Checked=True then
Word:=CreateOleObject("Word.Application");
Word.Documents.Open("L:\ДИПЛОМ\test.doc") ;
end;
а он при запуске выдает не может найти файл. не пойму в чем дело

← →
O'ShinW © (2013-04-23 17:00) [1]

либо его там нет
либо не

> L:

а \\computer\share

← →
Дмитрий (2013-04-23 17:09) [2]

документ лежит: компьютер\внешний жесткий\ДИПЛОМ\Дипломный проект
я не правильно адрес прописал? а как лучше?

← →
Плохиш © (2013-04-23 17:12) [3]

> я не правильно адрес прописал? а как лучше?

Надо как правильно. А как правильно нам от сюда не видно.

Зачем оно тебе, это программирование?

← →
Ega23 © (2013-04-23 17:16) [4]

procedure DoOpenWordDoc(FileName: string); var w: Variant; begin w := CreateOleObject("Word.Application"); // <- сюда бряк и смотреть, что в FN пришло w.Documents.Open(FileName) ; end; procedure TForm1.RadioButton1Click(Sender: TObject); begin if RadioButton1.Checked then with TOpenDialog.Create(nil) do try if Execute then DoOpenWordDoc(FileName); finally Free; end; end;

> "L:\ДИПЛОМ\test.doc"

> внешний жесткий\ДИПЛОМ\Дипломный проект

ты не учел эту папку

> не может найти файл

в делфи существуют функция fileexists, которую неплохо было бы использовать до попытки открытия, а также есть диалоговые всякие фигни, типа TOpenDialog, которые позволяют выбрать файл, и автоматом генерят путь к нему.
да и вопрос Плохиша тож имеет смысл обдумать.

как открыть готовый word в Delphi Найти похожие ветки