Automatically press "No" on dialog box

[hstaubyn]

Hi,

how do you write the code to automatically click the "no" button in a dialog box?

At the moment my code executes a command, then a dialog box pops up asking me if I want to apply it to the whole document. This happens three times during the execution of my macro and I have to manually press "no" each time.

Is there a way around this?

Application.DisplayAlerts = False

doesn't work as it simply selects "Yes" in each case.

 

[GTO]

Care to share the code and what dialog box pops up?

 

[hstaubyn]

Hi,

thanks for the reply. I've just realised this might not be the right site as it is a code for Word...

Anyway, here it is:

Selection.Style = ActiveDocument.Styles("Normal")
    Selection.Font.Bold = False
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
 
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = ". "
        .Replacement.Text = ".  "
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " ."
        .Replacement.Text = "."
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Font.Size = 10
    Selection.Font.Name = "Arial"
 
End Sub

Every time it executes the

Selection.Find.Execute Replace:=wdReplaceAll

line, the dialog box pops up.

It says "Word has finished searching the selection. 9 replacements were made. Do you want to search the remainder of the document?" each time. The options are "Yes" or "No".