Из таблиц Exsel легко
  Ехел=СоздатьОбъект("Excel.Application");
  РабочаяКнига=Ехел.WorkBooks;
  РабочаяКнига.Open(Файл);
  Лист=Ехел.WorkSheets("tee");
  Для ПоСтрокам=1 По 450 Цикл
    Ячейка=Лист.Cells(ПоСтрокам,2);
    Назва=СокрЛП(Ячейка.Value);
  КонецЦикла;
А в Word
  Word = СоздатьОбъект("Word.Application");
  Док=Word.Documents.Open(Файл);
  Таб=Док.Tables();
а далее
  Для ПоСтрокам=1 По 150 Цикл
     Ячейка=Таб.Cell(ПоСтрокам,2); - ошибка

Таб=Док.Tables(ИндексТаблицы);

Извините, можна чуть-чуть детальнее а то
Таб=Док.Tables(ИндексТаблицы<<?>>);
{C:\BAZA\TABLE\EXTFORMS\WORD.ERT(15)}: Переменная не определена (ИндексТаблицы)

(2)А головой подумать?
ИндексТаблицы=1;
Таб=Док.Tables(ИндексТаблицы);

А может еще немножно подскажите
Word = СоздатьОбъект("Word.Application");
Док=Word.Documents.Open(Файл);
ИндексТаблицы=1;
Таб=Док.Tables(ИндексТаблицы);
КРяд=Таб.Rows.Count();
ККол=Таб.Columns.Count();
Для ПоСтрокам=1 По 150 Цикл
Ячейка=Таб.Cell(ПоСтрокам,1);
А как вытянуть содержимое этой ящейки?
 //Назва=Ячейка.Value; Ошибка -Поле агрегатного объекта не обнаружено (Value)
Пожалуйста.

Нашел!!! Может кому пригодится
  Назва=Ячейка.Range.Text