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

[Aliens_wolfs]

Какой вариант заработал?

[a_n_n_a]

Решила больше не заморачиваться и оставить вариант с Word := GetActiveOleObject( 'Word.Application' );

[a_n_n_a]

А если открыто несколько документов, эта проверка срабатывает только для первого, а на остальные открытые док-ты не раегирует...
я так поняла это отвечает за кол-во документов?

for i := 1 to Word.Documents.Count do

Но что-то у меня всегда Word.Documents.Count=1...

[Aliens_wolfs]

Без Word := GetActiveOleObject('Word.Applicatio n'); необойтись

Измененный код закрывает все документы

//Функция для проверки открыты ли документ если да то закрываем
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
      Word.Documents.Item(i).close;
        result:= true;
      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]);
 //Проверяем открыт ли документ.
 ViewDoc(doc);
Word.ActiveDocument.SaveAs(Doc);
end;

У себя проверил работает, а то я так чисто логически писал коды

[a_n_n_a]

Спасибо, Aliens_wolfs) что-то манудрила, налипила и заработало)))
Надеюсь, больше ничего не вылезет)

[Aliens_wolfs]

Понятно.

Измененный код закрывает все документы

Если этот код, пробуйте