День добрый, подскажите как добавить строки в макет Word?
Делаю так:         
Табл = Word.Tables.Item(3);
Для каждого СтрокаСотрудник Из СсылкаНаОбъект.РаботникиОрганизации Цикл
Табл.Rows.add();
Табл.Cell(СтрокаСотрудник.НомерСтроки,1).Select();
Word.ActiveWindow.ActivePane.Selection.TypeText(строка(СтрокаСотрудник.Сотрудник));
Табл.Cell(СтрокаСотрудник.НомерСтроки,2).Select();
Word.ActiveWindow.ActivePane.Selection.TypeText(Строка(СтрокаСотрудник.Сотрудник.Код));
КонецЦикла;
Ругается на строке Табл.Cell(): "запрашиваемый номер семейства не существует".

подскажите что делаю не так? Плиззз

пробовала так делать, таже ошибка:
Word.Tables(1).Cell(СчетчикЦикла + 2,1).Range.Text = Счет.НомерСтроки;

Код для 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;

(4) Дело не в шапке, а в Word.Tables(3) - это и есть таблица.

не понимаю, толи я такое балбесь, то ли что?
Делаю как у вас:
    м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 = Счет.НомерСтроки;

(8) в том и проблема, что он вообще ругается на Cell(), не принимает ничего, кроме Cell(1, 1)
Даже если пишу руками Cell(2, 1) уже не работает!

(9) Покажи скриншот таблицы Word.

(10) типовая форма T-6а (Приказ на отпуск)

(11) Это "скриншот"? Я просила скриншота таблицы (с макета) Word.

http://files.mail.ru/26D1CDDFB93C4F57A69FE3ED9F43DFCA

(13) открой этот шаблон в ворде , включи запись макроса , сделай что тебе надо , останови запись макроса , посмотри что он туда записал

(13) Нужно пробовать:
    Для каждого СтрокаСотрудник Из СсылкаНаОбъект.РаботникиОрганизации Цикл
        мОбъект.Tables(3).Rows.Add();
        мОбъект.Tables(3).Cell(СтрокаСотрудник.НомерСтроки + 2,1).Range.Text = Строка(СтрокаСотрудник.Сотрудник);
        мОбъект.Tables(3).Cell(СтрокаСотрудник.НомерСтроки + 2,2).Range.Text = Строка(СтрокаСотрудник.Сотрудник.Код);
    КонецЦикла;

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

+(15) По идее - у тебя первые 2 строки таблицы - шапка.

(15) пробовала уже так, не работает :(

(17) А вообще, работа с макетом получается (ну, кроме таблицы)?

(18) Да, получается. И пробовала в другие таблицы в макете вставлять строки, все нормуль, а в которую нужно (третью со сложной шапкой) не хочет и все.

(19) Как вариант, ниже этой "сложной таблицы" вставь просто строку с нумерацией колонок и попробуй добавить в эту таблицу строки. Если получится - потом просто удалить не нужные строки и слить 2 таблицы.
Судя-по всему - шапка не нравится.

посмотри здесь http://infostart.ru/public/105132/

(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......)
Не факт, что взлетит, но я бы попробовала :)

(23) пробовала, не взлетело

(23) спасибо за помощь и поддержку! :)

А "СтрокаСотрудник.НомерСтроки" - что возвращает и какой тип?

(25) Не за что (и сама такая :) ).