Для отображения персонализированного контента и рекламных сообщений, а также хранения личных настроек на локальном компьютере веб-сайт www.vdgb.ru используют технологию cookie и аналогичные. Продолжив использование наших веб-сайтов, Вы даете согласие на обработку персональных данных, выражаете согласие с Политикой конфиденциальности www.vdgb.ru и применением этих технологий.

Мероприятия

Личный кабинет

ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

+7 (495) 223-32-11

Заказать обратный звонок

8 (800) 775-90-01

Бесплатно по России

Программы 1С

О компанииТехподдержка 1С Вопросы и ответы 1СПроцедура заполняет WORD шаблон из СпискаЗначений

Процедура заполняет WORD шаблон из СпискаЗначений

Проконсультироваться
со специалистом 1С

Консультироваться

Заполняет Вордовский шаблон из СпискаЗначений
Вставляется в виде обрабтки. При открытии передается СЗ первым значением идет WORD, в строковом представлеии наименование файла шаблона. Затем идентификаторы закладок (поля) в тексте шаблона - в представлении что подставить.
Сперва хотел сделать что-то универсальное Ворд-Ексель, а потом передумал. Отого такой первый параметр в списке значений

Код 1C v 7.x 
 Процедура ПриОткрытии()
      

     Перем Закладка, ТектВывода, сз;
      

     СтатусВозврата(0);
      

     сз = Форма.Параметр;
      

     ФайлШаблон = ""; ОЛЕ_Объект = "";
      

     Если ТипЗначенияСтр(сз)<>"СписокЗначений" Тогда
      

     Сообщить("Для формирования документа передайте подготовленный список значений", "!!!"); Возврат;
      

     ИначеЕсли сз.РазмерСписка()=0 Тогда
      

     Сообщить("Для формирования документа передайте подготовленный список значений", "!!!"); Возврат;
      

     Иначе
      

     ФайлШаблон = сз.ПолучитьЗначение(1, ОЛЕ_Объект);
      

     
      

     Если ВРег(ОЛЕ_Объект) <> "WORD" Тогда
      

     Сообщить("OLE объект "+ОЛЕ_Объект+" не поддерживается", "!!!"); Возврат;
      

     КонецЕсли;
      

     
      

     Если ФС.СуществуетФайл(КаталогИБ()+"\Шаблоны\" + ФайлШаблон) = 0 Тогда
      

     Сообщить("Нет файла - шаблона " + ФайлШаблон, "!!!"); Возврат;
      

     КонецЕсли
      

     
      

     КонецЕсли;
      

    
      

     OLE = СоздатьОбъект(ОЛЕ_Объект+".Application");
      

     OLE.Documents.Add(""""+КаталогИБ()+"\Шаблоны\" + ФайлШаблон + """");
      

     Для Индекс = 2 по сз.РазмерСписка() цикл
      

     ТекстВывода = сз.ПолучитьЗначение(Индекс, Закладка);
      

     //Если OLE.ActiveDocument.Bookmarks(СокрЛП(Закладка)).Exists()=0 Тогда // Проверяем - существует ли закладка
      

     // Сообщить("Не найдена закладка "+Закладка,"!!!" ); Продолжить;
      

     //КонецЕсли;
      

     Попытка
      

     OLE.ActiveDocument.Bookmarks(СокрЛП(Закладка)).Select(); //выделим выбранную закладку
      

     OLE.Selection.TypeText(СокрЛП(ТекстВывода)); // выведем на место выделения текст
      

     Исключение
      

     Сообщить("Не найдена закладка "+Закладка,"!!!" );
      

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

     КонецЦикла;
      

    
      

     OLE.Visible=1; /// видимость - True
      

     OLE.ActiveDocument.Activate(); /// активизировать!!!
      

     OLE=""; /// ссылочку прибить
      

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


Автор: GrayT
Процедура формирования Диаграммы на форме и в макете

Искать вопрос


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.