1с и OpenOffice Writer

Так пойдет ?

 
Функция СоздатьОбъект(Стр="")
 
    Возврат Новый COMОбъект(Стр);
 
КонецФункции
 

 
//*******************************************
 
Функция ПолучитьОбертку()
 
    ХТМЛ = СоздатьОбъект("htmlfile");
 
    ХТМЛ.Open("text/html");
 
    //<-- Подготовим нужные методы
 
    ХТМЛ.Write("<script type='text/javascript'>
 
    |var ХТМЛ;
 
    |ПолучитьЗначение=function(x,y){return x.constructor == Array ? x[y] : x};
 
    |УстановитьЗначение=function(x,y,z){x[y]=z};
 
    |РазмерМассива=function(x){return x.length};
 
    |УстановитьБулево=function(x){x.Value=Boolean(x.Value)};
 
    |Массив=function(){return new Array()};
 
    |</script>");
 
    Док=ХТМЛ.documentElement.document;
 
    // Внедрение объекта Скрипта в самого себя, для сохранности контекста
 
    Док.script.ХТМЛ=ХТМЛ;
 
    // Все подготовке -->
 
    Возврат Док.script;
 
КонецФункции    // ПолучитьОбертку(Это)
 

 
Функция ОпенОфис(Файл="")
 
    Перем Параметр;
 
    Это=ПолучитьОбертку();
 
    //УРЛ="file:///"+Это.encodeURI(СтрЗаменить(Файл,"\","/"));
 
    СервисМанагер=СоздатьОбъект("com.sun.star.ServiceManager");
 
    Обновлялка=СервисМанагер.createInstance("com.sun.star.reflection.CoreReflection");
 
    Проводник=СервисМанагер.createInstance("com.sun.star.ucb.FileContentProvider");
 
    УРЛ=Проводник.getFileURLFromSystemPath("",Файл);
 
    Сообщить(УРЛ);
 
    Массив=Это.Массив(0);
 
    Параметр=Это.Массив(0);
 
    Для Сч=0 По 1 Цикл
 
        Обновлялка.forName("com.sun.star.beans.PropertyValue").createObject(Параметр);
 
        Это.УстановитьЗначение(Массив,Сч,Это.ПолучитьЗначение(Параметр,0));
 
    КонецЦикла;
 
    
 
    Параметр=Это.ПолучитьЗначение(Массив,0);
 
    Параметр.Name="Hidden";
 
    Параметр.Value=0; //Если 0 или любое пустое значение то Ложь, иначе Истина
 
    Это.УстановитьБулево(Параметр);
 
    
 
    Параметр=Это.ПолучитьЗначение(Массив,1);
 
    Параметр.Name="Password";
 
    Параметр.Value="123";
 

 
    Для Сч=0 По Это.РазмерМассива(Массив)-1 Цикл
 
        Сообщить(Это.ПолучитьЗначение(Массив,Сч).Name);
 
        Сообщить(Это.ПолучитьЗначение(Массив,Сч).Value);
 
    КонецЦикла;
 
    
 
    Десктоп = СервисМанагер.createInstance("com.sun.star.frame.Desktop");
 
    //Док = Десктоп.LoadComponentFromURL("private:factory/scalc", "_blank", 0, Массив );
 
    Док = Десктоп.LoadComponentFromURL(УРЛ, "_blank", 0, Массив );
 
    ИмяЗакладки="Закладка1";
 
    Текст=Док.getText();
 
    Контроллер=Док.CurrentController;
 
    Курсор=Контроллер.getViewCursor();
 
    Закладки=Док.getBookmarks();
 
    Попытка
 
        Закладка=Закладки.getByName(ИмяЗакладки);
 
    Исключение
 
        Сообщить("Фигня какая то с закладкой """+ИмяЗакладки+"""!!!");
 
        Возврат(1);
 
    КонецПопытки;
 
    Якорь=Закладка.getAnchor();
 
    Курсор.gotoRange(Якорь, 0);
 
    Текст.insertString(Курсор, "Тут была закладка """+ИмяЗакладки+"""", 0 );
 
    
 
    Перейти ~М1;
 
    Листы=Док.getSheets();
 
    Лист=Листы.getByIndex(0);
 
    Курсор=Лист.createCursor();
 
    Курсор.gotoStartOfUsedArea(0);
 
    Курсор.gotoEndOfUsedArea(-1);
 
    Адреса=Курсор.getRangeAddress();
 
    Диапазон=Лист.getCellRangeByPosition(Адреса.StartColumn,Адреса.StartRow,Адреса.EndColumn,Адреса.EndRow);
 
    Поиск=Диапазон.createSearchDescriptor();
 
    Поиск.SearchRegularExpression = -1;
 
    Поиск.SearchString = ".+";
 
    Рез=Диапазон.findAll(Поиск);
 
    Всего=Рез.getCount();
 
    Начало=Рез.getByIndex(0).getRangeAddress();
 
    Конец=Рез.getByIndex(Всего-1).getRangeAddress();
 
    ДиапазонДанных=Диапазон.getSpreadsheet().getCellRangeByPosition(Начало.StartColumn, Начало.StartRow,Конец.EndColumn,Конец.EndRow);
 
    Для С=1 По ДиапазонДанных.getRows().getCount() Цикл
 
        Стр="";
 
        Для К=1 По ДиапазонДанных.getColumns().getCount() Цикл
 
            Стр=Стр+"; "+ДиапазонДанных.getCellByPosition(К-1,С-1).getText().String();
 
        КонецЦикла;
 
        Сообщить(Стр);
 
    КонецЦикла;
 
~М1:
 
    Массив=Это.Массив(0);
 
    Обновлялка.forName("com.sun.star.beans.PropertyValue").createObject(Параметр);
 
    Это.УстановитьЗначение(Массив,0,Это.ПолучитьЗначение(Параметр,0));
 
    
 
    Параметр.Name="Wait";
 
    Параметр.Value=-1;//Если 0 или любое пустое значение то Ложь, иначе Истина
 
    Это.УстановитьБулево(Параметр);
 
    Для Сч=0 По Это.РазмерМассива(Массив)-1 Цикл
 
        Сообщить(Это.ПолучитьЗначение(Массив,Сч).Name);
 
        Сообщить(Это.ПолучитьЗначение(Массив,Сч).Value);
 
    КонецЦикла;
 
    Док.Print(Массив);
 
    //Предупреждение("Печать ?");
 
    Док.Close(-1);
 
    //Десктоп.Terminate();
 
    //createSearchDescriptor
 
КонецФункции
 

 
//*******************************************
 
Процедура Сформировать()
 
    Перем Имя,Путь;
 
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
 
    Диалог.Заголовок = "Выберите файл";
 
    Диалог.ПолноеИмяФайла = "";
 
    Диалог.ПредварительныйПросмотр = Истина;
 
    Диалог.Фильтр = "Файлы офиса|*.ods;*.xls;*.odt;*.doc";
 
    Если Не Диалог.Выбрать() Тогда
 
        Возврат;
 
    КонецЕсли;
 
    ОпенОфис(Диалог.ПолноеИмяФайла);
 
КонецПроцедуры
 

 

 
Процедура КнопкаВыполнитьНажатие(Кнопка)
 
    Сформировать();
 
    // Вставить содержимое обработчика.
 
КонецПроцедуры