Имя: Пароль:
1C
1С v8
Выгрузка из 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);
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой