Имя: Пароль:
1C
1C 7.7
v7: Как с word документа выгрузить таблицу в 1с 7.7
,
0 Geroy
 
03.04.14
13:31
Имеется документ doc в котором содержиться таблица ,её нужно  загрузить в 1с , как правильно написать обработку  ?
1 МихаилМ
 
03.04.14
13:36
в разных версиях doc по разному обращаются к объектам таблица
2 Geroy
 
03.04.14
13:39
MW  97/2000/XP
3 Mihenius
 
03.04.14
13:39
4 Mihenius
 
03.04.14
13:40
С точки зрения лицензирования лучше через Writer.
5 Mihenius
 
03.04.14
13:41
6 Mihenius
 
03.04.14
13:42
Если просто произвольная таблица без шаблонов, то лучше ее конвертировать в таблицу и по ячейкам уже можно без проблем считать/записать данные.
7 Geroy
 
03.04.14
13:48
текст + некоторые таблицы документ большой
и надо с него таблица загрузить
8 vzuperman
 
03.04.14
13:54
(5) Как сложно.
9 Mihenius
 
03.04.14
13:55
(7) Ну так почитай ссылки.

1)Из текстового документа легко работает с шаблонами.
Но нужно подготовить такой документ.
И уже заполнять подготовленный.

2)В произвольном документе к объекту "таблица" обращение зависит от версии, как уже писали в (1). Но можно через Open/Libre Office
+ учитывай, что в текстовом документе могут быть "кривые" таблицы.
10 Mihenius
 
03.04.14
13:56
(8) Расскажи как проще?
11 dk
 
03.04.14
13:58
Mihenius самими мс вордом намного проще это решается
12 Mihenius
 
03.04.14
13:59
(11) А ну да, если пойти с другой стороны, то будет проще )
13 Geroy
 
03.04.14
14:01
(11) (12)
всеравно не въехал

где посмотреть какие запросы к разным версия
да и желательно посмотреть пример такой обработки
14 dk
 
03.04.14
14:06
15 dk
 
04.04.14
07:23
Автора не научили в детстве "спасибо" говорить?
-----
даю уроки вежливости. ДОРОГО!
16 Geroy
 
04.04.14
10:36
(15) сейчас только посмотрел
а вам надо научиться терпению!!!
Спасибо!
17 Geroy
 
04.04.14
15:20
Документ в нём много таблиц , остановился на том чтоб перебирать строки и колонки и заменять колонки таблица 1с на данные из таблиц документа


Процедура ОткрытьФайл()
    
    ИмяВыбрФайла="";
    ИмяПути="";
    ФС.ВыбратьФайл(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);
            
            
        КонецЦикла;
    КонецЦикла;        
КонецПроцедуры
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.