Msword макет получить ошибка при вызове метода контекста получить

Создал в общихМакетах Макет типа ActiveDocument с расширением doc. Не получает с ним работать. Подскажите что не так. Делаю на УФ. Вот код

&НаКлиенте

Процедура Печать(Команда)

    ПолучитьМакетНаСервере(«ПФ_DOC_Договор»);

    //MSWord = Договор.Получить;

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

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

    Договор = ПолучитьОбщийМакет(ИмяМакета);

    MSWord = Договор.Получить;

конецпроцедуры

Выскакивает ошибка

Ошибка при вызове метода контекста (Получить)

    MSWord = Договор.Получить();

Я ставлю

Документ = MSWord.Application.Documents(1);

Документ.Activate();

У меня сразу выскакивает

Поле объекта не обнаружено (Application)

Документ = MSWord.Application.Documents(1);

Весь инет облазил. У всех работает. Может я что с начала не правильно делал

(10) Я уже сильно не помню причины, но я делаю через временный файл.

Код такой (у меня макет хранится в ХЗ):

&НаКлиенте

Процедура СформироватьПечатнуюФорму(ДоговорКонтрагента, Макет)

    ДанныеДляПечати = ПолучитьДанныеДляПечати(ДоговорКонтрагента, Макет);

    
    ХранилищеМакета = ДанныеДляПечати[0];

    Если ХранилищеМакета.Представление = «ХранилищеМакета» Тогда

        ИмяФайла = ПолучитьИмяВременногоФайла();

        ХранилищеМакета.Значение.Записать(ИмяФайла); //Записываем макет во временный файл.

        ДанныеДляПечати.Удалить(ХранилищеМакета);

    Иначе

        Сообщить(«Ошибка получения макета», СтатусСообщения.Внимание);

        Возврат;

    КонецЕсли;

    Попытка

        MSWord = ПолучитьCOMОбъект(, «Word.Application»);    //Если Word уже открыт, то подключаемся к нему.

    Исключение

        Попытка

            MSWord = Новый COMОбъект(«Word.Application»);    //Открываем Word.

        Исключение

            Сообщить(«Ошибка формирования печатной формы. Скорее всего на Вашем компьютере не установлен Microsoft Word.», СтатусСообщения.Внимание);

            Сообщить(ОписаниеОшибки(), СтатусСообщения.Внимание);

            Возврат;

        КонецПопытки;

    КонецПопытки;

    Документ = MSWord.Documents.Open(ИмяФайла);                //Открываем макет из временного файла.

    MSWord.Selection.WholeStory();                            //Выделяем весь документ.

    MSWord.Selection.Copy();                                //Копируем выделенное в буфер.

    Документ.Close();                                        //Закрываем документ.

    УдалитьФайлы(ИмяФайла);                                    //Удаляем временный файл.

    Документ = MSWord.Documents.Add();                        //Создаем новый документ.

    MSWord.Selection.PasteAndFormat(19);                    //Вставляем в документ содержимое из буфера с форматом исходного документа.

    MSWord.ActiveDocument.Range(0,1).Copy();                //Очищаем буфер обмена, чтоб лишних вопросов при закрытии документа не задавал.

    MSWord.Selection.HomeKey(6);                            //Переводим курсор в начало документа.

    
    //Производим заполнение заменяемых полей

    Замена = Документ.Content.Find;

    Для Каждого ЗаменяемоеПоле Из ДанныеДляПечати Цикл

        Замена.Execute(ЗаменяемоеПоле.Значение, Ложь, Истина, Ложь, , , Истина, , Ложь, ЗаменяемоеПоле.Представление, 2);

    КонецЦикла;

    
    //Проверяем, остались ли незаполненные заменяемые поля

    Если Замена.Execute(«{«) Тогда

        Сообщить(«В печатной форме «»» + СокрЛП(Макет.Наименование) + «»» заполнены не все заменяемые поля.», СтатусСообщения.Внимание);

    КонецЕсли;

    
    Документ.Saved = Истина;                                //Помечаем документ как сохраненный, чтобы при закрытии не выдавался запрос на сохранение документа

    Если Элементы.ФормаПечатьНаПринтер.Пометка Тогда

        Документ.PrintOut(Истина, , , , , , , Макет.КоличествоКопий, , , , Истина);

        Документ.Close();

    Иначе

        MSWord.Visible = Истина;

        MSWord.Activate();

    КонецЕсли;

    
КонецПроцедуры //СформироватьПечатнуюФорму()

&НаСервереБезКонтекста

Процедура ПолучитьМакетНаСервере()

    Макет = ПолучитьОбщийМакет(«ПФ_DOC_Договор»);

    Ком = Макет.Получить();

    Ком.Application.Visible = 1;

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

&НаКлиенте

Процедура Напечатать(Команда)

    Состояние(НСтр(«ru = ‘Выполняется формирование печатных форм'»));

    
    ПолучитьМакетНаСервере();

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

Ошибка при вызове метода контекста (Получить)

    Ком = Макет.Получить();

Что не так? Сделал как написано в книге «Профессиональная разработка в системе 1С».

В общих макетах создал .doc макет, в него скопировал содержимое документа. Пытаюсь его получить, вылетает ошибка. Помоги разобрать, как сделать через ActiveDocument

хз, попробуй так

текОбъект = ЭтаФорма.РеквизитФормыВЗначение(«Объект»);

Макет = текОбъект.ПолучитьМакет(«ПФ_DOC_Договор»);

(14) (18) Ты (4) Читал?

&НаСервереБезКонтекста

Процедура ПолучитьМакетНаСервере()

    Ком = ПолучитьОбщийМакет(«ПФ_DOC_Договор»);

    Ком.Application.Visible = 1;

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

&НаКлиенте

Процедура Напечатать(Команда)

    Состояние(НСтр(«ru = ‘Выполняется формирование печатных форм'»));

    ПолучитьМакетНаСервере();

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

Так работает?

(21) Сделал так, выскочила другая ошибка

Поле объекта не обнаружено (Application)

    Ком.Application.Visible = 1;

Я еще раз повторюсь, делал по примеру, который приведен в книге.

Cube

26 — 02.12.13 — 12:26

+(25) Если оставить только суть, то:

Макет = ПолучитьМакет(«Макет»);

MSWord = Макет.Получить();

…

Документ = MSWord.Application.Documents(1);

Документ.Activate();

…

MSWord.Application.Visible = Истина;

MSWord.Activate();

1. Есть обработка в которой в макет помещен документ Word-овский. Я его получаю заполняю шаблон значениями из Таблицы значений. Проблема в том что на файловом варианте эта обработка работает а на серверном нет. В чем может быть проблема?

   Ошибка выскакивает здесь:

   

   Сама обработка:

   Вложения:

2. Еще вопрос в тему.

   Почему при сохранении макета типа active document в файл word кодом:

   ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
   Макет  = ОбработкаОбъект.ПолучитьМакет("ШаблонПисьмаПросрочка");
   ИмяФайла = КаталогВременныхФайлов() + ""файл.doc";
   Макет.Записать(ИмяФайла);

   Я получаю вместо нормального документа вот такой

   

3. 
   

   Offline

   nomad_irk
   Гуру в 1С

   Регистрация:

   20 окт 2008

   Сообщения:

   9.899

   Симпатии:

   1.035

   Баллы:

   204

   Какой тип значения у Макет?

4. 

5. 
   

   Offline

   nomad_irk
   Гуру в 1С

   Регистрация:

   20 окт 2008

   Сообщения:

   9.899

   Симпатии:

   1.035

   Баллы:

   204

   Ну а что ж вы хотите?
   Простым Записать() там непойми чего может быть….

   Вроде еще нужно сделать:

   OLEMSWord = Макет.Получить();

6. 

   

   Из статьи: http://infostart.ru/public/270277/

   Когнитивный диссонанс

   &НаСервере
   АктивныйДокумент = ПолучитьМакет("Макет");
   КомОбъект = АктивныйДокумент.Получить();

   Вот самые первые строчки, на которые натыкается в гугле юный неофит. В файловом варианте такой код сработает корректно (неважно в толстом или тонком клиенте). Т.к. и сервер и клиент у нас находятся на одной машине, и MS Word тоже установлен на этой машине.

   А давайте представим, что у нас клиент-сервер, да ещё и сервер находится на другой машине. Будет оно работать в тонком клиенте? Нет. И тут возникнет когнитивный диссонанс. WTF?

   — Объединение сообщений, 5 апр 2017 —

   У меня как раз серверный вариант

7. 
   

   Offline

   nomad_irk
   Гуру в 1С

   Регистрация:

   20 окт 2008

   Сообщения:

   9.899

   Симпатии:

   1.035

   Баллы:

   204

   Когнитивного диссонанса нет, т.к. в режиме управляемого приложения нет объекта типа ActiveDocument от слова совсем

   Выход: макет делать в виде двоичных данных, и гонять результат на клиента через временное хранилище.

8. &НаСервере
   Функция ПолучитьДанныеМакета()
       АдресХранилища = Новый УникальныйИдентификатор();
       МакетПисьма = Обработки.ФормированиеПисемПоДепонентам.ПолучитьМакет("ШаблонПисьмо");
       Возврат ПоместитьВоВременноеХранилище(МакетПисьма, АдресХранилища);
   КонецФункции 
   
   &НаКлиенте
   Процедура СформироватьПисьма(Команда)
      Попытка
        Индификатор = ПолучитьДанныеМакета();
        МакетПисьма = ПолучитьИзВременногоХранилища(Индификатор);
        ИмяФайла = "Письмо.doc";
        ИмяФайлаПолное = "E:ЭРЯковенко" + ИмяФайла;
        МакетПисьма.Записать(ИмяФайлаПолное);
      Исключение
        Сообщить(ОписаниеОшибки());
      КонецПопытки;
   КонецПроцедуры

   Я правильно понял?

   — Объединение сообщений, 5 апр 2017 —

   Так что это уже пережиток?

9. 
   

   Offline

   nomad_irk
   Гуру в 1С

   Регистрация:

   20 окт 2008

   Сообщения:

   9.899

   Симпатии:

   1.035

   Баллы:

   204

   В первом приближении — да.

   Только проще будет MSWord установить на сервер, выполнять заполнение и сохранение файла на сервере и уже результат гнать на клиента иначе придется на каждом клиенте устанавливать MSWord.

10. Есть код:

    &НаКлиенте
    Процедура ПолучитьМакет(Команда)
       
        Попытка
            Индификатор = ПолучитьДанныеМакета();
            МакетПисьма = ПолучитьИзВременногоХранилища(Индификатор);
            ИмяФайла = "Письмо4.doc";
            ИмяФайлаПолное = "E:ЭРЯковенко" + ИмяФайла;
            МакетПисьма.Записать(ИмяФайлаПолное);
        Исключение
            Сообщить(ОписаниеОшибки());
        КонецПопытки;
       
        Попытка
            Шаблон = Новый COMОбъект("Word.Application");
        Исключение
            Сообщить("Ошибка при попытке создать объект ""MS Word""!" + Символы.ПС +
                     "Возможно приложение ""MS Word"" не установлено или установлено неправильно.", СтатусСообщения.Внимание);
                 КонецПопытки;
       
        Шаблон.Documents.Open(ИмяФайлаПолное);
        Попытка
            Шаблон.Application.Documents(1).Content.Find.Execute("{Сумма}",,,,,,,,, ЭтаФорма.Сумма, 2);               
            Шаблон.Application.Documents(1).Content.Find.Execute("{Контрагент}",,,,,,,,, ЭтаФорма.Контрагент, 2);               
            //Перемещаемся до строки в таблице
            Шаблон.Application.Selection.MoveDown(,8);       
            //Перемещаемся вниз, выделяем строку таблицы и копируем ее в буфер обмена
            Шаблон.Application.Selection.SelectRow();
            Шаблон.Application.Selection.Copy();
            Для каждого Строка Из Этаформа.ТЗ Цикл
                //Заменяем значения
                Шаблон.Application.Selection.Find.Execute("{НомерСчета}" ,,,,,,,,,Строка.НомерСчета, 2);
                Шаблон.Application.Selection.Find.Execute("{ДатаПоставки}" ,,,,,,,,,Строка.ДатаПоставки, 2);
                //Последний параметр поиска пустой
                Шаблон.Application.Selection.Find.Execute("{КрайняяДата}" ,,,,,,,,,Строка.КрайняяДата, 2);
                Шаблон.Application.Selection.Find.Execute("{СтоимостьТоваров}" ,,,,,,,,,Строка.СтоимостьТоваров, 2);
                //Перемещаемся вниз, вставляем из буфера обмена строку
                Шаблон.Application.Selection.MoveDown();
                Шаблон.Application.Selection.Paste();
                //Перемещаемся вверх и выделяем строку для замены значений
                Шаблон.Application.Selection.MoveUp();
                Шаблон.Application.Selection.SelectRow();
            КонецЦикла;
            //Вырезаем лишнюю строку
            Шаблон.Application.Selection.Cut();
            Шаблон.Application.Visible = Истина;       
        Исключение
            // Если произойдет ошибка выводятся данные об ошибке и объект закрывается.
            Сообщить("Ошибка: " + ОписаниеОшибки(), СтатусСообщения.Внимание);
            Шаблон.Application.Quit(0);
        КонецПопытки;
    
       
    КонецПроцедуры
    
    &НаСервере
    Функция ПолучитьДанныеМакета()
    
        АдресХранилища = Новый УникальныйИдентификатор();
        ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
        Макет             = ОбработкаОбъект.ПолучитьМакет("ШаблонПисьмаПросрочка");
        Возврат ПоместитьВоВременноеХранилище(Макет, АдресХранилища);
       
    КонецФункции   
    

    Если перенести заполнение документа с сервера на клиент то вот этот код отказывается работать:

     Шаблон.Application.Documents(1).Content.Find.Execute("{Сумма}",,,,,,,,, ЭтаФорма.Сумма, 2);              
            Шаблон.Application.Documents(1).Content.Find.Execute("{Контрагент}",,,,,,,,, ЭтаФорма.Контрагент, 2);   

11. 
    

    Offline

    nomad_irk
    Гуру в 1С

    Регистрация:

    20 окт 2008

    Сообщения:

    9.899

    Симпатии:

    1.035

    Баллы:

    204

    Чего говорит?
    Версия MSOffice на клиенте совпадает с версией на сервере?