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);
КонецЦикла;
КонецЦикла;
КонецПроцедуры
|
|