程序开始时，加：Application.DisplayAlerts = False结束前加：Application.DisplayAlerts = True
将 .Wrap = wdFindAsk 改为 .Wrap = wdFindStop 就可以了！
