Из таблиц 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(ИндексТаблицы<<?>>); {C:\BAZA\TABLE\EXTFORMS\WORD.ERT(15)}: Переменная не определена (ИндексТаблицы)
А может еще немножно подскажите Word = СоздатьОбъект("Word.Application"); Док=Word.Documents.Open(Файл); ИндексТаблицы=1; Таб=Док.Tables(ИндексТаблицы); КРяд=Таб.Rows.Count(); ККол=Таб.Columns.Count(); Для ПоСтрокам=1 По 150 Цикл Ячейка=Таб.Cell(ПоСтрокам,1); А как вытянуть содержимое этой ящейки? //Назва=Ячейка.Value; Ошибка -Поле агрегатного объекта не обнаружено (Value) Пожалуйста.
