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

3

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

I found this site and hmm i cant use shoutbox. It is possible?

[url=https://medium.com/@marek.wulpe91/tiktok-musical-ly-likes-hearts-online-how-it-works-for-free-a8b3e3032a6d]get more info[/url]