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

[Slavik_TZ]

Помогите. может кто-то сталкивался...
Как определить номер таблицы в документе Word, если известно что в ней находится определенное слово, символ...
Selection.Execute FindText:="определенное слово"... а дальше
Selection.Information смотрел не подходит
Зарание благодарен !!!

[Vikar]

Может просмотреть в цикле (for each ...)все таблицы документа и если в ней есть искомое значение, то выбрать номер этой таблицы. Например:

Код: Выделить всё

Public Sub SerchTable()
Dim tb As Table
    i = 0
    For Each tb In Tables
        tb.Select
        If Selection.Find.Execute(findtext:="определенное слово...") Then
                        MsgBox "Таблица номер " + CStr(i)
        End If
        i = i + 1
    Next
End Sub

Может быть можно и оптимальней сделать, но не нашел свойство "номер таблицы". Пришлось вводить свой счетчик.

[Slavik_TZ]

Я нашел решение если использовать свойство Table ID
For I=1 To ActiveDocument.Tables.Count Step 1
Tables(I).ID=Str(I)
Next I
....
X=Int(Selection.Tables(1).ID)
Ваш тоже хорош, но а если слово не в таблице, и зарание извесно что следующая строка точно в таблице
Определенное слово
-----------------------------
таблица
-----------------------------