word录制的宏命令：只替换选中范围内的部分字符，在运行宏命令时提示“word已完成对所选内容的搜索……

Question

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = "^p "
.Forward = False
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
查看宏命令代码如上，在运行宏命令时提示“word已完成对所选内容的搜索，共*处。是否搜索文档的其余部分？”，在不替换选择范围外数据的前提下，这个提示能不能取消掉

Answer 1

程序开始时，加：
Application.DisplayAlerts = False
结束前加：
Application.DisplayAlerts = True追问

这样会把所有的替换掉

追答

Selection.Find.Execute Replace:=wdReplaceAll, Wrap:=wdFindStop

本回答被提问者采纳

Answer 2

将 .Wrap = wdFindAsk 改为 .Wrap = wdFindStop 就可以了！