Поиск документа

[bvr]

Добрый вечер

В массиве хранится перечень имен файлов открытых документов, полученный

DocumentParam par;
t = GetObjParam(rDocument, &par, sizeof(par), ALLPARAM);
t=pComboBox->AddString(_bstr_t(par.fileName));   

Вопрос в следующем, как по par.fileName перейти (сделать активным) документ?
Какие возможны варианты решения проблемы?

Спасибо

[Slaviation]

как по par.fileName перейти (сделать активным) документ?

Если на старте на руках имеем только массив имен файлов открытых документов и больше ничего, то нужно итератором бежать по всем открытым документам, получить интерфейс документа, который необходимо сделать активным (по имени его файла) и далее:
var
inActiveFlag: Integer;
....
begin
...
inActiveFlag := stACTIVE;
rDocument.ksSetObjParam(rDocument2D.reference,  IDispatch(inActiveFlag), DOCUMENT_STATE);
...