Перем ДокКонт;
Процедура Сформировать()
ОткрытьФорму("Документ.ИмяДокумента",ДокКонт);
Sc = CreateObject("WScript.Shell");
//добавляем новые строки, пока пустые,
//к примеру добавим 3 строки
Стр = "INSERT";//здесь и далее служебные клавиши в фигурных скобках
Для к = 1 По 5 Цикл
Стр = Стр + "ENTER";
КонецЦикла;
//где "к" - количество реквизитов табличной части доступных для ввода,
//если реквизит имеет кнопку выбора значения из списка
//тогда перед "ENTER" надо добавить "ESC", для отмены
//интерактивного выбора
Для с = 1 По 3 Цикл
Sc.SendKeys(Стр);
КонецЦикла;
//обязательно пауза
Форма.ОбработкаОжидания("Заполним",1);
КонецПроцедуры
//заполняем строки документа
Процедура Заполним()
Попытка
Если ДокКонт.КоличествоСтрок() = 3 Тогда
Форма.ОбработкаОжидания("Заполним",0);
ДокКонт.ВыбратьСтроки();
Пока ДокКонт.ПолучитьСтроку() = 1 Цикл
//ну и заполняем пустые строки
КонецЦикла;
ДокКонт.Форма.Обновить();
КонецЕсли;
Исключение
КонецПопытки;
КонецПроцедуры
Недостаток: на медленных тачках будет довольно прикольно смотреться заполнение таблицы.
