Word VBA 替换时卡住了，一条一条手动运行又不卡，哪位大神帮忙解决一下？

With Selection.Find
        .Text = "^e"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll, Wrap:=wdFindStop

就是最后一句，自动运行时，有时候能够正常运行，有时候就卡在最后一句动不了，一条一条的手动运行，又能正常运行。到底是什么问题，希望大神能帮忙解决一下，不胜感激！

https://xbuba.com/questions/54813701

建议把
Wrap = wdFindAsk（找到会弹出提示框）
全部改为
Wrap = wdFindStop（完成替换会停止）