Работа 1С с шаблоном OpenOffice.org

В последнее время все пытаются уйти от нелегального софта, в том числе от полюбившегося всеми МС Офис от компании Майкрософт. Некоторые решают перейти на бесплатный, например OpenOffice.org.

Вот для этого и была написана данная обработка-пример.

Код:

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);

Попытка
FileNameSh = СокрЛП(ПутьКФайлу);
URL = СтрЗаменить(FileNameSh," ","%20");
URL = СтрЗаменить(URL,"\","/");
URL ="file://localhost/" + URL;

OpenOffice = Desktop.LoadComponentFromURL(URL, "_blank", 0, Args);

Исключение
Сообщить("Ошибка при попытке создать объект ", СтатусСообщения.Внимание);
Возврат;
КонецПопытки;

Replace =OpenOffice.CreateReplaceDescriptor();

Для Каждого СтрокаТЧ Из ТабличноеПоле Цикл
Replace.SearchString = "["+СтрокаТЧ.Параметр+"]";
Replace.ReplaceString = СтрокаТЧ.Значение;
OpenOffice.ReplaceAll(Replace);
КонецЦикла;