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

Final update: Once I made those same changes in the macros.dotm in the STARTUP folder, it worked with all documents with no errors.

Sorry, that was a typo.

unfortunately it does not work in all cases for me (Word 2013). In tests with small documents it runs well, in documents with > 500 words and more replacements Word freezes (no response) and i have to kill it manually.

I am using a list of around 50 replacements (in a table).

Can anyone tell me what is wrong with my code below?

Sub ReplaceFromTableList()

    Selection.WholeStory

    Selection.LanguageID = wdDutch

    Application.CheckLanguage = False

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\Tidde\Documents\Macros\FRtable.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

    With oRng.Find

            .ClearFormatting

            .Replacement.ClearFormatting

            Do While .Execute(findText:=rFindText, _

                MatchWholeWord:=True, _

                MatchWildcards:=False, _

                Forward:=True, _

                Wrap:=wdFindContinue) = True

                oRng.Text = rReplacement

            Loop

    End With

Next i

oChanges.Close wdDoNotSaveChanges

End Sub

I wrote up what I did (acknowledging the help from this forum, of course) in this blog post: https://cybertext.wordpress.com/2015/03/03/word-macro-to-run-multiple-wildcard-find-and-replace-routines/ You might want to compare your code with the code that works for me.

It works well for me (except for some occasional weird things with replacing an 'x' within a word (i.e. NOT surrounded by spaces) with a multiplication sign. 

I have well over 120 F&R routines for non-breaking spaces in my table, and regularly run it over 50 to 400p Word documents. It takes only a couple of minutes. That said, I've only used it in Word 2010, not Word 2013. If I get a chance tomorrow, I'll test it in Word 2013 too and report back here.

--Rhonda