Replace In Table #Word

ReplaceInTable.bas

Function ReplaceInTable(textToFind As String) As String
'http://www.msofficeforums.com/word-vba/28049-vba-table-search-all-tables-find-replace.html
Dim oRng As Range
Set oRng = ActiveDocument.Range
'if used as sub add inputbox for texttofind
    With oRng.Find
        Do While .Execute(FindText:=textToFind)
            If oRng.Information(wdWithInTable) Then
                oRng.Select
                Selection.Cells(1).Next.Select
                Set oRng = Selection.Range
                
                ReplaceInTable = CleanTrim(oRng.Text, True)
                GoTo lbl_Exit
            End If
        Loop
    End With
lbl_Exit:
    'ReplaceInTable = "" 'could not find a reference table
    Exit Function
End Function