Люди добрые, помогите, пожалуйста решить проблему. Клиент-серверный вариант базы:

&НаКлиенте
Процедура ок(Команда)
    //Попытка создать COM объект
    Попытка
        ОбъектВорд = Новый COMОбъект("Word.Application");
    Исключение
        Сообщить("Ошибка при запуске Microsoft Word: " + ОписаниеОшибки(), СтатусСообщения.Внимание);
        Возврат;
    КонецПопытки;
    
    // Получим шаблон документа из макета объекта на сервере и активируем его
    ИмяФайлаШаблона = ПолучитьИмяВременногоФайла(".dot");
    ПолучитьМакетСервер().Записать(ИмяФайлаШаблона);
    ОбъектВорд.Documents.Add(ИмяФайлаШаблона);
    ШаблонВорд = ОбъектВорд.ActiveDocument;
    
    
            Замена = ШаблонВорд.Content.Find;
            Замена.Execute("<Параметр>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь, "ПОЛУЧИЛОСЬ!", 2);
    

    
    //После заполнения шаблона сделаем его видимым и активным для пользователя
    ОбъектВорд.Application.Visible = Истина;
    ОбъектВорд.Activate();

    
КонецПроцедуры

&НаСервере
Функция ПолучитьМакетСервер()
    ЭтотОбъектФ = РеквизитФормыВЗначение("Объект");
    Макет = ЭтотОбъектФ.ПолучитьМакет("Макет");
    Возврат Макет;
КонецФункции


Ошибка:

{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(14)}: Ошибка при вызове метода контекста (ПолучитьМакетСервер)
    ПолучитьМакетСервер().Записать(ИмяФайлаШаблона);
по причине:
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'ret':
    форма: Элемент
    имя: {http://v8.1c.ru/8.2/managed-application/modules}ret
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа 'ОболочкаActiveDocument'


Обчитался форумов, говорят так сделать можно, а нельзя почему-то (((

(0) Не бросайте в беде :-)

(1) Вы держитесь! Счастья, здоровья...
Попробуй через хранилище.

записывай на сервере - на клиенте получай готовый файл

(2) Пробовал

&НаКлиенте
Процедура ок(Команда)
    //Попытка создать COM объект
    Попытка
        ОбъектВорд = Новый COMОбъект("Word.Application");
    Исключение
        Сообщить("Ошибка при запуске Microsoft Word: " + ОписаниеОшибки(), СтатусСообщения.Внимание);
        Возврат;
    КонецПопытки;
    
    // Получим шаблон документа из макета объекта на сервере и активируем его
    Файл = ПолучитьИзВременногоХранилища(ПолучитьМакетСервер());

    Файл.Documents.Add();
    ШаблонВорд = Файл.ActiveDocument;
    
    
            Замена = ШаблонВорд.Content.Find;
            Замена.Execute("<Параметр>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь, "ПОЛУЧИЛОСЬ!", 2);
    

    
    //После заполнения шаблона сделаем его видимым и активным для пользователя
    ОбъектВорд.Application.Visible = Истина;
    ОбъектВорд.Activate();

    
КонецПроцедуры

&НаСервере
Функция ПолучитьМакетСервер()
    Файл = РеквизитФормыВЗначение("Объект").ПолучитьМакет("Макет");  //двоичный макет
    АдресФайлаВХранилище = ПоместитьВоВременноеХранилище(Файл);
    Возврат АдресФайлаВХранилище;
КонецФункции

(3) И при этом он будет сохраняться на машине сервера?

в хранилище не влезет макет ворд

как передать на клиент
https://gist.github.com/a-sitnikov/979033242fd6f9b833164669b651b5f2

(7) Я очень извиняюсь за свою тугодумость, но нльзя ли показать на моем примере, а то что то додумкать не выходит :-)

(8) В твоем случае либо все на сервере делать, либо избавиться от макета

(9) На сервере не вариант (клиент-серверная база, не файловая) открыть то нужно на клиенте. Да и от макета избавлять, в чем смысл всего этого тогда будет :-)

(10) Заполнять ручками, не из макета "ОболочкаActiveDocument"

(10) после ПолучитьФайлы() пишешь весь свой код из процедуры

(7) Скажи, пожалуйста, что там по ссылке, у меня всё закрыто.
(4) Тогда как костыльный костыль: Сделай бинарные данные, засунь их в хранилище значения, хранилище значения сериализуй в строку ХМЛ, строку передай на клиента и на клиенте всё в обратно порядке.

&НаКлиенте
Процедура ок(Команда)
    Адрес = ФормированиеДоговораПоШаблону();  
    ВремФайл = КаталогВременныхФайлов() + "Договор.doc";

      
        ЗапуститьПриложение(КаталогВременныхФайлов()+"Договор.doc");
              
    

    
КонецПроцедуры

&НаСервере
Функция ПолучитьМакетСервер(ИмяМакета)
    Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет(ИмяМакета);  //двоичный макет
    Возврат Макет;
КонецФункции

&НаСервере
Функция ФормированиеДоговораПоШаблону()
    ИмяМакета = "Макет";
    ВремФайл = ПолучитьИмяВременногоФайла("doc");
    АктивныйДокумент = ПолучитьМакетСервер(ИмяМакета);
    АктивныйДокумент.Записать(ВремФайл);
    ИмяВременногоФайла = КаталогВременныхФайлов()+"Договор.doc";  
  
    Попытка
        КомОбъект = ПолучитьCOMОбъект(ВремФайл);
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;
      
    Документ = КомОбъект.Application.Documents(1);

            Замена = Документ.Content.Find;
            Замена.Execute("<Параметр>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь, "ПОЛУЧИЛОСЬ!", 2);

      
        Документ.SaveAs(ВремФайл);
        Документ.SaveAs(ИмяВременногоФайла);
        КомОбъект.Application.Quit();
        КомОбъект = Неопределено;
  
        Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ВремФайл));
        УдалитьФайлы(ВремФайл);
  
        Возврат Адрес;

КонецФункции


Это вроде то что вы говорите, но выходит

[Window Title]
C:\Users\ITMAN3\AppData\Local\Temp\Договор.doc

[Content]
Не удается найти "C:\Users\ITMAN3\AppData\Local\Temp\Договор.doc". Проверьте, правильно ли указано имя и повторите попытку.

[ОК]

Я так понимаю на сервере нужно поставить какуюто библиотеку(офиса там нет и нельзя). Помогите! :-)

(14) или я в принципе не туда помещаю?

(15) Я так понимаю, что помещаю во ременной хранилище на сервере, а нужно поместить на машине клиента?

(13) код как передать файл с сервера на клиент

(16) Скоро голова поедет)

(14) где у тебя на клиенте получение фала?

(19) &НаКлиенте
Процедура ок(Команда)
    Адрес = ФормированиеДоговораПоШаблону();  
    ВремФайл = КаталогВременныхФайлов() + "Договор.doc";

      
        ЗапуститьПриложение(КаталогВременныхФайлов()+"Договор.doc");
         ПолучитьФайл(Адрес, ВремФайл);      
    

    
КонецПроцедуры

&НаСервере
Функция ПолучитьМакетСервер(ИмяМакета)
    Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет(ИмяМакета);  //двоичный макет
    Возврат Макет;
КонецФункции

&НаСервере
Функция ФормированиеДоговораПоШаблону()
    ИмяМакета = "Макет";
    ВремФайл = ПолучитьИмяВременногоФайла("doc");
    АктивныйДокумент = ПолучитьМакетСервер(ИмяМакета);
    АктивныйДокумент.Записать(ВремФайл);
    ИмяВременногоФайла = КаталогВременныхФайлов()+"Договор.doc";  
  
    Попытка
        КомОбъект = ПолучитьCOMОбъект(ВремФайл);
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;
      
    Документ = КомОбъект.Application.Documents(1);

            Замена = Документ.Content.Find;
            Замена.Execute("<Параметр>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь, "ПОЛУЧИЛОСЬ!", 2);

      
        Документ.SaveAs(ВремФайл);
        Документ.SaveAs(ИмяВременногоФайла);
        КомОбъект.Application.Quit();
        КомОбъект = Неопределено;
  
        Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ВремФайл));
        УдалитьФайлы(ВремФайл);
  
        Возврат Адрес;

КонецФункции

(19) То же самое

(19) Ошибка та же имею ввиду

(19) Извиняюсь не та же :-)


{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(9)}: Ошибка при вызове метода контекста (ПолучитьФайл)
         ПолучитьФайл(Адрес, ВремФайл);      
по причине:
Недопустимое значение параметра (параметр номер '1')

(23) попробуй код из (7)

(24) Хорошо, сейчас

(24) Я видимо уже неимоверно туплю, но не могу понять как это написать под себя. Если сможете помочь буду крайне благодарен

(24) Вчитываюсь, но думалка не помогает :-(

ХЗ=Новый ХранилищеЗначения(ТвоеДобро, Новый СжатиеДанных(9));
СтрХМЛ=XMLСтрока(ХЗ);
СтрХМЛ передаешь на клиента и читаешь чтением хмл, пишешь во временный файл и т.д. и т.п.
Скопируй мне сюда код из (7).

(28) &НаКлиенте
Процедура Сохранить(Команда)
    
    Адрес = СохранитьНаСервере();
    Описание = Новый ОписаниеПередаваемогоФайла(Объект.ИмяФайла, Адрес);
    МассивОписаний = Новый Массив;
    МассивОписаний.Добавить(Описание);
    ПолучитьФайлы(МассивОписаний,,,Ложь);
    
    Состояние("Файл сохранен");

КонецПроцедуры

&НаСервере
Функция СохранитьНаСервере()
    
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
    
        //Заполнение файла;
    
    ДвоичныеДанные = Новый ДвоичныеДанные(ИмяВременногоФайла);
    Адрес = ПоместитьВоВременноеХранилище(ДвоичныеДанные, УникальныйИдентификатор);
    
    Возврат Адрес;
    
КонецФункции

Странно, почему мой код не работает, здесь утверждают, что все рабочее :-)
http://1c-pro.ru/threads/vneshnjaja-pechatnaja-forma-tonkij-klient-pechat-v-word.53865/

Видать никак мне не решить.
(28) не получается реализовать

&НаКлиенте
Процедура ок(Команда)
    Адрес = ФормированиеДоговораПоШаблону();
    Если Адрес = Неопределено Тогда
        Возврат;
    КонецЕсли;
  
    ВремФайл = КаталогВременныхФайлов() + "Договор.doc";

    
        ПолучитьФайл(Адрес, ВремФайл);
        ЗапуститьПриложение(КаталогВременныхФайлов()+"Договор.doc");
    
КонецПроцедуры

&НаСервере
Функция ПолучитьМакетСервер(ИмяМакета)

    Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет(ИмяМакета);
    Возврат Макет;

КонецФункции // ПолучитьМакетСервер(ИмяМакета)()


&НаСервере
Функция ФормированиеДоговораПоШаблону()
    ИмяМакета = "Макет";
    ВремФайл = ПолучитьИмяВременногоФайла("doc");
    АктивныйДокумент = ПолучитьМакетСервер(ИмяМакета);
    АктивныйДокумент.Записать(ВремФайл);
    ИмяВременногоФайла = КаталогВременныхФайлов()+"Договор.doc";  
  
    Попытка
        КомОбъект = ПолучитьCOMОбъект(ВремФайл);
    Исключение
        Сообщить(ОписаниеОшибки());
        Возврат Неопределено;
    КонецПопытки;
      
    Документ = КомОбъект.Application.Documents(1);

            Замена = Документ.Content.Find;
            Замена.Execute("<Параметр>", Ложь, Истина, Ложь, Ложь, , Истина, , Ложь, "ПОЛУЧИЛОСЬ!", 2);
        

      
        Документ.SaveAs(ВремФайл);
        Документ.SaveAs(ИмяВременногоФайла);
        КомОбъект.Application.Quit();
        КомОбъект = Неопределено;
  
        Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ВремФайл));
        УдалитьФайлы(ВремФайл);
  
        Возврат Адрес;

КонецФункции


Сделал вот такое, и казалось бы должно работать, но не тут то было:-)




{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(35)}: Ошибка при вызове метода контекста (ПолучитьCOMОбъект): Ошибка получения объекта COM: -2147221164(0x80040154): Класс не зарегистрирован

на сервере не стоит ворд

(32) Проделал вот это

1. Администрирование - Службы компонентов – Компьютеры – Мой компьютер – Приложения COM+ - Создать приложение – Создать новое приложение – вводим имя «V82.COMConnector»(переключатель «Серверное приложение») – Указанный пользователь (Администратор)
2. В появившейся ветке V82COMConnector – подветка Компоненты – создание нового компонента – Установка новых компонентов - <каталог 1С>\bin\comcntr.dll
3. Правой кнопкой по ветке V82COMConnector – Свойства – Безопасность – Снял галку «Принудительная проверка доступа для приложений» - Поставил галку «Применить политику программных ограничений» - Уровень ограничений «Неограниченный»

Ничему не помогло.
Помогите, пожалуйста, разобраться.

(33) А без установки ворда этого не проделать?
Лицензии лишней не дают :-)
Под оправданием "Он там ненужен"

(33) Если поставить ворд этот код будет рабочим? :-)

(36) Офис*

ты так и не отправил файл на клиент )))

(38) Да как? А как же?


ПолучитьФайл(Адрес, ВремФайл);
        ЗапуститьПриложение(КаталогВременныхФайлов()+"Договор.doc");

(38) Блин, подскажите, пожалуйста )

(38) Передаю во временное хранилище на сервере, потом достаю из него, что не так то?

(0) Конфа на БСП? В БСП все относительно просто и универсально  с этим. Если что пиши почту - кину ВПФ договора WORD c контрагентом для УТ 11.4.

Используйте макет с типом двоичные данные , не Active document.

А что это значит?:-)

{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(35)}: Ошибка при вызове метода контекста (ПолучитьCOMОбъект): Ошибка получения объекта COM: -2147221164(0x80040154): Класс не зарегистрирован

Пробовал создавать не .doc а .xml проблем с неустановленным вордом не должно быть

(44) проделывал это: (34)

(45) Зачем тебе на сервере работать с макетом? Делай все на клиенте, если тебе надо показывать:
Все же элементарно:
1) формируешь структуру параметров для печати на сервере
2) получаешь из двоичных данных макет на клиенте, заполняешь параметры из структуры полученной в п1
3)...
4) PROFIIT!!!!111

(41) Судя по ошибке в (14) у вас либо служба сервера запускается от пользователя ITMAN3 либо вы делаете что-то не так, адрес временного файла у вас на сервере будет другой. Думайте, проверяйте

(46) только вот додумкал до этого, попробую реализовать)

Там реализация простейшая ) но в любом случае на клиенте ворд нужен будет, чтоб с ним взаимодействовать... но он наверняка на клиенте будет

(49) На клиенте да

{ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(10)}: Ошибка при вызове метода контекста (ПолучитьИзВременногоХранилища)
        Word.Открыть(ПолучитьИзВременногоХранилища(Адрес));
по причине:
Ошибка получения значения из временного хранилища
по причине:
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'response':
    форма: Элемент
    имя: {http://v8.1c.ru/8.2/mngsrv/ws}response
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа 'ОболочкаActiveDocument'


Подскажите что делаю не так?

+ (50)
&НаКлиенте
Процедура ок(Команда)
    Адрес = ФормированиеДоговораПоШаблону();
    Если Адрес = Неопределено Тогда
        Возврат;
    КонецЕсли;
  
    Word = Новый COMОбъект("Word.Application");
        Word.Открыть(ПолучитьИзВременногоХранилища(Адрес));
        
        тр = 1;
КонецПроцедуры

&НаСервере
Функция ПолучитьМакетСервер(ИмяМакета)

    Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет(ИмяМакета);
    Возврат Макет;

КонецФункции // ПолучитьМакетСервер(ИмяМакета)()


&НаСервере
Функция ФормированиеДоговораПоШаблону()
    
         ИмяМакета = "Макет";
       АктивныйДокумент = ПолучитьМакетСервер(ИмяМакета);
      
      
        Адрес = ПоместитьВоВременноеХранилище(АктивныйДокумент);
        
        Возврат Адрес;
    
    
КонецФункции

(49) Я чувствую, что идея сработает и очень хочется довести ее до конца) и понять все это наконецто)

Читать мантру...  Вдумчиво и нараспев: получаешь из двоичных данных макет.  

До полного просветления.

(53) не могу понять как с этими двоичными данными быть, можете ссылку скинуть?

Покажите хоть какой нибудь пример по этому поводу, пожалуйста (53)

(51) А зачем ты получаешь макет на сервере?

Word = Новый COMОбъект("Word.Application");
   Макет = ПолучитьМакетСервер();
   временныйПуть = КаталогВременныхФайлов();
   имяВременногоФайла = временныйПуть +строка(хэш)+ ".docx";
   Макет.Записать(имяВременногоФайла);
   ТекДок = Word.Documents.ADD(имяВременногоФайла);    
   СтруктураПараметров = СформироватьСтруктуруПараметров();
ТекДок.Fields.Update();
   Word.ActiveWindow.View.ShowFieldCodes = False;
   //Word.Visible=Истина;  
   ActDoc=Word.ActiveDocument;
    ActDoc.ExportAsFixedFormat(КаталогВременныхФайлов()+строка(хэш)+".pdf",17,true,0);

(54) В яндексе забанили?
http://catalog.mista.ru/public/407448/

Заполнение параметров вырезал.

Получение макета ворд, сохранение его в пдф.

(57) Это на клиенте выполнить можно?

(57) {ВнешняяОбработка.ВнешняяОбработка1.Форма.Форма.Форма(18)}: Ошибка при вызове метода контекста (ПолучитьМакетСервер)
   Макет = ПолучитьМакетСервер(Макет);
по причине:
Ошибка передачи данных между клиентом и сервером. Значение недопустимого типа.
по причине:
Ошибка преобразования данных XDTO:
Запись значения свойства 'ret':
    форма: Элемент
    имя: {http://v8.1c.ru/8.2/managed-application/modules}ret
по причине:
Ошибка отображения типов:
Отсутствует отображение для типа 'ОболочкаActiveDocument'

(61) нужно двоичные данные передвать

(62) Да как это сделать то, покажите пример, пожалуйста :-)

(62) Я понял, что это нужно передать через двоичные данные, но как и как потом их пихнуть в ворд то?

ты же все равно записываешь в файл

(64) Получаешь из макета, записываешь как временный файл с расширением doc.

(66) офиса нет на сервере и нет возможности поставить

(67) откажись от activedocument

(68) так как сделать по другому? пока единственная идея это на сетевом ресурсе разместить шаблоны и обращаться к ним из кода по пути. Но решение шадкое очень

Единственное решение к которому пришел, к сожалению не вышло сделать по человечески :-(

&НаКлиенте
Процедура ок(Команда)
    Адрес = ФормированиеДоговораПоШаблону();
    Если Адрес = Неопределено Тогда
        Возврат;
    КонецЕсли;
      Макет = ПолучитьИзВременногоХранилища(Адрес);
      //Макет2 =
    Word = Новый COMОбъект("Word.Application");
        //Word.Documents.Open("D:\_DISTRIB\External processing\ZFL-ID31.dot");
        Документ = Word.Documents.Add("D:\_DISTRIB\External processing\ZFL-ID31.dot");
        Word.Application.Visible = Истина;
        Word.Activate();
    //Документ.Visible = True;
        тр = 1;
КонецПроцедуры

+(70) Начало кода не нужно, просто не убрал

(69) Не знаешь как добавить макет с двоичными данными?

(72) Макет добавить как знаю, а вот как его передать на
клиент и преобразовать в word понять никак не могу, а
примерами никто делиться не хочет :-)

Божечки, я наконец то понял! Если найдется такой же
искатель истины как и я вот ему пример, чтобы не мучался


Процедура ок(Команда)
    ИмяВременногоФайла = ПолучитьИмяВременногоФайла("doc");
    Адрес = ФормированиеДоговораПоШаблону();
    Если Адрес = Неопределено Тогда
        Возврат;
    КонецЕсли;
      Макет = ПолучитьИзВременногоХранилища(Адрес);
      Макет.Записать(ИмяВременногоФайла);
      //Макет2 =
    Word = Новый COMОбъект("Word.Application");
        //Word.Documents.Open("D:\_DISTRIB\External processing\ZFL-ID31.dot");
        Документ = Word.Documents.Add(ИмяВременногоФайла);
        Word.Application.Visible = Истина;
        Word.Activate();
    //Документ.Visible = True;
        тр = 1;
КонецПроцедуры

&НаСервере
Функция ПолучитьМакетСервер(ИмяМакета)

    Макет = РеквизитФормыВЗначение("Объект").ПолучитьМакет(ИмяМакета);
    Возврат Макет;

КонецФункции // ПолучитьМакетСервер(ИмяМакета)()


&НаСервере
Функция ФормированиеДоговораПоШаблону()
    
         ИмяМакета = "Макет1";
       АктивныйДокумент = ПолучитьМакетСервер(ИмяМакета);

        УИД = Новый УникальныйИдентификатор();
        Адрес = ПоместитьВоВременноеХранилище(АктивныйДокумент, УИД);
        
        Возврат Адрес;
    
    
КонецФункции

уид нужно от формы брать, а не произвольный

Я же тебе писал
Адрес = ПоместитьВоВременноеХранилище(ДвоичныеДанные, УникальныйИдентификатор);