Return number of changes a "Replace-All" makes, without using a loop?

[John 4]

When i use Find-and-Replace to do a "Replace-All", Word tells me how many changes were made. Can i access that number or get it returned when doing a VBA Replace-All, instead of using "Replace-One", a loop, and a counter?

Thanks for your help.

[VBorNotVB]

I think this link answers your question:
How to find out, using VBA, how many replacements Word made during a Find
& Replace All

[John 4]

Thanks VB, surprisingly complex for such a seemingly simple task, but at least my question's answered.