Find text and determine page

[nnn]

I've found all kinds of messages that say this should work:

Selection.Find.ClearFormatting
With Selection.Find
.Text = "SomeUniqueValue"
End With
Selection.Find.Execute
i = selection.Information(wdActiveEndPageNumber)

i should be page 3 if SomeUniqueValue is found on page 3. But I don't
get results like this. i is usually the wrong page, and when I check the
value of selection.text, it's one of those charming square characters.

I need to run a couple of searches for text in a row, and determine the
page number each 'find' was on. No matter what order I run the test in,
results are off. This should be so simple...

 

[nnn]

I've found all kinds of messages that say this should work:

Selection.Find.ClearFormatting
With Selection.Find
.Text = "SomeUniqueValue"
End With
Selection.Find.Execute
i = selection.Information(wdActiveEndPageNumber)

i should be page 3 if SomeUniqueValue is found on page 3. But I don't
get results like this. i is usually the wrong page, and when I check the
value of selection.text, it's one of those charming square characters.

I need to run a couple of searches for text in a row, and determine the
page number each 'find' was on. No matter what order I run the test in,
results are off. This should be so simple...

Got it working, using code like the above, my mistake.