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

Вниз

как открыть готовый 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;

---

← →
brother ©   (2013-04-27 10:15) [5]

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


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

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

---

← →
Kilkennycat ©   (2013-04-29 02:28) [6]

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

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

---

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

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

Наверх

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