Infinite loops occurring in find and replace functions in word macro

Thefirstfish` · #1 04-06-2017, 04:20 AM

Dear Word VBA Forum,

I am having a recurring problem with infinite loops in a macro containing multiple find and replace functions. Each function is written as follows:

Code:

Set oRng = ActiveDocument.Range
    With oRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Trizol"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWholeWord = True
    .MatchCase = False
    .Execute
  End With
  Do While oRng.Find.Found = True
    oRng.Text = "TRIzol®"
    oRng.Collapse Direction:=wdCollapseEnd
    oRng.Find.Execute
  Loop

The loops happen if even one instance of the target text is found - but only in about 50% of documents, while in the other documents the code works perfectly.

I'm not sure what the difference between the 'problem' and 'non-problem' documents is. I tried removing all fields and turning track changes off in one of the problem documents, which did not prevent the infinite loops.

Any help would be gratefully appreciated!

Thank you

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Need Macro for Find and Replace, Inserting logo in Ms-Word.	Aswinraj	Word VBA	1	06-05-2016 04:33 PM
Find and Replace Macro Need	djpemberton	Word VBA	2	05-04-2016 07:53 PM
Find and Replace Macro	amparete13	PowerPoint	3	03-11-2014 05:29 AM
Word VBA Macro to Find and Replace based on the Alt Text of an Image	bennymc	Word VBA	1	01-27-2014 04:23 PM
Find and Replace Macro - A Better Way	Tribos	Word VBA	0	10-08-2008 03:22 AM