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

Question

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&nbsp; text in tables with&nbsp;^&amp;§§§, etc. but it's not efficient enough, I'm looking for something better.]Thank you for your suggestions.&nbsp;

doug_robbins_word_mvp · Answer

Funfunfan&nbsp;Use a macro containing the following code
&nbsp;
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

funfunfan · Answer

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

doug_robbins_word_mvp · Answer

Replace Wrap:=wdFindStopwithWrap:=wdFindContinueAvoid making a replacement such as Testing for Test

funfunfan · Answer

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.

Forum Discussion

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

Share

Resources