8.х Как поменять во внешней печатьной форме тип шрифта макета ворд 1с зуп2.5

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем Nik02071, 29 авг 2014.

  1. TopicStarter Overlay
    Nik02071
    Offline

    Nik02071 Опытный в 1С

    Регистрация:
    12 ноя 2008
    Сообщения:
    347
    Симпатии:
    1
    Баллы:
    29
    Сделал внешнюю печатную форму трудовой договор через макет WORD. Как сделать, чтобы вставляемые слова печатались жирным шрифтом или другим шрифтом
    Код:
     ОбъектВорд = ПолучитьМакет("МакетДог").Получить();
    
         // Получим документ из объекта и активируем его
         Документ = ОбъектВорд.Application.Documents(1);
         Документ.Activate();
    //Сообщить(Выборка.КодПроф);
         // Поиск и замена маркеров
         Если Выборка.Следующий()Тогда
         Замена = Документ.Content.Find;
         Дата=Лев(Выборка.ДатаДок,10);
        // Шрифт=Новый Шрифт;
         //Шрифт.Жирный=Истина;
        //Selection.Font.Name = "Arial";
    
    //Selection.Font.Bold = True;    
         Замена.Execute("[НомерДок]", , , , , , , , , Выборка.НомерДок, 2);
        
         Замена.Execute("[Дата]", , , , , , , , ,ПреобрДата() , 2);
         Замена.Execute("[ФИОРаботника]", , , , , , , , , Выборка.ФИОРаботника, 2);
         Замена.Execute("[ДолжностьТаб]", , , , , , , , , НРег(Выборка.Должность), 2);
         Замена.Execute("[ПодразделениеТаб]", , , , , , , , , НРег(Выборка.Подразделение), 2);
         Замена.Execute("[РеквПасп]", , , , , , , , , Выборка.ДокументСерия+" "+Выборка.ДокументНомер+" " +"выдан"+" "+Лев(Выборка.ДокументДатаВыдачи,10)+" "+Выборка.ДокументКемВыдан, 2);
         Замена.Execute("[АдресРегистрации]", , , , , , , , , Выборка.АдресРегистрации, 2);
         Замена.Execute("[ФамилияИн]", , , , , , , , , ПреобразованиеИмениОтчестваВИнициалы(Выборка.ФИОРаботника), 2);
        Замена.Execute("[СтрНом]", , , , , , , , , Выборка.СтраховойНомерПФР, 2);
        Замена.Execute("[ДатаРож]", , , , , , , , , Выборка.ДеньРождения, 2);
        Замена.Execute("[ВидЗан]", , , , , , , , , "" + НРег(Выборка.ВидГрафика) + "; " + Выборка.ДлительностьРабочейНедели + " - часовая рабочая неделя", 2);
        Замена.Execute("[ИспСр]", , , , , , , , , ?(НЕ ЗначениеЗаполнено(Выборка.ИспытательныйСрок),"При приеме на работу испытательный срок не устанавливается", "При приеме на работу устанавливается испытательный срок:"+" "+Выборка.ИспытательныйСрок+" "+"месяца(ев)" ), 2);
        Замена.Execute("[ДатаПрУвол]", , , , , , , , , ?(Не ЗначениеЗаполнено(Выборка.ДатаУвольнения),"Дата начала работы:"+" "+лев(Выборка.ДатаПриема,10),"Дата начала работы:"+" "+Лев(Выборка.ДатаПриема,10)+" "+"Дата окончания работы"+" "+ Лев(Выборка.ДатаУвольнения,10)), 2);
        Замена.Execute("[СрРабот]", , , , , , , , , ?(Не ЗначениеЗаполнено(Выборка.ДатаУвольнения),"Трудовой договор заключается на неопределенный срок","Трудовой договор заключается на определенный срок, в соответствии со ст. 59 ТК"), 2);
           Если Выборка1.Следующий() Тогда
               
                Сообщить(Выборка1.Пол);
        Замена.Execute("[УслТр]", , , , , , , , , ?(Выборка1.Вредность="нет вредности"," не вредные"," вредные"), 2);       
        Замена.Execute("[ПолСотр]", , , , , , , , , ?(Выборка1.Пол=Перечисления.ПолФизическихЛиц.Женский,"ая","ый"), 2);
        Замена.Execute("[ПолСотр1]", , , , , , , , , ?(Выборка1.Пол=Перечисления.ПолФизическихЛиц.Женский,"а",""), 2);
    КонецЕсли;
    //Замена.Execute("[ПолСотр]", , , , , , , , , ?(Выборка.Пол=Перечисления.ПолФизическихЛиц.Мужской,"ая","ый"), 2);
       
        //Замена.Execute("[УслТр]", , , , , , , , , ?(Выборка.Вредность="вредно"," не вредные"," вредные"), 2);
          //   Сообщить(Выборка1.Вредность);
       
        
        Замена.Execute("[Тар]", , , , , , , , ,?(Не Выборка.ОсновноеНачисление="Оклад по дням","Работнику гарантируется выплата по часовой тарифной ставке в размере:"+" "+Выборка.ТарифнаяСтавка+" "+"рублей за час","Работнику гарантируется выплата должностного оклада в размере:"+" "+Выборка.ТарифнаяСтавка+" "+"рублей за месяц"), 2);
        //Замена.Execute("[Вр]", , , , , , , , , ?(Не ЗначениеЗаполнено(Выборка.КодПозицииСписка),"вредные"," "), 2);   
       
        // Вывод документа
         ОбъектВорд.Application.Visible = Истина;
         ОбъектВорд.Activate()
    КонецЕсли;
    // ФИОработника="Иванов Иван Иванович";
    //Сообщить(ПреобразованиеИмениОтчестваВИнициалы(ФИОРаботника));
    
  2. Alexandr_M
    Offline

    Alexandr_M

    Регистрация:
    9 июл 2014
    Сообщения:
    16
    Симпатии:
    0
    Баллы:
    1
    Что-то.Шрифт.Жирный=Истина;
    Как и написано у тебя в комментарии.
  3. Draco
    Offline

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

    Регистрация:
    28 окт 2009
    Сообщения:
    13.628
    Симпатии:
    946
    Баллы:
    204
    А что тупо в Макете те параметры которые ищите и заменяете выделить другим шрифтом и сделать жирными и пересохранить макет не судьба.
    Для этого же и делали в Word, что бы простой смертный мог шаблон менять дополнять, форматировать и исправлять, а 1С только параметры заполняет и все.
  4. TopicStarter Overlay
    Nik02071
    Offline

    Nik02071 Опытный в 1С

    Регистрация:
    12 ноя 2008
    Сообщения:
    347
    Симпатии:
    1
    Баллы:
    29
    Вот заменил тип шрифта [ФИОРаботника] в макете на жирный. Запускаю печатную форму ,ни каких изменений в фамилии имени отчестве
  5. Draco
    Offline

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

    Регистрация:
    28 окт 2009
    Сообщения:
    13.628
    Симпатии:
    946
    Баллы:
    204
    Ну А Вы этот шаблон пересохранили, загрузили в макет откуда он тянется
    ОбъектВорд = ПолучитьМакет("МакетДог").Получить();

Поделиться этой страницей