Решил проблему....

Код

... var   Form1: TForm1;   CreaDok: OleVariant; ... CreaDok:=WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ... procedure TForm1.SpeedButton1Click(Sender: TObject); var SaveChanges, templ:olevariant;     s: string; begin WordApplication1.AutoQuit:=false; try // определяю закрытие документа   if not VarIsEmpty(CreaDok) then      begin      s:=ExtractFilePath(Application.ExeName)+'Temp\Отчёт '+ DateToStr(DateTimePicker1.Date);      while (FileExists(s+'.doc')) do         begin         s:=s+' Copy';         end;      Templ:=s+'.doc';      // если не сохранён      if WordApplication1.ActiveDocument.Saved=false then           // сохраняю         WordApplication1.ActiveDocument.SaveAs(Templ, EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam,                                                       EmptyParam, EmptyParam, EmptyParam);      SaveChanges:=false;      // закрываю документ      WordApplication1.ActiveDocument.Close(SaveChanges,EmptyParam,EmptyParam);      // закрываю ворд      WordApplication1.Application.Quit(SaveChanges,EmptyParam,EmptyParam);      end; finally  // если произошла ошибка  // а она произойдёт, если пользователь документ закрыл    WordApplication1.AutoConnect:=false;    WordApplication1.Destroy;  Application.Terminate;  end; end; ...

Только в Form1Close(), эта штука не работает. Пришлось BorderIcons отключить полностью

А зачем определять, запущен Word или нет?
Вообще реккомендую закладкой servers не пользоваться. Лучше брать только интерфейсы и создавать объекты в run-time - гораздо меньше происходит неожиданных вещей да и из кода очевидно, что происходит.

Значит ты неправильно его закрываешь
нужно так

Код

Var   Excel:variant; begin ...   Excel.Quit;   Excel := Unassigned;

у меня всё работает

Цитата

Значит ты неправильно его закрываешь нужно так

дело в том что в моём случае ошибка возникает ещё до закрытия и вообще при попытке оперирования с этим документом в программе

Albinos_x
1. тебе Fantasist дельный совет дал.
2. Конструкцией try except end - не стоит пренебригать.
3. А если у пользователя 150 документов в Word-е?

PS: Не забудь создавать(если у тебя её нет) папку "Temp" - Word - за тебя енто не сделает...

Вот код:

Код

uses ComObj; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); const wdFormatDocument = $00000000; var Word,Doc:IDispatch;     pn,s:string;     i:integer; begin  try   Word:=GetActiveOleObject('Word.Application');  except   Word:=nil;  end;  if Word<>nil then   begin    try     Doc:=Variant(Word).ActiveDocument;    except     Doc:=nil;    end;   end;  pn:=ExtractFilePath(ParamStr(0))+'Temp\Отчёт '+DateToStr(Now);  while Doc<>nil do   begin    i:=0;    while (FileExists(pn+' - '+IntToStr(i)+'.doc')) do inc(i);    s:=pn+' - '+IntToStr(i)+'.doc';    try     if Variant(Doc).Saved=false then      Variant(Doc).SaveAs(s,wdFormatDocument,EmptyParam,EmptyParam,EmptyParam,EmptyParam,                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);    except    end;    try     Variant(Doc).Close(false,EmptyParam,EmptyParam);     Doc:=Variant(Word).ActiveDocument;    except     Doc:=nil;    end;   end;  if Word<>nil then   begin    try     Variant(Word).Application.Quit(false,EmptyParam,EmptyParam);    except    end;   end; end;

PS2: При запуске кода из под Delphi - могут выдаваться ошибки - но не при обычном запуске проги.

Особо... не отлаживал - так что теоретически... могут быть ошибки в коде.

И самое главное... так как ентот код ты хочеш засунуть в OnClose - не забудь выдавать для пользователя какое-нить сообщение... типо "Подождите пожалуйста"...

Удачи.

Это сообщение отредактировал(а) Girder - 7.5.2005, 13:25

Girder у нас же описания интерфейсов есть - зачем нам с Dispatcheм мучаться.

Я бы переписал это так:

Код

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var     unk:IUnknown;     Word:_Application;     Doc:_Document;     pn,s:string;     i:integer; begin  GetActiveObject(CLASS_WordApplication,0,unk);  if unk=nil then exit;  unk.QueryInterface(_Application,Word);  if Word<>nil then  begin    try      Doc:=Word.ActiveDocument;      pn:=ExtractFilePath(ParamStr(0))+'Temp\Îò÷¸ò '+DateToStr(Now);      while Doc<>nil do      begin        i:=0;        while (FileExists(pn+' - '+IntToStr(i)+'.doc')) do inc(i);        s:=pn+' - '+IntToStr(i)+'.doc';        try         if Doc.Saved=false then           Doc.SaveAs(s,wdFormatDocument,EmptyParam,EmptyParam,EmptyParam,EmptyParam,                     EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);         Doc.Close(false,EmptyParam,EmptyParam);        except        end;        Doc:=Word.ActiveDocument;      end;    except    end;    try      Word.Quit(false,EmptyParam,EmptyParam);    except    end;  end; end;

Обработка ошибок, конечно, выглядит не очень, но пойдет.
Добавлено @ 19:08

Цитата(Girder @ 7.5.2005, 10:22)

3. А если у пользователя 150 документов в Word-е?

Тогда компутер у него сдохнет еще до запуска этой программы.

Это сообщение отредактировал(а) Fantasist - 7.5.2005, 19:08

Цитата

2. Конструкцией try except end - не стоит пренебригать.

не пренебрегаю... (см. мой вариант)

Цитата

3. А если у пользователя 150 документов в Word-е?

Проверял на 5 одновременно открытых документах - закрывается тот который нужен. (в моём варианте)

Цитата

PS: Не забудь создавать(если у тебя её нет) папку "Temp" - Word - за тебя енто не сделает...

и такое есть...

Цитата

PS2: При запуске кода из под Delphi - могут выдаваться ошибки - но не при обычном запуске проги.

знаю, но всё равно, спасибо за предупреждение...
----------------------------------------------

Цитата

Тогда компутер у него сдохнет еще до запуска этой программы.

PS: ваши варианты пока не проверял...

Цитата

Вообще рекомендую закладкой servers не пользоваться. Лучше брать только интерфейсы и создавать объекты в run-time - гораздо меньше происходит неожиданных вещей да и из кода очевидно, что происходит.

Когда это понял, уже было поздно переделывать прогу...На тот момент уже около 5 тыс. строк... Даже с коментариями очень сложно осуществлять навигацию... Сейчас прежде чем, чего-то туда вставить, приходится сначала делать оттельно и уже рабочий вариант кода туда вставлять и даже с таким подходом возникают иногда проблеммы (сегодня неожиданно одна процедура, в которую вставлял новую функцию, стала выдавать переполнение стека...)

Спасибо всем за помощь!!!

Цитата

PS: ваши варианты пока не проверял...

Предложенные варианты хорошие, но работают не совсем так как я хотел...

моё конечное решение:

Код

... var   Form1: TForm1;   OpenDoc:boolean = false; ... // при создании  документа WordDocument1.ConnectTo(WordApplication1.ActiveDocument);  OpenDoc:=true; ... procedure TForm1.WordDocument1Close(Sender: TObject); begin OpenDoc:=false; WordDocument1.Disconnect; WordApplication1.Disconnect; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var s :string;     SaveChanges, templ : olevariant; begin if OpenDoc then    begin    s:=ExtractFilePath(Application.ExeName)+'Temp\отчёт '+ DateToStr(DateTimePicker1.Date);    while (FileExists(s+'.doc')) do         begin         Application.ProcessMessages;         s:=s+' Copy';         end;        Templ:=s+'.doc';      // если не сохранен, то      if WordApplication1.ActiveDocument.Saved=false then           // сохраняем           begin          WordApplication1.ActiveDocument.SaveAs(Templ, EmptyParam, EmptyParam, EmptyParam,                                                         EmptyParam, EmptyParam, EmptyParam,                                                         EmptyParam, EmptyParam, EmptyParam,                                                         EmptyParam, EmptyParam, EmptyParam,                                                         EmptyParam, EmptyParam, EmptyParam);           end;      SaveChanges:=false;      WordApplication1.ActiveDocument.Close(SaveChanges,EmptyParam,EmptyParam);    end; end; ...

работает на ура и никаких ошибок не возникает...

еще раз всем спасибо за участие и дельные советы

Это сообщение отредактировал(а) Albinos_x - 19.7.2005, 17:38

При раннем связывании всё работает быстрее и проверка типов и ошибок происходит уже на стадии компилирования
Хотя при позднем связывании тоже есть свои прелести

Обнаружил, что при некоторых настройках винды, событие FormClose почему-то не обрабатывается... Поэтому приведённый выше код запихнул в событие FormDestroy(Sender: TObject). Тогда проблем не возникнет...