|
0
fantomrik
24.07.13
✎
09:56
|
Ребята, помогите пожалуйста. Есть простенький макет в Ворд, в зависимости от количество строк ТЗ сейчас у меня создается такое же количество документов в ворд и в них заменяются параметры. Нужно переделать, что бы документ был 1, а в нем N число раз был скопирован и вставлен изначальный шаблон (ну и в цикле параметры я заменю на значения ТЗ).
Заранее спасибо!
|
|
|
1
fantomrik
24.07.13
✎
09:58
|
Для Инд = 0 По КолДокументов Цикл
//Проверим является ли строка ТЗ с данными по сотруднику или это одна из группировок.. Если группировка - пропустим виток цикла
Если НЕ ЗначениеЗаполнено(ТаблицаЗначений[Инд].Сотрудник) Тогда
Продолжить;
КонецЕсли;
//Получим объект Microsoft Word из макета
ОбъектВорд = ПолучитьМакет("Бланк").Получить();
// Получим документ из объекта и активируем его
Документ = ОбъектВорд.Application.Documents(1);
Документ.Activate();
// Поиск и замена маркеров
Замена = Документ.Content.Find;
Замена.Execute("[ВоинскийКомиссариат]", , , , , , , , ,Строка(ТаблицаЗначений[Инд].ВоенныйКомиссариат), 2);
Замена.Execute("[ФИОФизЛиц]", , , , , , , , , Строка(ТаблицаЗначений[Инд].Физлицо), 2);
Замена.Execute("[Звание]", , , , , , , , , Строка( ТаблицаЗначений[Инд].Звание), 2);
Замена.Execute("[ВУС]", , , , , , , , , Строка(ТаблицаЗначений[Инд].ВУС), 2);
// Вывод документа
ОбъектВорд.Application.Visible = Истина;
ОбъектВорд.Activate()
КонецЦикла;
|
|
