Stumped

[Ulodesk]

Back again. Not a coder, obviously.

Reviewing some of my macros this morning, I discovered some were not doing what they are supposed to. I have managed to fix a couple but am stumped here.

The first of the following two works fine. The second refuses to stop at the end of whatever selection I make and continues to the end of the document. My test document is attached. For the life of me, non-coder that I am, I cannot see the difference in teh code that would make this happen. Help appreciated.

Sub ParasDeleteMultiSelection()
'
' Macro6 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^13{2,}"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub ParasInsertBlanksSelection()
'
' ParasInsertBlanksSelection Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[^13]"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[gmayor]

The following works

Sub ParasDeleteMultiSelection()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^13{2,}"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Sub ParasInsertBlanksSelection()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "[^13]"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

[Ulodesk]

Thank you, Graham. FindStop instead of FindAsk appears the be the difference. Much obliged. Best wishes for the holidays.