Здравствуйте! Есть такая проблема, есть много документов, которые формируются через Word (Word.Application), но сейчас это все надо перевести на openoffice .Есть, что-то подобное (Word.Application).А конкретнее мне нужно открыть документ и подставить значение (Find.Execute) и сохранить его.На Excel есть , а на Word не могу.Заранее благодарен

openoffice  может открыть вордовский 97-2003  документ  без проблем

и .docx без проблем
или что-то я не понял в чем проблема.

Пример вывода в документ данных в openoffice

Replace.SearchString  ="{Договор}";
Replace.ReplaceString = СокрЛП(Договор.НомерДоговора);
ТекстовыйПроцессор.ReplaceAll(Replace);

(1) У меня есть документ в формате docx.
Надо открыть этот файл и сделать замену в нем.
Замена.Execute("Contoso", Ложь, Истина, Ложь, , , Истина, , Ложь, НаименованиеКонтрагента,2);

Попытка
        ОбъектОО = Новый COMОбъект("com.sun.star.ServiceManager");
    Исключение
        Предупреждение("Невозможно загрузить OpenOffice.org !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка");
        Возврат;
    КонецПопытки;
    ИмяФайла = КаталогВременныхФайлов()+"Документы.docx";
    Макет = ПолучитьМакет("Макет");
    Макет.Записать(ИмяФайла);

Кальше нужно открыть его для изменений в 1с. Как это сделать?

(3) спасибо разобрался.

Если кому-то нужно вот код как поиск и замену сделать из openoffice


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

(7) Интересный код. Спасибо.