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

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

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

не?

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Cube

26 — 02.12.13 — 12:26

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

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 на клиенте совпадает с версией на сервере?

1. 

   Offline

   Persempre
   Опытный в 1С
   

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

   18 июл 2012

   Сообщения:

   868

   Симпатии:

   3

   Баллы:

   29

   Доброго времени суток. Суть проблемы в печати как понимаете. Запихнул Word в макет. Дальше заполнил закладки, обработал и тд. На локальной машине работает. А на боевой базе не взлетело. Код ниже, в чем затык не пойму

   Код:

   &НаКлиенте
   Процедура УведомлениеОбУвольненииИГ(Команда)
   
       УведомлениеОбУвольненииИГНаСервере();
      
   КонецПроцедуры
   
   &НаСервере
   Процедура УведомлениеОбУвольненииИГНаСервере() //ActiveDoc)
      
       ТаблицаПараметров.Очистить();
      
       // Открываем Word
       ActiveDoc = Справочники.ДополнительныеСведенияИФайлы.ПолучитьМакет("УведомлениеОбУвольнении");
       WordObj = ActiveDoc.Get();
       WordObj.Application.Visible = 1;
   

   
   Persempre,
   29 янв 2015
   

   #1

2. Offline

   nomad_irk
   Гуру в 1С
   

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

   20 окт 2008

   Сообщения:

   9.901

   Симпатии:

   1.035

   Баллы:

   204

   на сервере не установлен WORD?

   
   nomad_irk,
   29 янв 2015
   

   #2

   
   Persempre нравится это.
   

3. Offline

   Draco
   Модераторы
   Команда форума
   Модератор
   

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

   28 окт 2009

   Сообщения:

   13.722

   Симпатии:

   961

   Баллы:

   204

   Ну первый вопрос парвильный Офис то на сервере есть?

   
   Persempre нравится это.
   

4. 

   Offline

   Persempre
   Опытный в 1С
   

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

   18 июл 2012

   Сообщения:

   868

   Симпатии:

   3

   Баллы:

   29

   
   Persempre,
   30 янв 2015
   

   #4

5. Offline

   nomad_irk
   Гуру в 1С
   

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

   20 окт 2008

   Сообщения:

   9.901

   Симпатии:

   1.035

   Баллы:

   204

   
   nomad_irk,
   30 янв 2015
   

   #5

   
   Persempre нравится это.
   

6. Offline

   Draco
   Модераторы
   Команда форума
   Модератор
   

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

   28 окт 2009

   Сообщения:

   13.722

   Симпатии:

   961

   Баллы:

   204

   Ну или права у пользователя под которым это запускается на сервере еть на офис серверный.

7. 

   Offline

   Persempre
   Опытный в 1С
   

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

   18 июл 2012

   Сообщения:

   868

   Симпатии:

   3

   Баллы:

   29

   Спасибо, вопрос решен. Заполнение нужно было делать на клиенте. Только скорость заполнения адски маленькая. как буд-то человек кнопки нажимает. Как ускорить не знаю

   
   Persempre,
   30 янв 2015
   

   #7