| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
yaffil
Профи
Вступление в Клуб: 18.08.2011
|
 Ср Дек 07, 2016 12:03 Шаблон Ворда |
 |
Полезность: Нет оценки
|
Привет всем,
Есть в ЦФТ пример операшки, которая по шаблону Ворд заполняет его много раз не открывая новый Ворд.
Грубо говоря по списку клиентов надо сделать маленькое письмо им, но чтобы открылось не 100500 вордов, а ОДИН со 100500 страницами (чтобы тыкнул один раз на печать и готово, а не тыкать в каждый) |
|
 |
Volod
Эксперт
Вступление в Клуб: 19.09.2007
|
| Ср Дек 07, 2016 12:41 |
|
Полезность: 1
|
Я так делал
| Код: | NumLetter = CInt(GetData("КОЛ_ПИСЕМ")) ' кол-во писем
' в цикле заполняем раздел 1 шаблона и делаем его копию
For x = 1 To NumLetter
TextData = "@@@" & CStr(x) 'передаем номер строки в Проверку для индекса таблицы
Call Form1.ScriptServerValidate( TextData, "####" )
' заполняем Закладки в шаблоне
Call SetFormField(WrdApp, WrdDoc, "ДОЛЖНОСТЬ_БОССА")
Call SetFormField(WrdApp, WrdDoc, "ФИО_БОССА")
Call SetFormField(WrdApp, WrdDoc, "ДАТА_ПИСЬМА")
...
Call SetFormField(WrdApp, WrdDoc, "ИСХОДЯЩИЙ")
' копируем в новый раздел
' при копировании Закладки остаются в разделе 1
Call CopySection(WrdApp, WrdDoc)
Next
WrdDoc.Sections(1).Range.Delete ' удаляем раздел 1, чтобы не было повторения |
|
|
|
yaffil
Профи
Вступление в Клуб: 18.08.2011
|
| Ср Дек 07, 2016 12:45 |
|
Полезность: Нет оценки
|
Чес слово я ничего не понял, куда это вставлять и что с этим делать  |
|
|
vtar
Эксперт
Вступление в Клуб: 20.03.2009
|
| Ср Дек 07, 2016 13:39 |
|
Полезность: 1
|
| yaffil пишет: | | Чес слово я ничего не понял, куда это вставлять и что с этим делать |
в клиент - скрипт.
Я для одного банка делал такую штуку лет 6 назад
открывал один ворд
потом открывал второй по шаблону
копировал в первый
и так сто раз
долго, зато сопровождать просто.
В конце делалось видимым окно с первым вордом со 100500 документами, а в процессе - в окне формы выодилось типа
1/100500
2/100500 |
|
|
yaffil
Профи
Вступление в Клуб: 18.08.2011
|
| Ср Дек 07, 2016 13:42 |
|
Полезность: Нет оценки
|
Всем спасибо - юзер передумал, теперь ему надо наоборот  |
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
О проекте
Поиск
Отзывы
Регистрация
Вход
