Есть скрипт в 1С, который выдерает инфу и вставляет в ворд, НО нужно....

[virtus]

Скрипт выдирает контакты и вписывает в ворд документ, только нужно что бы он не создавал новый документ на каждого человека, а просто в этом документе содавал новую страницу (т.е. нужно не 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();
==========================================================
подсказали, что строки находятся в массиве, но я не пойму что и как...
кто-то поможет исправить?
СПАСИБО.

[Kivals]

1C тут не при чем.
Работа с Вордовким документом у тебя идет коммандами VBA - в нем и смотри хелп