macro for performing more than one find and replace procedure at the same time

Hi Rhonda, thanks a lot for your answer.

I fixed the problem. It works now!  I had to change

.MatchWildcards = True

into

.MatchWildcards = False

to make the macro read the table correctly. I also added a red color to the replacements:

.Replacement.Font.Color = wdColorRed

So if you to use the macro for replacing words or phrases, use this code below:

Sub ReplaceFromTableList()

' from Doug Robbins, Word MVP, Microsoft forums, Feb 2015, based on another macro written by Graham Mayor, Aug 2010

 Dim oChanges As Document, oDoc As Document

 Dim oTable As Table

 Dim oRng As Range

 Dim rFindText As Range, rReplacement As Range

 Dim I As Long

 Dim sFname As String

 'Change the path in the line below to reflect the name and path of the table document

 sFname = "C:\Users\your.name\Documents\Macros\FindReplaceTable.docx"

 Set oDoc = ActiveDocument

 Set oChanges = Documents.Open(FileName:=sFname, Visible:=False)

 Set oTable = oChanges.Tables(1)

 For I = 1 To oTable.Rows.Count

     Set oRng = oDoc.Range

     Set rFindText = oTable.Cell(I, 1).Range

     rFindText.End = rFindText.End - 1

     Set rReplacement = oTable.Cell(I, 2).Range

     rReplacement.End = rReplacement.End - 1

     Selection.HomeKey wdStory

     With oRng.Find

             .ClearFormatting

             .Replacement.ClearFormatting

             .Replacement.Font.Color = wdColorRed

             .MatchWildcards = False

             .MatchWholeWord = True

             .Text = rFindText.Text

             .Replacement.Text = rReplacement.Text

             .Forward = True

             .Wrap = wdFindContinue

             .Execute Replace:=wdReplaceAll

       End With

 Next I

 oChanges.Close wdDoNotSaveChanges

End Sub

Unfortunately what does not work?  Did you try:

http://gregmaxey.mvps.org/VBA\_Find\_And\_Replace.htm

If it behaves as you describe, give it time.  VBA procedure in long loops often show that behavior but typically it is still processing in the background and will complete.

yes i tried your tool and it works well.

however, i dont want to go trough dialogs and menus selecting options and files everytime i use it, because i have many files to treat. I didnt find a way to save settings.

This VBA macro discussed here does the same thing by hitting just one key or button.

Best

Tidde

This macro has been incredibly helpful, especially when using the table as a database that can be constantly updated.

Is there any way to change the code so that instead of finding and replacing, the macro finds the text in the first column and adds a new comment containing the text in the second column?

I'm trying to use the macro for suggestions rather than hard changes, and sometimes there are multiple suggestions that vary depending on context and intent.