[roman]

La siguiente rutina lista los documentos abiertos de Word en un ListBox:

Código Delphi [-]
(*
  WordApp - componente TWordApplication
  lbDocs - ListBox
*)

var
  OleI: OleVariant;
  I: Integer;

begin
  lbDocs.Clear;
  for I := 1 to WordApp.Documents.Count do
  begin
    OleI := I;
    lbDocs.Items.Add(WordApp.Documents.Item(OleI).Name);
  end;
end;

de aquí ya sólo tienes que revisar si el dcumento está en la lista o no.

// Saludos