Word имеет коллекцию таблиц, через которую можно пройти.Внутри таблицы есть коллекция ячеек для идентификации ячеек.Таким образом, в Word вы можете написать
Sub test()
Dim t As Table
For Each t In ActiveDocument.Tables
If Left(t.Cell(1, 1).Range.Text, 8) = "This One" Then
MsgBox "Found It!"
t.Select
End If
Next t
End Sub
, чтобы найти в каждой таблице текст «This One» в верхнем левом углу.Это помогает?