Вход | Регистрация

Форумы на Кубань.Ру


1С:Предприятие ::

Метки:

Как вытянуть средствами 1c7.7 инфу из таблиц Word

Ø
Я
   LubK
26.11.04 - 17:20
Из таблиц Exsel легко
  Ехел=СоздатьОбъект("Excel.Application");
  РабочаяКнига=Ехел.WorkBooks;
  РабочаяКнига.Open(Файл);
  Лист=Ехел.WorkSheets("tee");	
  Для ПоСтрокам=1 По 450 Цикл
    Ячейка=Лист.Cells(ПоСтрокам,2);
    Назва=СокрЛП(Ячейка.Value);
  КонецЦикла;
А в Word
  Word = СоздатьОбъект("Word.Application");
  Док=Word.Documents.Open(Файл);
  Таб=Док.Tables();
а далее
  Для ПоСтрокам=1 По 150 Цикл
     Ячейка=Таб.Cell(ПоСтрокам,2); -  ошибка
 
 
   Gloom
1 - 26.11.04 - 17:26
Таб=Док.Tables(ИндексТаблицы);
   LubK
2 - 26.11.04 - 17:57
Извините, можна чуть-чуть детальнее а то
Таб=Док.Tables(ИндексТаблицы<<?>>);
{C:\BAZA\TABLE\EXTFORMS\WORD.ERT(15)}: Переменная не определена (ИндексТаблицы)
   Gloom
3 - 26.11.04 - 18:02
(2)А головой подумать?
ИндексТаблицы=1;
Таб=Док.Tables(ИндексТаблицы);
   LubK
4 - 26.11.04 - 18:28
А может еще немножно подскажите
Word = СоздатьОбъект("Word.Application");
Док=Word.Documents.Open(Файл);
ИндексТаблицы=1;
Таб=Док.Tables(ИндексТаблицы);
КРяд=Таб.Rows.Count();
ККол=Таб.Columns.Count();
Для ПоСтрокам=1 По 150 Цикл
Ячейка=Таб.Cell(ПоСтрокам,1);
А как вытянуть содержимое этой ящейки?
 //Назва=Ячейка.Value; Ошибка -Поле агрегатного объекта не обнаружено (Value)
Пожалуйста.
   LubK
5 - 26.11.04 - 18:40
Нашел!!! Может кому пригодится
  Назва=Ячейка.Range.Text



Список тем форума

Форум Территория 1С

Рекламное место пустует  
2 + 2 = 3.9999999999999999999999999999999...
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует