Имя: Пароль:
1C
1C 7.7
v7: Таблица с .doc в 1с Таблицу
0 Geroy
 
04.04.14
16:15
Есть Документ в нём много таблиц , застрял на том чтоб их заполнить в цикле
Процедура ОткрытьФайл()
    
    ИмяВыбрФайла="";
    ИмяПути="";
    ФС.ВыбратьФайл(0,ИмяВыбрФайла, ИмяПути, "Выберите Файл","Документы (*.doc)|*.doc",,);
    
    Если ПустоеЗначение(ИмяВыбрФайла)=1 Тогда
        ПрДокумент="";
    Иначе
        ПрДокумент=ИмяПути+ИмяВыбрФайла;
    КонецЕсли;
    
КонецПроцедуры

Процедура word()
    Перем Таб;
    Word= СоздатьОбъект("Word.Application");
    Док=Word.Documents.Open(ПрДокумент);
    
    Для ф=1 по Док.Tables.Count() Цикл
        Ссылка=Док.Tables.Item(ф);
        КоличествоКолонок=Док.Tables.Item(ф).Range.Columns.Count();
        КоличествоСтрок=Док.Tables.Item(ф).Range.Rows.Count();
        Таб=СоздатьОбъект("Таблица");
        Таб.ИсходнаяТаблица("Таблица1");
        
        Для к=1 по  КоличествоСтрок Цикл  
            Значение1=СокрЛП(Ссылка.Cell(к,1).Range.Text);
            
            
        КонецЦикла;
    КонецЦикла;        
КонецПроцедуры
1 Geroy
 
04.04.14
16:16
в 1с Таблице
           Колонка
Строка
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс