Добавить строку в таблицу word программно

Код для 7.7

        Счет.ВыбратьСтроки();

        // заполнение таблицы номенклатуры        

        
        Для СчетчикЦикла = 1 По Счет.КоличествоСтрок() Цикл

            
            мОбъект.Tables(1).Rows.Add();        // добавляем строку в конец таблицы

            
            Счет.ПолучитьСтрокуПоНомеру(СчетчикЦикла);

            
            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,1).Range.Text = Счет.НомерСтроки;

            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,2).Range.Text = СокрЛП(Счет.Номенклатура.ПолнНаименование);

            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,3).Range.Text = СокрЛП(Формат(Счет.Количество, «Ч010.2»));

            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,4).Range.Text = Строка(Счет.Единица);

            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,5).Range.Text = глФрм(Счет.Цена);

            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,6).Range.Text = глФрм(Счет.СуммаНДС);

            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,7).Range.Text = глФрм(Счет.Сумма);

        КонецЦикла;

        
        // итоги

        мОбъект.Tables(2).Cell(1,2).Range.Text = СокрЛП(Формат(Счет.Итог(«Количество»), «Ч010.2»));

        мОбъект.Tables(2).Cell(1,5).Range.Text = глФрм(Счет.Итог(«СуммаНДС»));

        мОбъект.Tables(2).Cell(1,6).Range.Text = глФрм(Счет.Итог(«Сумма»));

не ругается только так:

Word.Tables(3).Cell(1,1).Range.Text = СтрокаСотрудник.Сотрудник;

Word.Tables(3).Cell(1,2).Range.Text = СтрокаСотрудник.Сотрудник.Код;

Может в шапке дело?

Про мОбъект:

    // формируем файл

    мWord = СоздатьОбъект(«Word.Application»);

    мWord.Visible = 0;

    мNewDoc = мWord.Documents;

    мШаблон = СокрЛП(Строка(КаталогШаблонов + мШаблон));

    мДок = мNewDoc.Add(мШаблон, 0, 0, 1);  

    
    // верхний колонтитул

    мКолонтитул = мДок.Sections.Item(1).Headers.Item(1).Range;

    мКолонтитул.Find.Execute(«[ПечНомерДоговора]»,0,0,,,,,,,мНомерДоговора,2);

    мКолонтитул.Find.Execute(«[ПечДатаДоговора]»,0,0,,,,,,,Нрег(СокрЛП(мДатаДоговора)),2);

        
    мОбъект = мДок.Content;

не понимаю, толи я такое балбесь, то ли что?

Делаю как у вас:

    мWord = Новый COMОбъект(«Word.Application»);

    мWord.Visible = 0;

    мNewDoc = мWord.Documents;

    мШаблон = СокрЛП(Строка(«\СОтпуска.doc»));

    мДок = мNewDoc.Add(мШаблон, 0, 0, 1);  

    мОбъект = мДок.Content;

    Для каждого СтрокаСотрудник Из СсылкаНаОбъект.РаботникиОрганизации Цикл

        мОбъект.Tables(3).Rows.Add();

        мОбъект.Tables(3).Cell(СтрокаСотрудник.НомерСтроки,1).Range.Text = Строка(СтрокаСотрудник.Сотрудник);

        мОбъект.Tables(3).Cell(СтрокаСотрудник.НомерСтроки,2).Range.Text = Строка(СтрокаСотрудник.Сотрудник.Код);

    КонецЦикла;

Все равно таже ошибка на строке мОбъект.Tables(3).Cell(): «запрашиваемый номер семейства не существует».

мОбъект.Tables(2) — экземпляр таблицы Word, где (2) — порядковый номер самой таблицы Word. У меня 2 таблицы, поэтому в первом случае — мОбъект.Tables(1), а во втором — мОбъект.Tables(2).

Кроме того, счетчик строк (Cell) — у меня первые 2 строки таблицы — шапка самой таблицы, поэтому

       Для СчетчикЦикла = 1 По Счет.КоличествоСтрок() Цикл

            
            мОбъект.Tables(1).Rows.Add();        // добавляем строку в конец таблицы

            
            Счет.ПолучитьСтрокуПоНомеру(СчетчикЦикла);

            
            мОбъект.Tables(1).Cell(СчетчикЦикла + 2,1).Range.Text = Счет.НомерСтроки;

(13) Нужно пробовать:

    Для каждого СтрокаСотрудник Из СсылкаНаОбъект.РаботникиОрганизации Цикл

        мОбъект.Tables(3).Rows.Add();

        мОбъект.Tables(3).Cell(СтрокаСотрудник.НомерСтроки + 2,1).Range.Text = Строка(СтрокаСотрудник.Сотрудник);

        мОбъект.Tables(3).Cell(СтрокаСотрудник.НомерСтроки + 2,2).Range.Text = Строка(СтрокаСотрудник.Сотрудник.Код);

    КонецЦикла;

ИМХО, нужно подбирать. Хотя если умеешь писать макросы (14) — будет быстрее.

(20) вот и думаю дело в шапке, но пошла по другому. Двигаю курсор, табличку конечно заполнила, но вопрос открыт, почему же Cell не срабатывает

Text = Word.Selection;

//позицианируемся на строке таблицы

Text.MoveDown(, 19); // вниз на строки

Text.MoveRight(, 11); //вправо на строки

Position = Text.Range();

Табл = Doc.Tables.Item(3);

Для каждого СтрокаСотрудник Из СсылкаНаОбъект.РаботникиОрганизации Цикл

Text.InsertRows(); //Добавляем строку

Word.ActiveWindow.ActivePane.Selection.TypeText(строка(СтрокаСотрудник.Сотрудник));

Text.MoveRight(, 1); //вправо на строки

Word.ActiveWindow.ActivePane.Selection.TypeText(строка(СтрокаСотрудник.Сотрудник.Код));

КонецЦикла;

(22) Я бы тупо перебором пробовала:

мОбъект.Tables(3).Cell(СтрокаСотрудник.НомерСтроки + 2,1).Range.Text = Строка(СтрокаСотрудник.Сотрудник);

НомерСтроки + 2 (0,1,2,3,4……)

Не факт, что взлетит, но я бы попробовала

Масянька

27 — 25.09.13 — 11:10

Функция Прим()
 Ворд = Новый COMОбъект("Word.Application");
 Док = Ворд.Documents.Open(ИмяФайла);

 Табл=Док.Tables(1);

 Итого = 0;

 Сч = 1;
 для Каждого стрСчет из СсылкаНаОбъект.Товары Цикл
  сч=сч+1;
  ТекстВ_Ячейку(сч,1,стрСчет.номерстроки);
  ТекстВ_Ячейку(сч,2,стрСчет.Номенклатура.НаименованиеПолное);
  ТекстВ_Ячейку(сч,3,стрСчет.Количество);
  ТекстВ_Ячейку(сч,4,стрСчет.Цена);
  ТекстВ_Ячейку(сч,5,стрСчет.Сумма);

  Если сч-1 <> СсылкаНаОбъект.Товары.Количество() Тогда
       Ворд.Selection.InsertRowsBelow(1);//САМА ВСТАВКА
  КонецЕсли;

  Итого = Итого + стрСчет.Сумма;
 КонецЦикла;

 ТекстВ_Ячейку(сч+1,5,Итого);

 Док.Application.Visible = Истина;




КонецФункции

Функция ТекстВ_Ячейку(Стр,Кол,Текст)
 Табл.Cell(стр,Кол).Select();//Строка, Колонка
 Ворд.Selection.TypeText(строка(Текст));
КонецФункции

Полезно ли: