Проверить открыт ли документ Word

[Aliens_wolfs]

В общем пусть напишет, как открывает или создает документ и какая версия Word используется, а то может уже использует TWordApplication тогда все гораздо проще, а еще лучше пусть часть кода покажет.

[a_n_n_a]

У меня Word 2007, но сохраняю все в формате 2003.
А вообще ситуация такая: вот создает пользователь док-т №1111-А_Акт Toyota Mark II_Акт осмотра, который автоматом сразу сохраняется под таким именем.
Но были ситуации, когда пользователь, создав этот документ, его не закрыл, но решил напечатать точно такой же, т.е. с таким же именем.
Вот мое сохранение и ругается, что не пожет сохранить док-т, т.к он используется.
Я хотела исключить такую ситуацию, и проверить не открыт ли док-т, и предупредить пользователя.

Word:= CreateOleObject('Word.Application') ;
Word.Visible:= True;
k:=ExtractFilePath(Paramstr(0));
Word.Documents.Open(k+'Шаблоны\'+'A kt_2');
PutToWrd('СтранаИзг', Form4.dbEdit71.Text);
PutToWrd('ГодВып', Form4.dbEdit72.Text);
PutToWrd('цвет', Form4.dbEdit75.Text);
PutToWrd('Кузов', Form4.dbEdit73.Text);
Word.ActiveDocument.SaveAs(k+'Задан ия и договоры\'+'№'+DBEdit2.Text+DBEdit1 43.Text+'_'+DBEdit69.Text+' '+DBEdit70.Text+'_Акт осмотра');

[Sibedir]

Но были ситуации, когда пользователь, создав этот документ, его не закрыл, но решил напечатать точно такой же, т.е. с таким же именем.

Что, прям файл с точно таким же именем и в той же папке? Бред. Просто разграничте права на доступ к папке. Если программа создает документ, то делает это с правами "админ", а если пользователь, то папка "только для чтения" или вообще скрыта. А проще навести порядок с папками и не иметь таких проблем вовсе. Что пользователю делать в папке, в которую сохраняет программама?

[a_n_n_a]

Так программа сохраняет док-ты для пользователя, предполагается, что из нее он будет перемещать док-т, как ему угодно.
А имя точно такое же, т.к. есть заказ с номером и маркой авто, эти данные заносятся в имя файла, папка для сохранения тоже одна и та же всегда. У одного заказа имя файла не будет менятся.

[Sibedir]

Да я не пойму зачем создавать файл с именем, которое уже есть. Что, другой заказ с тем же номером и авто что-ли? Зачем вообще пользователю вручную создавать файл, который может создать программа? Или зачем программно создавать файл, если его уже вручную создали?
ППниПП:
Это всеравно что наливать воду в стакан из под куллера, в который уже налили ее из под крана.

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

---------------------------------
Или на худой конец добавляйте к имени дату и время создания

[Aliens_wolfs]

У вас папка общая для сохранения документов и она находится на вашем компьютере, и эта программа на Delphi только у вас или все ее пользуются по сети?

Еще можно пойти таким путем

//Проверить на занятость файла

function ApplicationUse(fName: string): boolean;
var
  HFileRes: HFILE;
begin
  HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE, 0, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then CloseHandle(HFileRes);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Word: OleVariant;
k: string;
Doc: string;
begin
//Ваш код
Word:= CreateOleObject('Word.Application') ;
Word.Visible:= True;
k:=ExtractFilePath(Paramstr(0));
Word.Documents.Open( Format('%sШаблоны\A kt_2', [k]) );
PutToWrd('СтранаИзг', Form4.dbEdit71.Text);
PutToWrd('ГодВып', Form4.dbEdit72.Text);
PutToWrd('цвет', Form4.dbEdit75.Text);
PutToWrd('Кузов', Form4.dbEdit73.Text); 
// Название Вашего документа
Doc := format('%sЗадания и договоры\№%s%s_%s %s_Акт осмотра',[k, DBEdit2.Text,
DBEdit143.Text, DBEdit69.Text, DBEdit70.Text]);
//Проверяем открыт ли документ, если да, то закрываем его, если нет, то сохроняем
if ApplicationUse(doc + '.doc') then then
Word.ActiveDocument.close
else
Word.ActiveDocument.SaveAs(Doc);
end;

[Aliens_wolfs]

А можно и так

//Функция для проверки открыт ли документ
function ViewDoc(Doc: string): boolean;
var
  i: Integer;
  Word: OleVariant;
begin
result:= false;
  try
    Word := GetActiveOleObject( 'Word.Application' );
      for i := 1 to Word.Documents.Count do
     //Проверяем какой документ открыт
       if pos(AnsiLowerCase(Doc), AnsiLowerCase(Word.Documents.Item(i).Name))<>0 then begin
        result:= true;
       break;
      end;
  except
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Word: OleVariant;
k: string;
Doc: string;
begin
//Ваш код
Word:= CreateOleObject('Word.Application') ;
Word.Visible:= True;
k:=ExtractFilePath(Paramstr(0));
Word.Documents.Open( Format('%sШаблоны\A kt_2', [k]) );
PutToWrd('СтранаИзг', Form4.dbEdit71.Text);
PutToWrd('ГодВып', Form4.dbEdit72.Text);
PutToWrd('цвет', Form4.dbEdit75.Text);
PutToWrd('Кузов', Form4.dbEdit73.Text); 
// Название Вашего документа
Doc := format('%sЗадания и договоры\№%s%s_%s %s_Акт осмотра',[k, DBEdit2.Text,
 DBEdit143.Text, DBEdit69.Text, DBEdit70.Text]);
 //Проверяем открыт ли документ, если да, то закрываем его, если нет, то сохроняем
 if ViewDoc(doc) then
 Word.ActiveDocument.close
 else
Word.ActiveDocument.SaveAs(Doc);
end;

[a_n_n_a]

Aliens_wolfs, спасибо, получилось))
Только, когда документ не открыт, при его составлени появляется ошибка: 'Операция недоступна', ругается на строку

Word := GetActiveOleObject( 'Word.Application' );

[Aliens_wolfs]

Когда не с проекта а с EXE запустите ошибки не будет, там перехватчик ошибки работает в функции ViewDoc except в проекте будет без проекта нет. Либо выше код попробуйте с ApplicationUse

Еще можно так попробовать без Word := GetActiveOleObject( 'Word.Application' );
а общий Word: OleVariant;

//общий
var
Word: OleVariant;
  Form1: TForm1;

implementation

{$R *.dfm}

//Функция для проверки открыт ли документ
function ViewDoc(Doc: string): boolean;
var
  i: Integer;
begin
result:= false;
      for i := 1 to Word.Documents.Count do
     //Проверяем какой документ открыт
       if pos(AnsiLowerCase(Doc), AnsiLowerCase(Word.Documents.Item(i).Name))<>0 then begin
        result:= true;
       break;
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
k: string;
Doc: string;
begin
//Ваш код
Word:= CreateOleObject('Word.Application') ;
Word.Visible:= True;
k:=ExtractFilePath(Paramstr(0));
Word.Documents.Open( Format('%sШаблоны\A kt_2', [k]) );
PutToWrd('СтранаИзг', Form4.dbEdit71.Text);
PutToWrd('ГодВып', Form4.dbEdit72.Text);
PutToWrd('цвет', Form4.dbEdit75.Text);
PutToWrd('Кузов', Form4.dbEdit73.Text); 
// Название Вашего документа
Doc := format('%sЗадания и договоры\№%s%s_%s %s_Акт осмотра',[k, DBEdit2.Text,
 DBEdit143.Text, DBEdit69.Text, DBEdit70.Text]);
 //Проверяем открыт ли документ, если да, то закрываем его, если нет, то сохроняем
 if ViewDoc(doc) then
 Word.ActiveDocument.close
 else
Word.ActiveDocument.SaveAs(Doc);
end;

[a_n_n_a]

Все работает))))) Спасибо всем большущие!!!))))