That may be so, but you also previously said:
So you really ought to invest some effort of your own. You might even try using Find/Replace with the required Find parameters and the macro recorder running. It would take little of that to reveal that all you need do is to insert:
.MatchAllWordForms = True
before:
.MatchCase = False

Please note: Neither this forum nor any other you're likely to encounter are free coding services for those who simply expect others to do their thinking for them.

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