vba word 怎样选中 某字符串所在的表格

Question

比如，一个word文档里面有多个表格，其中某个表格里面有字符串123。

我不知道字符串123所在的表格是第几个，但是想要选中这个表格，怎么实现？

请各位大佬指导一下，谢谢了。

Answer 1

Sub aa()
    n = ActiveDocument.Tables.Count
    f = "soar"  '这里是你要找的文字
    ff = f & vbCr & Chr(7)
    st = 0
    For i = 1 To n
        m = ActiveDocument.Tables.Item(i).Rows.Count
        l = ActiveDocument.Tables.Item(i).Columns.Count
        For j = 1 To m
            For k = 1 To l
                If ActiveDocument.Tables.Item(i).Rows(j).Cells(k).Range.Text = ff Then
                    ActiveDocument.Tables(i).Select
                    st = 1
                    Exit For
                End If
            Next
            If st = 1 Then
                Exit For
            End If
        Next
        If st = 1 Then
            Exit For
        End If
    Next
End Sub