Выгрузка из 1С в шаблон LibreOffice
☑
0
Smit1C
10.07.12
✎
11:36
Поделитесь, пожалуйста, примеров выгрузки данных в документ LibreOffice Writer.
Необходимо заменить параметры в документе LibreOffice и затем открыть документ.
1
Smit1C
10.07.12
✎
12:17
Вот пока что нарыл:
ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
Scr =Новый COMОбъект("MSScriptControl.ScriptControl");
Scr.Language="javascript";
Scr.Eval("Args=new Array()");
Args = Scr.Eval("Args");
Scr.AddObject("ServiceManager", ServiceManager);
ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ConvertToURL("D:\User\MAM\bdog.odt"), "_blank", 0, Args);
Replace = ТекстовыйПроцессор.CreateReplaceDescriptor();
Replace.SearchString = "{НомерДог}";
Replace.ReplaceString = "111111111111111111";
ТекстовыйПроцессор.ReplaceAll(Replace);
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.