Поиск текста в таблице

Sub Procedure_3()
 
    Dim rTable As Word.Range
    
    Set rTable = ActiveDocument.Tables(1).Range
 
    With rTable.Find
        'Нужно указать "wdFindStop" иначе,
        'если ничего не будет найдено, то поиск продолжится
        'в остальной части документа.
        .Wrap = wdFindStop
    End With
 
End Sub

Dim myRng1 As Range
Set myRng1 = ThisDocument.Tables(2).Range
    Do
        myRng1.Find.Text = "Hello"
        myRng1.Find.Wrap = wdFindStop
        Debug.Print myRng1.Find.Text
    Loop Until Selection.Find.Execute = False

If ... Then

Sub MMM()
For i = 1 To Word.ActiveDocument.Tables.Count
   For Each C In ActiveDocument.Tables(i).Range.Cells
   If C.Range.Text Like "*AA*" Then MsgBox ("Table #:" & i & Chr(13) & "Row:" & C.RowIndex & Chr(13) & "Column:" & C.ColumnIndex)
   Next
Next
End Sub

For Each C In ActiveDocument.Tables(i).Range.Cells