[RESOLVED] Search and Replace without confirmation

[jcurtis]

Hi, I am using the following code to search and replace some text however it asks the user after the replacement "Do you want to continue searching from the beginning?" How can I automate this to be yes and have no user input.

    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Sub-Contractor"
        .Replacement.Text = "Sub-Sub-Contractor"
        .Forward = True
        .Wrap = wdFindContinue
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute replace:=wdReplaceAll

Thanks

[passel]

If you don't want it to Ask, then why do you set it to ask?

.Wrap = wdFindAsk

The previous line

.Wrap = wdFindContinue

would continue the search automatically without asking, but then you override that setting on the next line.

https://msdn.microsoft.com/en-us/lib...ffice.11).aspx

[jcurtis]

Thanks, that was a bit silly of me!!

Cheers fixed my issue. Thanks again.