8.х Выгрузить отчет в Word

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем Kotya, 18 ноя 2008.

  1. TopicStarter Overlay
    Kotya
    Offline

    Kotya

    Регистрация:
    14 фев 2008
    Сообщения:
    19
    Симпатии:
    0
    Баллы:
    1
    Здравствуйте! Подскажите кто что думает. Формируется отчет, затем по кнопке сохранить, отчет должен выгрузиться в Word. Переменная ТЗПод объявлена вне процедур и заполняется как таблица значений в другой процедуре. Встала проблема в том, что проходя по циклу он один раз заполняет, а на втором прохождении уходит на исключение. Может нужно добавлять строки или возможно выгружать колонками?
    Код:
    Процедура Сохранить() Экспорт
    Попытка
    Попытка
    word = Новый COMОбъект("Word.Application");
    word.Visible=true;
    doc = word.Documents.Add(СокрЛП(Константы.ШаблонПисьма.Получить()),,0);
    Исключение
    Предупреждение("На вашем комьютере не установлен MS Office. Воспользуйтесь выводом в 1С.");
    word.quit();
    word = "";
    возврат;
    КонецПопытки;
    Для н=0 по ТЗПод.Количество()-1 цикл
    СтрП = ТзПод.Получить(н);
    doc.FormFields("МунОбр").Range.Text = "г.Тюмень";
    doc.FormFields("Наименование").Range.Text = СтрП.Служ;
    КонецЦикла;
    Наименование = "Список муниципальных служащих";
    doc.SaveAs(СокрЛП(Константы.путьКФайламПисем.Получить())+ ""+Наименование+".doc",0);
    doc.Close(-1);
    word.quit();
    word = "";
    Исключение
    word.quit();;
    word = "";
    КонецПопытки;
    КонецПроцедуры
    
    

Поделиться этой страницей