How to find & replace text in tables only in word 2003?

[Funfunfan]

Hello,
I want to find and replace text in tables only, without affecting the rest of the text.
I tried various solutions found on the internet, but they don't work in my case.

[I've solved this problem using the well known solution: adding a special symbol at the end of each table cell by replacing formatted  text in tables with ^&§§§, etc. but it's not efficient enough, I'm looking for something better.]
Thank you for your suggestions.

[#2]

@Funfunfan Use a macro containing the following code

Dim strReplace As String
Dim strFind As String
strFind = InputBox("Insert the text to be replaced")
strReplace = InputBox("Insert the replacement text")
Selection.HomeKey wdStory
With Selection.Find
    Do While .Execute(FindText:=strFind, Forward:=True, _
    MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = True
        If Selection.Information(wdWithInTable) = True Then
            Selection.Text = strReplace
        Else
            Selection.Collapse wdCollapseEnd
        End If
    Loop
End With

[#3]

Thank you. It only replaces one instance. I need the Replace All function working in tables only.

[#4]

Replace
Wrap:=wdFindStop
with
Wrap:=wdFindContinue

Avoid making a replacement such as Testing for Test

[#5]

Thanks. It worked, but for some reason each time I apply this, the same portion of the text that is not in table starts flashing, and after 5 or 10 seconds word goes into Not responding mode and brings out the Close program dialog.