I've got the same problem again. I'm on a different network and can't move the database/documents. I did find a curiosity thou. I have:
rng.find.execute FindText:="[0-9]{4,}", MatchWildCards
and
to verify that it was found in the Word document. When I look at the rng.revisions.count it looks like it is showing all the revisions in the document even though the range is set to what is found. However, if I do
Selection.range.revisions.count
on what the find found the value is correct. Any idea on what is going on or what I have done wrong.