If you remove the second
 .Execute Replace:=wdReplaceAll
it will not change the display text.