WORD через Com

Вот минимум который нужен


&НаСервере

Функция ПолучитьОписаниеОбластейМакетаОфисногоДокумента()

    

    ОписаниеОбластей = Новый Структура;

    

    УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "ВерхнийКолонтитул","ВерхнийКолонтитул");

    УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Текст1",            "Общая");

    УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Текст2",            "Общая");

    УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Текст3",            "Общая");

    УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "Текст4",            "Общая");

    УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "СписокСотрудники",    "Список");

    УправлениеПечатью.ДобавитьОписаниеОбласти(ОписаниеОбластей, "ТаблицаСотрудники","СтрокаТаблицы");

    

    Возврат ОписаниеОбластей;

    

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



&НаСервере

Функция ПолучитьДанныеОбъекта()

    ДанныеОбъекта = Новый Структура;

    

    ДанныеОбъекта.Вставить("НаименованиеОрганизации", СокрЛП(Объект.Организация.НаименованиеСокращенное));

    ДанныеОбъекта.Вставить("НаименованиеОрганизацииПолное", СокрЛП(Объект.Организация.НаименованиеПолное));

    ДанныеОбъекта.Вставить("Дата", Формат(Объект.ДатаДоговора,"ДФ='dd.MM.yyyy ""г.""'"));

    ДанныеОбъекта.Вставить("ДатаПолная", Формат(Объект.ДатаДоговора,"ДФ='dd MMMM yyyy ""г.""'"));

    ДанныеОбъекта.Вставить("НомерПриказа", СокрЛП(ЭтотОбъект.НомерПриказа));

    ДанныеОбъекта.Вставить("НазваниеГорода", СокрЛП(ЭтотОбъект.Город));

    ДанныеОбъекта.Вставить("НаименованиеМагазина", СокрЛП(ЭтотОбъект.НаименованиеМагазина));

    ДанныеОбъекта.Вставить("Основание", СокрЛП(ЭтотОбъект.Основание));

    

    ДанныеОбъекта.Вставить("СписокСотрудники", Новый Массив);

    ДанныеОбъекта.Вставить("ТаблицаСотрудники", Новый Массив);

    

    Для Каждого СтрокаТабличнойЧасти Из Объект.Сотрудники Цикл

        ФИОПолное = СокрЛП(СтрокаТабличнойЧасти.Сотрудник.ФизическоеЛицо.ФИО);

        ФИОСокращенное = ФизическиеЛицаЗарплатаКадры.РасшифровкаПодписи(ФИОПолное);

        Должность = СокрЛП(СтрокаТабличнойЧасти.Должность);

        

        ДанныеОбъекта.СписокСотрудники.Добавить(Новый Структура("ФИОСотрудникаПолное,ДолжностьСотрудника",ФИОПолное,Должность));

        

        Если СтрокаТабличнойЧасти.Бригадир тогда

            ДанныеОбъекта.Вставить("ФИОБригадираПолное",ФИОПолное);

            ДанныеОбъекта.Вставить("ФИОБригадира",ФИОСокращенное);

            ДанныеОбъекта.Вставить("ПолБригадира",СтрокаТабличнойЧасти.Сотрудник.ФизическоеЛицо.Пол);

            ДанныеОбъекта.Вставить("ДолжностьБригадира",Должность);

            Продолжить;

        КонецЕсли;

        

        ДанныеОбъекта.ТаблицаСотрудники.Добавить(Новый Структура("ФИОСотрудника,Дата",ФИОСокращенное,ДанныеОбъекта.Дата));

    КонецЦикла;

    

    РезультатСклонения = "";

    Если ФизическиеЛицаЗарплатаКадры.Просклонять(ДанныеОбъекта.ФИОБригадираПолное, 4, РезультатСклонения, ДанныеОбъекта.ПолБригадира) Тогда

        ДанныеОбъекта.Вставить("ФИОБригадираПолноеСклоненное",РезультатСклонения);

    Иначе

        ДанныеОбъекта.Вставить("ФИОБригадираПолноеСклоненное",ДанныеОбъекта.ФИОБригадираПолное);

    КонецЕсли;    

    

    РезультатСклонения = "";

    Если ФизическиеЛицаЗарплатаКадры.Просклонять(ДанныеОбъекта.ФИОБригадираПолное, 2, РезультатСклонения, ДанныеОбъекта.ПолБригадира) Тогда

        ДанныеОбъекта.Вставить("ФИОБригадираПолноеСклоненноеДоговор",РезультатСклонения);

    Иначе

        ДанныеОбъекта.Вставить("ФИОБригадираПолноеСклоненноеДоговор",ДанныеОбъекта.ФИОБригадираПолноеСклоненное);

    КонецЕсли;    

    

    РезультатСклонения = ПолучитьСклоненияСтроки(ДанныеОбъекта.ДолжностьБригадира,,"ПД=Винительный");

    ДанныеОбъекта.Вставить("ДолжностьБригадираСклоненная",РезультатСклонения[0]);



    

    ДанныеРуководителя = Новый Структура;

    ДанныеРуководителя.Вставить("Организация", Объект.Организация);

    ДанныеРуководителя.Вставить("Руководитель");

    ДанныеРуководителя.Вставить("ДолжностьРуководителя");

    ЗарплатаКадры.ПолучитьЗначенияПоУмолчанию(ДанныеРуководителя, Объект.ДатаДоговора);

    

    ДанныеОбъекта.Вставить("ФИОРуководителяПолное",СокрЛП(ДанныеРуководителя.Руководитель.ФИО));

    ДанныеОбъекта.Вставить("ФИОРуководителя",ФизическиеЛицаЗарплатаКадры.РасшифровкаПодписи(ДанныеОбъекта.ФИОРуководителяПолное));

    ДанныеОбъекта.Вставить("ДолжностьРуководителя",СокрЛП(ДанныеРуководителя.ДолжностьРуководителя));

    РезультатСклонения = ПолучитьСклоненияСтроки(ДанныеОбъекта.ДолжностьРуководителя,,"ПД=Винительный");

    ДанныеОбъекта.Вставить("ДолжностьРуководителяСклоненная",РезультатСклонения[0]);

    

    РезультатСклонения = "";

    Если ФизическиеЛицаЗарплатаКадры.Просклонять(ДанныеОбъекта.ФИОРуководителяПолное, 4, РезультатСклонения, ДанныеРуководителя.Руководитель.Пол) Тогда

        ДанныеОбъекта.Вставить("ФИОРуководителяПолноеСклоненное",РезультатСклонения);

    Иначе

        ДанныеОбъекта.Вставить("ФИОРуководителяПолноеСклоненное",ДанныеОбъекта.ФИОРуководителяПолное);

    КонецЕсли;    

    

    Возврат ДанныеОбъекта;

    

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



&НаСервере

Функция ПолучитьДоговорНаСервере()

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

    Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета,Неопределено);

    Области = ПолучитьОписаниеОбластейМакетаОфисногоДокумента();

    ДанныеОбъекта = ПолучитьДанныеОбъекта();

    

    Если Макет = Неопределено Тогда

        Возврат Неопределено;

    КонецЕсли;

    

    ЗакрытьОкноПечатнойФормы = Ложь;

    Попытка

        ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(, , Макет);

        АдресХранилищаПечатнойФормы = "";

        Если ПечатнаяФорма = Неопределено Тогда

            УправлениеПечатью.ОчиститьСсылки(Макет);

            Возврат Неопределено;

        КонецЕсли;

        

        Область = УправлениеПечатью.ОбластьМакета(Макет, Области["ВерхнийКолонтитул"]);

        УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

        

        Область = УправлениеПечатью.ОбластьМакета(Макет, Области["Текст1"]);

        УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

        

        Область = УправлениеПечатью.ОбластьМакета(Макет, Области["СписокСотрудники"]);

        УправлениеПечатью.ПрисоединитьИЗаполнитьКоллекцию(ПечатнаяФорма, Область, ДанныеОбъекта.СписокСотрудники);

        

        Область = УправлениеПечатью.ОбластьМакета(Макет, Области["Текст2"]);

        УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

        

        ОбластьТаблицаСотрудники = УправлениеПечатью.ОбластьМакета(Макет, Области["ТаблицаСотрудники"]);

        УправлениеПечатью.ПрисоединитьИЗаполнитьКоллекцию(ПечатнаяФорма, ОбластьТаблицаСотрудники, ДанныеОбъекта.ТаблицаСотрудники);

        

        Область = УправлениеПечатью.ОбластьМакета(Макет, Области["Текст3"]);

        УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеОбъекта);

        

        УправлениеПечатью.ПрисоединитьИЗаполнитьКоллекцию(ПечатнаяФорма, ОбластьТаблицаСотрудники, ДанныеОбъекта.ТаблицаСотрудники);

        

        АдресХранилищаПечатнойФормы = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма);

    Исключение

        ОбщегоНазначения.СообщитьПользователю(КраткоеПредставлениеОшибки(ИнформацияОбОшибке()));

        ЗакрытьОкноПечатнойФормы = Истина;

        Возврат Неопределено;

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

    

    УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма, ЗакрытьОкноПечатнойФормы);

    УправлениеПечатью.ОчиститьСсылки(Макет);

    

    ИмяФайла = СокрЛП(Объект.Организация)+"-"+СокрЛП(ЭтотОбъект.НаименованиеМагазина)+"-"+Формат(Объект.ДатаДоговора,"ДФ=dd.MM.yyyy");

    ИмяФайла = СтрЗаменить(ИмяФайла,"""","")+".docx";

    

    ФайлДляЗаписи = Новый Структура("АдресВоВременномХранилище,Представление",АдресХранилищаПечатнойФормы,ИмяФайла);

    Возврат ФайлДляЗаписи;

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