Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Таблицы в Word, Текущая таблица 
:(
    Опции темы
lek
Дата 10.2.2005, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 30.11.2003

Репутация: нет
Всего: нет



Как узнать индекс (порядковый номер) таблицы, в которой находится курсор, чтобы в дальнейшем работать с ней как с объектом
PM MAIL WWW ICQ   Вверх
Exception
Дата 10.2.2005, 17:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186



Цитата(lek @ 10.2.2005, 15:31)
работать с ней как с объектом

Там должно быть нечто типа ActiveWorkbook или не знаю как там. А пор. номер зачем? Через этот Active... и работаешь
PM   Вверх
lek
Дата 11.2.2005, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 30.11.2003

Репутация: нет
Всего: нет



Получаю каждый день статистику в ворде, там есть текст и таблицы. Так вот, содержимое двух из этих таблиц надо бы перегнать в Excel, чтобы потом можно было посмотреть динамику изменения, построить график... Проблема в том, что эти 2 таблицы имеют неизвестные заранее номера, т.е. до них в тексте могут быть (а могут и не быть) другие таблицы, содержимое которых меня не интересует. К счастью, в документе есть закладки, которые я научился считывать и переходить по ним smile. Перйдя по нужной закладке, я выполняю
Код

   wdDoc.ActiveWindow.Selection.GoTo what:=wdGoToTable

и оказываюсь в 1 ячейке интересующей меня таблицы. Как теперь с ней работать? Можно конечно считывать по 1 ячейке, но хотелось бы с ней работать, как с объектом
PM MAIL WWW ICQ   Вверх
~FoX~
Дата 11.2.2005, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68



Код

 ActiveDocument.Tables(n)

Где n - номер таблицы.



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
lek
Дата 11.2.2005, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 30.11.2003

Репутация: нет
Всего: нет



мне и нужно узнать этот n
как это сделать?
PM MAIL WWW ICQ   Вверх
lek
Дата 16.2.2005, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 30.11.2003

Репутация: нет
Всего: нет



разобрался, может кому пригодится smile
n узнать не удалось, но вот обратится к текущей таблице, находясь курсором в её ячейке удалось так:
Код

 Selection.Tables(1)

благодарю за "советы" smile
PM MAIL WWW ICQ   Вверх
Naghual
Дата 16.2.2005, 14:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Не правильно.
Этим ты обращаешся к конкретной таблице. К 1й.
А не к той, в которой курсор.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
lek
Дата 16.2.2005, 15:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 30.11.2003

Репутация: нет
Всего: нет



ты думаешь я не проверял? если бы у меня никогда не было таблиц до нужной мне, этот бы вопрос не возник, всегда бы обращался к первой (или второй, третьей, ... но с фиксированным номером)
PM MAIL WWW ICQ   Вверх
Naghual
Дата 16.2.2005, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Хм... Интересно


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
lek
Дата 16.2.2005, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 31
Регистрация: 30.11.2003

Репутация: нет
Всего: нет



проверил на тестовом примере ещё раз:
создал файл - текст чередуется с таблицами и записал макрос из 1 строчки
Код

   Selection.Tables(1).Select


если курсор находится в одной из таблиц - она выделяется полностью
если курсор находится на тексте - ошибка 5941 - запрашиваемый номер семейства не существует
если написать selection.tables(2).select и курсор в таблице - ошибка 5941
PM MAIL WWW ICQ   Вверх
Naghual
Дата 16.2.2005, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



lek, я извеняюсь.
Я протупил! Вообще как-то проглядел что идет выбор таблицы В РАЗРЕЗЕ Selection.



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0517 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.