• Авторизация


OpenOffice.org Writer и шаблоны в Delphi 15-12-2007 11:45 к комментариям - к полной версии - понравилось!


Хотел бы написать, как открыть шаблон и заменить там строки. При незначительных модификациях можно пробразовать в систему с шаблонами

//Открываем OpenOffice.org writer
        ServiceManager := CreateOleObject('com.sun.star.ServiceManager');
        MainWordApp := ServiceManager.createInstance('com.sun.star.frame.Desktop');
        MainDoc := MainWordApp.LoadComponentFromURL('file:///'+Template,'_blank',0,VarArrayCreate([0, - 1], varVariant));
//замена - элементарная
       oReplace := MainDoc.createReplaceDescriptor;
       oReplace.SearchString:=searchStr;
       oReplace.ReplaceString:=replaceStr;
       oReplace.SearchRegularExpression:=false;
       MainDoc.replaceAll(oReplace);

Все переменные, естественно типа Variant
вверх^ к полной версии понравилось! в evernote


Вы сейчас не можете прокомментировать это сообщение.

Дневник OpenOffice.org Writer и шаблоны в Delphi | Бляндер - Ничто на свете не проходит бесследно... | Лента друзей Бляндер / Полная версия Добавить в друзья Страницы: раньше»