1

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

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

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

2

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
"Ты не умничай, ты пальцем покажи"
"Кто поработал с многоуровневым списком в Ворде, тот в цирке не смеется"