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