Здравствуйте, mikmaslov, Вы писали:

M>>Возникла необходимость определить список открытых документов Word и Excel.
M>>В конце концов это нужно будет сделать в сервисе.
M>>Какие есть соображения?

M>Никто ничего посоветовать не может?

Прямо из сервиса это будет AFAIK тяжело. Если вообще возможно. IMHO тупиковый путь, я бы забил.
А из программы запущенной под пользователем все вроде должно быть элементарно..

Set app = GetObject(, "Word.Application")
Set word_docs = app.Documents

Сделать программу запущенную под пользователем можно добавив ее в автозапуск например.
Или сделав ее плагином к ворду/экселю.

Если хотите сервис то можно заставить эту (запущенную под пользователем) программу
сообщать нужные данные вашему сервису.