Добрый вечер.

Подскажите пож, как сформировать печатную форму в OpenOffice, если макет записан как двоичные данные во внешнюю печатную форму.

Создание объекта OpenOffice сделал
        Попытка
            ServiceManager = Новый COMОбъект("com.sun.star.ServiceManager");
            Reflection = ServiceManager.createInstance("com.sun.star.reflection.CoreReflection");
            Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");
            Broadcaster = ServiceManager.createInstance("com.sun.star.frame.GlobalEventBroadcaster");
        Исключение
            Сообщить(ОписаниеОшибки(),"!");
        КонецПопытки;


Теперь надо открыть в нем шаблон и сделать замены, допустим #ДокументНомер#, на настоящее значение.

Прошу помощи.

Открыть БСП и посмотреть, как сделано там.

(1) Открыть БСП - не совсем понял, что такое БСП?

(2) http://v8.1c.ru/libraries/ssl/index.htm

(2) Что такое БСП - стаж 9 лет.

(4)
- век живи, век учись
- посмотрел то, что там написано.

Но возможно надо было мне сказать, что речь идет о
Управление производственным предприятием, редакция 1.2 (1.2.19.1) на 1С:Предприятие 8.1 (8.1.15.14)

(5) < надо было мне сказать, что речь идет о >
хорошо хоть не о ПУБ 7.7 и не на 10 странице темы :))

Сам макет договора зашит как active document в саму обработку,  и в Worde нормально открывается. А для Опен Офис так не пройдет, поэтому макет занес через бинарные данные. А вот как дальше можно сделать?

(7) Так же, как и в БСП или в гугле ищи.

(8) да я и в БСП ничего не нашел :(..

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);
    
    // Откроем шаблон
    
    ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ПреобразоватьВURL(ИмяФайла), "_blank", 0, Args);
    
    // Заменяем ключевые поля на нужные значения

                            
    Replace = ТекстовыйПроцессор.CreateReplaceDescriptor();
    
    Для Каждого Стр из ТаблицаЗамен Цикл        
        Replace.SearchString  = Стр.Что;
        Replace.ReplaceString = Стр.Чем;        
        ТекстовыйПроцессор.ReplaceAll(Replace);
        
    КонецЦикла;

(10) спасибо...
ПреобразоватьВURL(ИмяФайла) - путь к файлу преобразуется, что бы опен офис понял?

(11) ага, именно
// Функция преобразует Windows имя файла в URL OpenOffice                      
Функция ПреобразоватьВURL(ИмяФайла)  
    
    Возврат "file:///" + СтрЗаменить(ИмяФайла, "\", "/");
    
КонецФункции

(12) ясно, а если макет занес через бинарные данные, то я сначала сохраняю его во временном каталоге например, а затем читаю и заменяю в нем.

спасибо.

(12) а как бороться:

{ВнешняяОбработка.ПечатьДоговораНаОборудование_Word(804)}: Ошибка при вызове метода контекста (LoadComponentFromURL): Произошла исключительная ситуация ([automation bridge] ): com.sun.star.lang.IllegalArgumentException: Unsupported URL <file://C:/Users/TS_BRK_Zharikov/AppData/Local/Temp/2/v8_1402_f6.odt>: "type detection failed"
        ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ПреобразоватьВURL(ИмяВременногоФайла), "_blank", 0, Args);
по причине:
Произошла исключительная ситуация ([automation bridge] ): com.sun.star.lang.IllegalArgumentException: Unsupported URL <file://C:/Users/TS_BRK_Zharikov/AppData/Local/Temp/2/v8_1402_f6.odt>: "type detection failed"




я сделал
        ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
        ИмяВременногоФайла = СтрЗаменить(ИмяВременногоФайла, "tmp", "odt");
        
        Макет = ПолучитьМакет("Макет");
        Макет.Записать(ИмяВременногоФайла);

а затем
ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ПреобразоватьВURL(ИмяВременногоФайла), "_blank", 0, Args);

и вот ошибка

(14) это хихи:ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
ИмяВременногоФайла = СтрЗаменить(ИмяВременногоФайла, "tmp", "odt");
ктрл+F1 на ПолучитьИмяВременногоФайла нажмите

(15) прочитал, что можно сделать вот так
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("odt");

но ошибка от этого все равно не ушла, то есть ругается на
ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ПреобразоватьВURL(ИмяВременногоФайла), "_blank", 0, Args);

хотя ПреобразоватьВURL(ИмяВременногоФайла) возвращает

"file://C:/Users/Ivanov/AppData/Local/Temp/2/v8_D817_7d.odt"

(16) может че-то с правами не так? не временный файл читается?

(17) с правами все нормально, сделал так

функция ПреобразоватьВURL(FileName)
    __ = СтрЗаменить(FileName, " ", "%20");
    __ = СтрЗаменить(__, "\", "/");
    
    Возврат "file:/" + "/localhost/" + __;
КонецФункции


В итоге отчет сформировался как надо. Вроде пока все. Спасибо всем!!!

(18) "Однако!"(с) :)