Поиск и замена текста в OpenOffice

[demiancz]

Стоит такая задача:
1. Нужно подключиться к открытому на данный момент документу (в OpenOffice Writer)
2. В открытом документе нужно найти определенные слова (Например Ф.И.О, Адрес, индекс и т.д.)
3. Открыть шаблон документа (Например Почтовый конверт)
4. Вставить в шаблон то что вытащили из документа к которому подключались

Для Word я все сделал, Но столкнулся с проблемой того, что у половины пользователей стоит OpenOffice потому нужно как-то решать задачу.

С подключением к открытому в Word документу нет никаких проблем:

wdApp := GetActiveOleObject('Word.Application');

а вот в OpenOffice такой финт не проходит:

wdApp := GetActiveOleObject('com.sun.star.ServiceManager');

Выдает:
First chance exception at $7C812AFB. Exception class EOleSysError with message 'Операция недоступна'. Process Dogovor.exe (4024)

Подскажите пожалуйста как мне решить задачу.
Если проще, то как получить данные из открытого документа на данный момент и записать их в нужный, заготовленный зарание шаблон.

[Stilet]

Выдает:

Именно на этой строке?
Проведи поиск в реестре по строке com.sun.star.ServiceManager - найдет ли хоть одну ветку с классом?

[demiancz]

Да такая строка в реестре есть.

[Stilet]

Ну а падение происходит именно на той строке. что ты выложил?

[demiancz]

Падение происходит в System.Win.ComObj в

procedure OleError(ErrorCode: HResult);
begin
  raise EOleSysError.Create('', ErrorCode, 0);
end;

[demiancz]

Нашел пример как создать новый докумен в OpenOffice

procedure TForm1.Button2Click(Sender: TObject);
var
StarOffice, StarDesktop, Document: variant;
begin
StarOffice:=CreateOleObject('com.sun.star.ServiceManager');
StarDesktop := StarOffice.createInstance('com.sun.star.frame.Desktop');
Document := StarDesktop.LoadComponentFromURL('private:factory/swriter', '_blank', 0, VarArrayCreate([0, -1], varVariant));
end;

При нажатии на кнопку создается новый документ. Все работает. А вот как подключиться к уже открытому - не знаю.

[Stilet]

как подключиться к уже открытому

CreateOleObject заменяется на GetActiveOleObject

[demiancz]

Так я и меняю. И выскакивает та ошибка, которая описана выше.

[Stilet]

Хм... Тогда не скажу.

[demiancz]

Нашел вариант как открыть шаблон:

procedure TForm1.Button1Click(Sender: TObject);
begin
// Открытие шаблона
  StarOffice:=CreateOleObject('com.sun.star.ServiceManager');
  StarDesktop:=StarOffice.CreateInstance('com.sun.star.frame.Desktop');
  Document:=StarDesktop.LoadComponentFromURL('file:///'+ExtractFilePath(paramstr(0))+'/dogovor1.doc','_blank',0,VarArrayCreate([0,-1],varVariant));
end;

С подключение к открытому документу проблема остается, так как этот документ не сохранен и имени его я не знаю (оно постоянно изменяется).