Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 18:03

Макет active document

Автор Liones23, 23 мар 2016, 12:56

0 Пользователей и 1 гость просматривают эту тему.

Liones23

Есть макет дополнительного соглашения с сотрудником - active document
Как вывести всех сотрудников одного подразделения в один файл wordа через этот макет?
С выводом одного сотрудника в файл нет проблем.
Попытка
MsWord= Новый COMОбъект("Word.Application");
Исключение   
Сообщить(ОписаниеОшибки() + " Программа Word не установлена на данном компьютере!");
Возврат;
КонецПопытки;

Word = MsWord.Application;    Док = ПолучитьМакет("Макет3"); MSWord = Док.Получить();
Документ = MSWord.application.Documents(1);

Если СокрЛП(Сотрудник)<>"" Тогда
    ВывестиСтрокуВДокумент(Документ,Лев(Строка(Сотрудник.ДатаДоговора),10),"<ДатаТД>");
            .........
            Документ.Fields.Update();
    Документ.Sections(1).Headers(1).Range.Fields.UpDate();
    Документ.Sections(1).Footers(1).Range.Fields.UpDate();
            Word.Application.Visible = истина;
    Word.Activate();   
        КонецЕсли;


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск