Answering a MsgBox with VBA code?

[Fred Holmes]

The following recorded keystroke macro:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/27/2004 by xxxxx
'
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
End Sub

Fails to record the last user action, clicking on the "No" option of
the MsgBox that inquires "Word has finished searching the selection,
would you like to search the remainder of the document?"

Is there a vba statement that I can manually add that will
automatically answer "No" to that MsgBox?

Thanks,

Fred Holmes

 

[MSizlak]

Just set the .Wrap property to wdFindStop. Then the
dialog won't even pop up.
Moe

 

[Fred Holmes]

Many thanks! Works like a charm!

Fred Holmes

Just set the .Wrap property to wdFindStop. Then the
dialog won't even pop up.
Moe