Как передать данные в другой столбец таблицы WORD

Процедура ПечатьПоШаблону()
   //WD = СоздатьОбъект("Word.Application");
   Попытка
      WD = СоздатьОбъект("Word.Application");
   Исключение
      Сообщить(ОписаниеОшибки(),"!!!");
      Сообщить("Возможно, MS Word не установлен на этом компьютере.");
      Возврат;
   КонецПопытки; 
   НовыйДокумент = WD.Documents;
   ТД = НовыйДокумент.Add (КаталогИБ()+"\shablon\УдостоверениеКачество.dot");
   WD.Visible = 1; 
   ТД.Variables("ППроизОбъединение").Value = СокрЛП(ПроизОбъединение.ПолнНаименование);
   ТД.Variables("ПЛаборатория").Value = СокрЛП(Лаборатория.ПолнНаименование);
   ТД.Variables("ПНомерНакладной").Value = СокрЛП(НомерНакладной);
   ТД.Variables("ПДатаНакладной").Value = СокрЛП(ДатаНакладной);
   ТД.Variables("ПДатаНакладной").Value = СокрЛП(ДатаНакладной);
   ТД.Variables("ПАвто").Value = СокрЛП(ВидТранспорта);
   ТД.Variables("ППлательщик").Value = СокрЛП(Плательщик.ПолнНаименование);
   ТД.Variables("ПАдрес").Value = глПредставлениеАдреса(ПроизОбъединение.ПочтовыйАдрес);

Тут заполняю таблицу
проблема в том что у меня в таблице 7 столбцов
программа заполняет только первый столбец

как сменить столбец?


    ТД.Fields.UpDate();
        ВыбратьСтроки();
        Таблица = ТД.Tables.Item(2);
        Ном = 0;
      НомПартии = 0;
        Пока ПолучитьСтроку() = 1 Цикл
            
            Ном = Ном + 1;
            
            ТД.Tables(2).Rows.Add();
            Таблица.Cell(Ном + 1,1).Select();
            ТД.ActiveWindow.ActivePane.Selection.ParagraphFormat.Alignment = 1; // выравнивание по центру
         Если ПустоеЗначение(НомерПартии) =1 Тогда
            НомПартии = НомПартии +1;
            НомерПартии = НомПартии;
         КонецЕсли;
            ТД.ActiveWindow.ActivePane.Selection.TypeText(СокрЛП(НомерПартии));
        КонецЦикла;