1 Тема от Alex_Gur

  • Номер активной таблицы
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Тема: Номер активной таблицы

Определение номера активной таблицы (той таблицы, в которой находится курсор):

Sub TableNum1()
    cursor_table = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
    MsgBox (cursor_table)
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

2 Ответ от AlexStar

  • AlexStar
  • подполковник
  • Неактивен
  • Откуда: Алматы
  • Зарегистрирован: 11.07.2017
  • Сообщений: 107
  • Поблагодарили: 24
  • За сообщение: 1

Re: Номер активной таблицы

Alex_Gur пишет:

Определение номера активной таблицы (той таблицы, в которой находится курсор):

Sub TableNum1()
    cursor_table = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count
    MsgBox (cursor_table)
End Sub

Добрый день.

Может разницы и нет между номером и индексом, но чтобы было наглядно и понятно для чего это надо то:

j = ActiveDocument.Tables(cursor_table).Columns.Count
"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"