La siguiente rutina lista los documentos abiertos de Word en un ListBox:
Código Delphi
[-]
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