Finding string in Word, searching for it in Excel column - if found, replace in Word

[Cubajz]

I need to ask for help: I now have document with multiple tables in it and I am using this solution which is very far from elegant : I Just changed the first line of code with .Tables(1) then .Tables(2) .Tables(3) etc ..

For Each oCell In ActiveDocument.Tables(1).Range.Cells
        Set oRng = oCell.Range
        With oRng.Find
            .Font.ColorIndex = wdRed
            .MatchWildcards = True
            If .Execute Then
                For lngIndex = 0 To UBound(m_arrExcelContent, 2)
                    If InStr(m_arrExcelContent(0, lngIndex), Trim(oRng.Text)) > 0 Then
                        With oCell
                            .Range.Text = m_arrExcelContent(0, lngIndex)
                            .Range.Font.ColorIndex = wdAuto
                        End With
                        Exit For
                    End If
                Next
            End If
        End With
    Next
    
    For Each oCell In ActiveDocument.Tables(2).Range.Cells
        Set oRng = oCell.Range
        With oRng.Find
            .Font.ColorIndex = wdRed
            .MatchWildcards = True
            If .Execute Then
                For lngIndex = 0 To UBound(m_arrExcelContent, 2)
                    If InStr(m_arrExcelContent(0, lngIndex), Trim(oRng.Text)) > 0 Then
                        With oCell
                            .Range.Text = m_arrExcelContent(0, lngIndex)
                            .Range.Font.ColorIndex = wdAuto
                        End With
                        Exit For
                    End If
                Next
            End If
        End With
    Next


...

Is there an easy way to edit macro so it would go through every table in document? Thank you guys