Определение номера таблицы в Word

@~~Busine2009~~ · 18.07.2009, 07:24. **Показов** 12282. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Добрый день!

Ставлю курсор в таблицу и хочу узнать ее порядковый номер (ведь каждая таблица в документе имеет порядковый номер).

Как это можно сделать? Т.е. ставлю курсор в таблицу, нажимаю кнопку макроса и появляется окно: Таблица № такой-то.

@Toxa33rus · 18.07.2009, 22:45

Попробуйте так:

Visual Basic

1	currentTable = ActiveDocument.Range(1, Selection.Start).Tables.Count

Код глючный, но лучше ничего пока не могу предложить

@~~Busine2009~~ · 19.07.2009, 11:13 **[ТС]**

Я сегодня на форумах поскребал, но еще не разобрался, да и ошибки выдаются, как впрочем в вашем коде. Вот эти коды:

Visual Basic

ActiveDocument.Range(ActiveDocument.Range.Start, Selection.Start).Tables.Count
 
ActiveDocument.Tables(ActiveDocument.Range(ActiveDocument.Range.Start, Selection.Start).Tables.Count).ID
 
ActiveDocument.Range(ActiveDocument.Content.Start, Selection.Range.End + 1).Tables.Count
 
Dim MyTabl as Word.Table
set MyTabl = ActiveDocument.Tables(ActiveDocument.Range(ActiveDocument.Range.Start, Selection.Start).Tables.Count)

Добавлено через 12 часов 4 минуты 30 секунд
Хотя я ошибся, ваш код работает. Только почему-то вчера не сработал, наверное, что-то перепутал. Спасибо.

@Toxa33rus · 21.07.2009, 10:13

Помоему это все одно и то же

@~~Busine2009~~ Заблокирован
		1
	Определение номера таблицы в Word 18.07.2009, 07:24. Показов 12282. Ответов 3 Метки нет (Все метки) Добрый день! Ставлю курсор в таблицу и хочу узнать ее порядковый номер (ведь каждая таблица в документе имеет порядковый номер). Как это можно сделать? Т.е. ставлю курсор в таблицу, нажимаю кнопку макроса и появляется окно: Таблица № такой-то. 0

@Toxa33rus 3896 / 899 / 122 Регистрация: 16.04.2009 Сообщений: 1,825
	21.07.2009, 10:13	4
	Помоему это все одно и то же 0