Interop.Word.Find - Infinite looping when found hyperlink

Zadumkin Lev 1

I came across an infinite loop problem when I used Find.Execute() in text that contains a hyperlink: the parent Range/Select object, from which the Find object was obtained, stops shifting to the next match.

while (rng.Find.Found)
    {
        if (rng.Hyperlinks.Count > 0)
            test = rng.Start;
        if (rng.Text.Trim().Length > 0)
        {
            // do something 
        }
        rng.Find.Execute();
        if (rng.Start == test)
            MessageBox.Show("it will be infinite");
    }

Viorel 111.5K Reputation points

2021-04-01T19:16:07.71+00:00

Does it happen even if “// do something” does not do anything?
Zadumkin Lev 1 Reputation point

2021-04-01T21:25:21.067+00:00

yes, in my case it's just copying rng.Text in other variable without changes. So, it's probably do nothing.
Anonymous

2021-04-01T21:29:25.527+00:00

You need to collapse the Found range to the start/end (as appropriate) of the hyperlink before the Find can resume.
Zadumkin Lev 1 Reputation point

2021-04-01T21:38:31.79+00:00
Yes, thanks. I already used this:

if (rng.Hyperlinks.Count > 0) { // manually shift next rng.SetRange(rng.End, iniEnd); } // before rng.Find.Execute();

where iniEnd is initial end of searched range.

Anonymous

In VBA:

Sub Demo()
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Find String"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
  End With
  Do While .Find.Execute
    .HighlightColorIndex = wdBrightGreen
    .Collapse wdCollapseEnd
  Loop
End With
End Sub

Of course, the underlying issue may concern whatever your '// do something' is actually doing.

Zadumkin Lev 1 Reputation point

2021-04-02T07:19:45.897+00:00

Is Collapse() a same as SetRange(end, end)?
Viorel 111.5K Reputation points

2021-04-02T09:53:06.263+00:00

If possible, publish a sample Word file that demonstrates the problem, and a minimal code fragment (on OneDrive, etc.).
Anonymous

2021-04-03T10:08:27.967+00:00

That depends on what SetRange(end, end) refers to. You previously posted:
rng.SetRange(rng.End, iniEnd)
You need to understand, too, that when you do a Find based on rng, rng moves to the found range. Try the code I posted, then adapt it to your needs.

1 answer

Daniel Zhang-MSFT 9,611 Reputation points

2021-04-02T06:51:20.85+00:00
Hi ZadumkinLev-1386,
Please try to add the following code before the while statement loop:

rng.Find.Execute(); while (rng.Find.Found) { ... }

More details please refer to this document.
Best Regards,
Daniel Zhang

If the response is helpful, please click "Accept Answer" and upvote it.

Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.
Please sign in to rate this answer.
Zadumkin Lev 1 Reputation point

2021-04-02T07:17:56.967+00:00

I used exactly this documentation when write my code, but there is a bug here, which I talked about - hyperlinks cause the loop to repeat indefinitely
Sign in to comment