单词对话框打开

时间:2015-01-05 16:13:22

标签: vba ms-word word-vba ord

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

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

查询:有没有什么我可以添加到宏会响应“NO”(在每次搜索和替换段之后),因为宏运行所以我不必在每个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

...

THX

2 个答案:

答案 0 :(得分:0)

试试这个:

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

不确定Word 2003(!)

答案 1 :(得分:0)

该行

.Wrap = wdFindAsk

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

.Wrap = wdFindStop

应该解决你的问题。