7.7 Печать табличной части документа в word'e

Помогите, плиз! Никак не получается выгрузить табличную часть документа из 1С (v 7.7) в word :unsure: C простыми полями управилась через создание в ворде полей формы, а как заполнить таблицу, если количество строк может быть разным?

а почему именно ворд, чем эксель не устраивает?

я использовал шаблон ворда. Файл типа dot. хотя можно наверное и простой doc сразу использовать...

в нем я создавал шапку табличного поля
потом в ворде смотришь макрос как добавляется новая строчка, переводишь этет макрос на язык понятный 1С, ну и потом обращаешься к полям таблички и пишешь туда значения из 1С.

Так и динамически нет проблем составить док. Вот пример кода создания и заполнения таблиц:

Код:

    МСВорд = СоздатьОбъект("Word.Application"); 
Документ = МСВорд.Documents;
Документ.Add();
Документ = МСВорд.ActiveDocument();
Документ.Paragraphs.Add();
Диапазон = Документ.Paragraphs(Документ.Paragraphs.Count()).Range;
//Добавим таблицу фиксированного размера 3х2
Документ.Tables.Add(Диапазон,3,2);
Документ.Tables(1).Range.Select(); 
Выбор = МСВорд.Selection();
Выбор.Style = "Сетка таблицы";
//Установим ширину обоих колонок по 8 см
Документ.Tables(1).Columns(1).Width= МСВорд.CentimetersToPoints(8);
Документ.Tables(1).Columns(2).Width= МСВорд.CentimetersToPoints(8);
//Заполнение
Документ.Tables(1).Cell(1,1).Range.Text = "Это первая сирока, первая колонка";
Документ.Tables(1).Cell(2,1).Range.Text = "";
Документ.Tables(1).Cell(3,1).Range.Text = "";
Документ.Tables(1).Cell(1,2).Range.Text = "";
Документ.Tables(1).Cell(2,2).Range.Text = "";
Документ.Tables(1).Cell(3,2).Range.Text = "Это третья строка, вторая колонка";

//Добавим таблицу с произвольным количеством строк, для примера возьмем 4 колонки
//Сначала выведем заголовок таблицы
Документ.Paragraphs.Add();
Диапазон = Документ.Paragraphs(Документ.Paragraphs.Count()).Range;
Документ.Tables.Add(Диапазон,1,4);
Документ.Tables(2).Range.Select(); 
Выбор = МСВорд.Selection();
Выбор.Style = "Сетка таблицы";
Выбор.Rows.AllowBreakAcrossPages = 0; 
//Зададим ширину колонок
Документ.Tables(2).Columns(1).Width= МСВорд.CentimetersToPoints(2);
Документ.Tables(2).Columns(2).Width= МСВорд.CentimetersToPoints(4);
Документ.Tables(2).Columns(3).Width= МСВорд.CentimetersToPoints(4);
Документ.Tables(2).Columns(4).Width= МСВорд.CentimetersToPoints(10);
//Заполнение шапки таблицы
Документ.Tables(2).Cell(1,1).Range.Paragraphs(1).Alignment = 1;
Документ.Tables(2).Cell(1,1).Range.Text = "№";
Документ.Tables(2).Cell(1,2).Range.Paragraphs(1).Alignment = 1;
Документ.Tables(2).Cell(1,2).Range.Text = "Колонка 2";
Документ.Tables(2).Cell(1,3).Range.Paragraphs(1).Alignment = 1;
Документ.Tables(2).Cell(1,3).Range.Text = "Колонка 3";
Документ.Tables(2).Cell(1,4).Range.Paragraphs(1).Alignment = 1;
Документ.Tables(2).Cell(1,4).Range.Text = "Примечание";
//Теперь выведем таблицу по таблице значений
Для А = 1 По ТЗ.КоличествоСтрок() Цикл
//Добавим строку в таблицу
Выбор.InsertRowsBelow(1); 
Документ.Tables(2).Cell(А+1,1).Range.Text = Строка(А);//номер строки
Документ.Tables(2).Cell(А+1,2).Range.Text = ТЗ.ПолучитьЗначение(А,1);
Документ.Tables(2).Cell(А+1,3).Range.Text = ТЗ.ПолучитьЗначение(А,2);
Документ.Tables(2).Cell(А+1,4).Range.Text = ТЗ.ПолучитьЗначение(А,3);
КонецЦикла; 
//Запишем Док
Документ.SaveAs("ПутьИИмяДокумента",0); 
Документ.Close();

А что такое ТЗ? Это реквизит или документ? Если вместо ТЗ я подставляю реквизит табличной части, то он ругается: "Значение не представляет агрегатный объект (ПолучитьЗначение)". Почему?

ТЗ - это таблица значений.
Для документа можно так цикл организовать:
Предположим, что Док - это документ, тогда

Код:

Для А =1 По Док.КоличествоСтрок() Цикл
Док.ПолучитьСтрокуПоНомеру(А);
Выбор.InsertRowsBelow(1); 
Документ.Tables(2).Cell(А+1,1).Range.Text = Строка(А);//номер строки
Документ.Tables(2).Cell(А+1,2).Range.Text = Док.РеквизитТабличнойЧастиДокумента1;
Документ.Tables(2).Cell(А+1,3).Range.Text = Док.РеквизитТабличнойЧастиДокумента2;
Документ.Tables(2).Cell(А+1,4).Range.Text = Док.РеквизитТабличнойЧастиДокумента3;
КонецЦикла;

Супер!!! Вот спасибки! :smile:
Столько времени убила, а тут все по полочкам разложили :unsure:

Я так обрадовалась, а он ругается ((( :
Выбор.InsertRowsBelow(1);
Метод или свойство недоступны, поскольку некоторые или все объекты не ссылаются на таблицу.
Что это значит?

Ошибка говорит про то, что выделенная область присвоенная переменной "Выбор" не содержит таблицу. Соответственно, не может добавить строку. Так трудно сказать где конкретно ошибка, покажите код.

Нашла ошибку, но появился другой косяк. Почему если я пишу ПолеНаФорме=КоличествоСтрок() он показывает верно - 2 строки, а когда я пишу:

Код:

Для НомерСтроки=1 по КоличествоСтрок() цикл
Док.ПолучитьСтрокуПоНомеру(НомерСтроки);
Выбор.InsertRowsBelow(1); 	
Документ.Tables(2).Cell(НомерСтроки+1,1).Range.Text = РеквизитТабличнойЧастиДокумента;
КонецЦикла;

происходит зацикливание, создает строки до тех пор, пока принудительно не остановишь выполнение?

И еще вопросик - как включать/выключать границы ячейки в таблице?

Вы бы писали код с префиксами, типа МойДокумент.КоличествоСтрок() вместо КоличествоСтрок(), а то так непонятно что и откуда берется. На вскидку, попробуйте поменять итератор, напишите вместо "НомерСтроки" например "НС". Все таки "НомерСтроки" ключевое слово, может он как-то влияет.

Управление границами первой ячейки в первой таблице

Код:

Документ.Tables(1).Cell(1,1).Borders(1).LineStyle=1; //Borders(1) - Верхняя граница
Документ.Tables(1).Cell(1,1).Borders(2).LineStyle=0; //Borders(2) - Левая граница
Документ.Tables(1).Cell(1,1).Borders(3).LineStyle=1; //Borders(3) - Нижняя граница
Документ.Tables(1).Cell(1,1).Borders(4).LineStyle=0; //Borders(4) - Правая граница
//Присваиваемые значения: 0 - нет границы, 1 - сплошная, 2- пунктир и т.д.

Обозвала по другому - не помогло, выкрутилась через проверку заполненности строки. :unsure: