Имя: Пароль:
1C
1С v8
Копирование в цикле фрагмента шаблона Word
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()
   КонецЦикла;
2 dk
 
24.07.13
10:02
недавно вроде была такая темка
1. копируешь нужный фрагмент
2. заменяешь параметры
3. вставляешь фрагмент
4. заменяешь параметры
5. вставляешь фрагмент
6. заменяешь параметры
...
3 fantomrik
 
24.07.13
10:05
(2) Не могу разобраться как скопировать фрагмент в буфер и вставить после замены параметров....
4 dk
 
24.07.13
10:06
запись макроса и поиск в помощь
5 fantomrik
 
24.07.13
10:08
(4) Поделитесь куском кода пожалуйста!
6 dk
 
24.07.13
10:09
капец, это твоя же тема и была v8: Форматированный программный вывод в Word
7 fantomrik
 
24.07.13
10:16
(6) О.о ... Прошу прощения, ни памяти, ни умения пользоваться поиском, спасибо!!!