vba - 单词对话框打开

Question

这是我的第一篇文章，我不是程序员。

我构建了一个 Word 宏（visual basic），它在突出显示的文本块中搜索和替换许多项目（日期和数字） 。这是一个单一的搜索和替换段。它运行良好，但在每个片段之后都会出现一个 Y/N 对话框（在本例中为 Word 2003），询问我是否要搜索文档的其余部分——我不想。

查询：有什么我可以添加到宏中，在宏运行时响应“否”（在每个搜索和替换段之后），这样我就不必在 20 个左右的每个段之后选择“否”？

典型细分：。

Selection.Find.ClearFormatting.
Selection.Find.Replacement.ClearFormatting.
With Selection.Find.
    .Text = "2015".
    .Replacement.Text = "2016".
    .Forward = True.
    .Wrap = wdFindAsk.
    .Format = False.
    .MatchCase = False.
    .MatchWholeWord = False.
    .MatchWildcards = False.
    .MatchSoundsLike = False.
    .MatchAllWordForms = False.
End With.
Selection.Find.Execute Replace:=wdReplaceAll

...

谢谢

Answer 1

尝试这个：

Application.DisplayAlerts = False
*YOUR CODE HERE*
Application.DisplayAlerts = True

不确定 Word 2003 (!)

Answer 2

线

.Wrap = wdFindAsk

告诉 Word 你希望它询问用户是否继续搜索。将该行更改为

.Wrap = wdFindStop

应该解决你的问题。