For what you've described, you could use:
.Execute Replace:=wdReplaceOne
instead of:
.Execute Replace:=wdReplaceAll
and:
.Wrap = wdFindStop
instead of:
.Wrap = wdFindContinue

Beyond that, you could apply an InRange test. See: https://www.msofficeforums.com/151477-post6.html

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]