|
virtus
Гость
|
 |
« : 04-04-2005 10:06 » |
|
Скрипт выдирает контакты и вписывает в ворд документ, только нужно что бы он не создавал новый документ на каждого человека, а просто в этом документе содавал новую страницу (т.е. нужно не 1000 документов., а 1000 страниц)...ВОТ КОД
=================================================
Word = CreateObject("Word.Basic");
ВыбратьСТроки();
Таб.ВывестиСекцию("Шапка");
Таб1.ВывестиСекцию("Шапка");
ПП = 1;
ПП1 = 1;
Сч = 1;
Пока ПолучитьСтроку() = 1 Цикл
Если (Сч >= СКакого) И (Сч <= ПоКакой) Тогда
//Если КарточкаБонус.Процент =
Перечисление.Скидка.ДвадцатьПять Тогда
FullNameFile=СокрЛП(КаталогИБ()+"\forms\Поздр_Киев_25%.dot");
//иначеЕсли КарточкаБонус.Процент =
Перечисление.Скидка.Пятьдесят Тогда
//
FullNameFile=СокрЛП(КаталогИБ()+"\forms\Поздр_Киев_50%.dot");
//КонецЕсли;
// проверим наличие файла-шаблона в каталоге ИБ.
// покричим, если файла нет
Если ФС.СуществуетФайл(FullNameFile)=0 Тогда
Предупреждение("Нет файла
"+FullNameFile+РазделительСтрок+"письма не формируются!");
Возврат;
КонецЕсли;
//----------------------------------------------------------------------
-------------
// файл есть. Создаем новый текстовый документ в
Ворде.
Word.FileNew( FullNameFile );
ПозицияФамилии = Найти(Клиент.Наименование," ");
ИмяКлиента =
Сред(Клиент.Наименование,ПозицияФамилии+1,СтрДлина(Клиент.Наименование))
;
Если Клиент.Пол = Перечисление.Пол.мужской Тогда
Word.SetFormResult("CLIENT","Уважаемый
"+СокрЛП(ИмяКлиента)+"!");
ИначеЕсли Клиент.Пол = Перечисление.Пол.женский
Тогда
Word.SetFormResult("CLIENT","Уважаемая
"+СокрЛП(ИмяКлиента)+"!");
Иначе
Word.SetFormResult("CLIENT","Уважаемый
(ая) "+СокрЛП(ИмяКлиента)+"!");
КонецЕсли;
КонецЕсли;
// преобразовываем дату в строку и передаем в шаблон
//Word.SetFormResult("DataDoc",
СокрЛП(Строка(ДатаДок)));
//Word.SetFormResult("DataDoc1",СокрЛП(Строка(ДатаДок)));
//покажем результат
Word.AppShow();
==========================================================
подсказали, что строки находятся в массиве, но я не пойму что и как...
кто-то поможет исправить?
СПАСИБО.
|
