Страница 1 из 1
Определения номера таблицы в Word
Добавлено: 21 авг 2007, 13:03
Slavik_TZ
Помогите. может кто-то сталкивался...
Как определить номер таблицы в документе Word, если известно что в ней находится определенное слово, символ...
Selection.Execute FindText:="определенное слово"... а дальше
Selection.Information смотрел не подходит
Зарание благодарен !!!
Re: Определения номера таблицы в Word
Добавлено: 21 авг 2007, 14:41
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
Может быть можно и оптимальней сделать, но не нашел свойство "номер таблицы". Пришлось вводить свой счетчик.
Re: Определения номера таблицы в Word
Добавлено: 21 авг 2007, 14:51
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)
Ваш тоже хорош, но а если слово не в таблице, и зарание извесно что следующая строка точно в таблице
Определенное слово
-----------------------------
таблица
-----------------------------