[AlexVol]

Это неправильно: при переключении на другой документ получите бяку.
А вообще нормального способа определить, когда офис закрывает документ извне, не существует.
Только когда открывается и редактируется СУЩЕСТВУЮЩИЙ файл, можно проверить его на доступность для записи.

[game_Racer]

AlexVol, Бяку не получал. Файл открывается существующий, я (его предварительно копирую во временную папку). Как проверить его доступность для записи?

[AlexVol]

Попробовать открыть с правом записи в монопольном режиме. Если получается исключение - файл занят.

[game_Racer]

AlexVol, попробую, но мне кажется будет также грузить проц. Я ведь правильно понимаю, что это нужно сделать в цикле?

[LilLoco]

game_Racer, Сделайте в цикле

Код:

Sleep(1000); // 1секунда

Так вы разгрузите процессор. Можно увеличить период засыпания цикла.

[Project1]

есть нормальный способ:

Код:

unit Unit1;

interface

uses
  WordXP,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs; 

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure WordApplicationDocumentBeforeClose(ASender: TObject;
      const Doc: _Document; var Cancel: WordBool);
  private
    { Private declarations }
    WordApplication1: TWordApplication;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  WordApplication1:=TWordApplication.Create(Self);
  WordApplication1.Visible:=True;
  WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  WordApplication1.OnDocumentBeforeClose:=WordApplicationDocumentBeforeClose;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  WordApplication1.Quit;
  WordApplication1.Free;
end;

procedure TForm1.WordApplicationDocumentBeforeClose(ASender: TObject;
  const Doc: _Document; var Cancel: WordBool);
begin
  ShowMessage('WordApplicationDocumentBeforeClose');
end;

end.