Как в 1С 8.3 ЗУП 3.1 создать внешнюю печатную форму MS Word и объединить несколько документов в один файл при печати списком?

Функция СведенияОВнешнейОбработке() Экспорт

    ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке();
    ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиПечатнаяФорма();
    
    // Привязываем обработку к кадровым документам приема на работу
    ПараметрыРегистрации.Назначение.Добавить("Документ.ПриемНаРаботу");
    ПараметрыРегистрации.Назначение.Добавить("Документ.ПриемНаРаботуСписком");
    
    ПараметрыРегистрации.Наименование = "Трудовой договор (шаблон MS Word)";
    ПараметрыРегистрации.Версия = "1.2";
    ПараметрыРегистрации.БезопасныйРежим = Ложь; // Требуется Ложь, если используется COM-соединение
    
    // Создаем команду для печати
    Команда = ПараметрыРегистрации.Команды.Добавить();
    Команда.Представление = "Печать трудового договора (Word)";
    Команда.Идентификатор = "ПечатьТрудовогоДоговораWord";
    
    // Если используем классический COM на клиенте:
    Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыОткрытиеФормы();
    
    // Если используем современный серверный метод БСП без COM:
    // Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
    
    Возврат ПараметрыРегистрации;

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

Процедура ВыполнитьПечатьНаКлиенте(СсылкаНаОбъект) Экспорт
    
    // Получаем двоичные данные макета с сервера
    ДвоичныеДанныеМакета = ПолучитьМакетССервера();
    
    // Создаем временный файл на диске пользователя
    ИмяФайлаВременное = ПолучитьИмяВременногоФайла(".doc");
    ДвоичныеДанныеМакета.Записать(ИмяФайлаВременное);
    
    // Получаем данные кадрового документа с сервера
    СтруктураДанных = ПолучитьДанныеДляПечати(СсылкаНаОбъект);
    
    Попытка
        // Инициализируем COM-объект Microsoft Word
        ДокументWord = ПолучитьCOMОбъект(ИмяФайлаВременное);
        
        // Определяем константы для операции замены
        wdReplaceAll = 2; 
        
        // Получаем объект поиска и замены в тексте документа
        Замена = ДокументWord.Content.Find;
        
        // Выполняем замену параметров данными из нашей структуры
        Замена.Execute("{v8 НомерДоговора}", , , , , , , , , СтруктураДанных.НомерДоговора, wdReplaceAll);
        Замена.Execute("{v8 ДатаДоговора}", , , , , , , , , Формат(СтруктураДанных.ДатаДоговора, "ДФ=dd.MM.yyyy"), wdReplaceAll);
        Замена.Execute("{v8 РаботникФИО}", , , , , , , , , СтруктураДанных.ФИОСотрудника, wdReplaceAll);
        Замена.Execute("{v8 ОрганизацияПолноеНаименование}", , , , , , , , , СтруктураДанных.ОрганизацияНаименование, wdReplaceAll);
        
        // Делаем окно MS Word видимым для пользователя
        ДокументWord.Application.Visible = Истина;
        ДокументWord.Activate();
        
    Исключение
        // В случае отсутствия установленного Word или иных ошибок корректно информируем пользователя
        ВызватьИсключение "Ошибка при работе с MS Word: " + КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
    КонецПопытки;

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

Функция СформироватьОбъединенныйДокументБСП(МассивДокументов) Экспорт

    // Получаем двоичные данные макета из внешней обработки
    ДвоичныеДанныеМакета = ЭтотОбъект.ПолучитьМакет("ТрудовойДоговорШаблон");
    
    // Инициализируем макет офисного документа средствами БСП
    Макет = УправлениеПечатью.ИнициализироватьМакетОфисногоДокумента(ДвоичныеДанныеМакета, Неопределено);
    
    // Инициализируем результирующий документ в оперативной памяти сервера
    ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(Неопределено, Макет.НастройкиСтраницыМакета, Макет);
    
    // Выясним структуру данных для печати по всему списку документов
    ТаблицаКадровыхДанных = ПолучитьТаблицуКадровыхДанных(МассивДокументов);
    
    ПерваяСтраница = Истина;
    
    Для Каждого СтрокаДанных Из ТаблицаКадровыхДанных Цикл
        
        // Получаем область из шаблона
        Область = УправлениеПечатью.ОбластьМакета(Макет, "ТелоДоговора");
        
        // Формируем структуру параметров для заполнения
        ДанныеЗаполнения = Новый Структура;
        ДанныеЗаполнения.Вставить("НомерДоговора", СтрокаДанных.НомерДоговора);
        ДанныеЗаполнения.Вставить("ДатаДоговора", Формат(СтрокаДанных.ДатаДоговора, "ДФ=dd.MM.yyyy"));
        ДанныеЗаполнения.Вставить("РаботникФИО", СтрокаДанных.ФИОСотрудника);
        ДанныеЗаполнения.Вставить("ОрганизацияПолноеНаименование", СтрокаДанных.ОрганизацияНаименование);
        
        // Если это не первый сотрудник, нам необходимо вставить разрыв страницы перед выводом следующего договора
        ВставитьРазрывСтраницы = Не ПерваяСтраница;
        
        // Присоединяем область к итоговому документу и заполняем ее параметры
        УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ДанныеЗаполнения, ВставитьРазрывСтраницы);
        
        ПерваяСтраница = Ложь;
        
    КонецЦикла;
    
    // Формируем готовый объединенный файл во временном хранилище
    АдресХранилища = УправлениеПечатью.СформироватьДокумент(ПечатнаяФорма);
    
    // Обязательно освобождаем память и очищаем ссылки
    УправлениеПечатью.ОчиститьСсылки(ПечатнаяФорма);
    УправлениеПечатью.ОчиститьСсылки(Макет);
    
    Возврат АдресХранилища;

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

Процедура ПечатьСпискаЧерезCOM(МассивДокументов) Экспорт

    // Инициализируем основное приложение MS Word
    Попытка
        MSWord = Новый COMОбъект("Word.Application");
        MSWord.Visible = Ложь;
    Исключение
        ВызватьИсключение "Не удалось запустить Microsoft Word. Убедитесь, что приложение установлено.";
    КонецПопытки;
    
    // Создаем один главный пустой документ
    ГлавныйДокумент = MSWord.Documents.Add();
    
    ТаблицаКадровыхДанных = ПолучитьТаблицуКадровыхДанных(МассивДокументов);
    ДвоичныеДанныеМакета = ЭтотОбъект.ПолучитьМакет("ТрудовойДоговорШаблон");
    
    ПервыйДокумент = Истина;
    
    Для Каждого СтрокаДанных Из ТаблицаКадровыхДанных Цикл
        
        // Создаем уникальный временный файл для заполнения данных текущего сотрудника
        ИмяВременногоШаблона = ПолучитьИмяВременногоФайла(".doc");
        ДвоичныеДанныеМакета.Записать(ИмяВременногоШаблона);
        
        // Открываем временный файл шаблона как отдельный документ
        ТекущийДокумент = MSWord.Documents.Open(ИмяВременногоШаблона);
        
        // Выполняем автозамену полей
        wdReplaceAll = 2;
        Замена = ТекущийДокумент.Content.Find;
        Замена.Execute("{v8 НомерДоговора}", , , , , , , , , СтрокаДанных.НомерДоговора, wdReplaceAll);
        Замена.Execute("{v8 РаботникФИО}", , , , , , , , , СтрокаДанных.ФИОСотрудника, wdReplaceAll);
        
        // Сохраняем и закрываем временный заполненный документ
        ТекущийДокумент.Save();
        ТекущийДокумент.Close();
        
        // Позиционируем курсор в конец главного документа
        MSWord.Selection.EndKey(6); // 6 соответствует wdStory - переход в самый конец файла
        
        Если Не ПервыйДокумент Тогда
            // Вставляем разрыв страницы (2 соответствует wdPageBreak)
            MSWord.Selection.InsertBreak(2);
        КонецЕсли;
        
        // Импортируем заполненный временный файл в главный документ
        MSWord.Selection.InsertFile(ИмяВременногоШаблона);
        
        // Удаляем временный файл с диска за ненадобностью
        Попытка
            УдалитьФайлы(ИмяВременногоШаблона);
        Исключение
            // Ошибка удаления не должна прерывать процесс печати
        КонецПопытки;
        
        ПервыйДокумент = Ложь;
        
    КонецЦикла;
    
    // Делаем итоговый объединенный файл видимым пользователю
    MSWord.Visible = Истина;
    MSWord.Application.WindowState = 1; // wdWindowStateMaximize - разворачиваем на весь экран
    MSWord.Activate();

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