单词对话框打开
word dialogue box opens
这是我的第一篇文章,我不是程序员。
我构建了一个 Word 宏 (visual basic),用于搜索和替换 突出显示 文本块中的许多项目(日期和数字)。这是一个搜索和替换段。它运行良好,但在每个片段之后都会出现一个 Y/N 对话框(在本例中为 Word 2003),询问我是否要搜索文档的其余部分——我不想搜索。
查询:是否有任何我可以添加到宏中的内容可以在宏运行时响应 "NO"(在每次搜索和替换段之后),这样我就不必 select "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
...
谢谢
试试这个:
Application.DisplayAlerts = False
*YOUR CODE HERE*
Application.DisplayAlerts = True
不确定 Word 2003 (!)
行
.Wrap = wdFindAsk
告诉 Word 您希望它询问用户是否继续搜索。将该行更改为
.Wrap = wdFindStop
应该可以解决您的问题。
这是我的第一篇文章,我不是程序员。
我构建了一个 Word 宏 (visual basic),用于搜索和替换 突出显示 文本块中的许多项目(日期和数字)。这是一个搜索和替换段。它运行良好,但在每个片段之后都会出现一个 Y/N 对话框(在本例中为 Word 2003),询问我是否要搜索文档的其余部分——我不想搜索。
查询:是否有任何我可以添加到宏中的内容可以在宏运行时响应 "NO"(在每次搜索和替换段之后),这样我就不必 select "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
...
谢谢
试试这个:
Application.DisplayAlerts = False
*YOUR CODE HERE*
Application.DisplayAlerts = True
不确定 Word 2003 (!)
行
.Wrap = wdFindAsk
告诉 Word 您希望它询问用户是否继续搜索。将该行更改为
.Wrap = wdFindStop
应该可以解决您的问题。