How to make VBA loop until false

My macro identifies a pattern of Digit Space Digit in my document and then carries out certain actions :

Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^# ^#"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeParagraph

It works fine , but stops after one iteration. I'd like it to repeat through the document rather than stop after the first occasion the search pattern is found , and go though until all matches have been treated.

Can someone suggest a modification for the code so that it loops through the document until all of the Digit Space Digit searches are found?


Thanks for any advice.

Sorry _ I misread your post. Just use a goto and a check for not finding what you are replacing to get out of the loop.....

    Selection.Find.ClearFormatting
FindNextNumbers:
    With Selection.Find
        .Text = "^# ^#"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    If Selection.Find.Execute = False Then Exit Sub
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeParagraph
    GoTo FindNextNumbers

Bernie - thanks

Unfortunately this isn't a 'Find and Replace' operation. It just Finds the search term and then runs certain tasks on it. For this reason , the macro needs to run right through to the end for each time it finds the search term.

Sorry - I misread your post, and have changed my reply to a conditional loop....

    Selection.Find.ClearFormatting
FindNextNumbers:
    With Selection.Find
        .Text = "^# ^#"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    If Selection.Find.Execute = False Then Exit Sub
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeParagraph
    GoTo FindNextNumbers

Thanks - that does the job perfectly. I'm grateful.

BTW I'm finding that nothing will run after it. If placed ahead of other VBA within a longer macro then the whole macro stops at

GoTo FindNextNumbers

I had it exit the sub - to continue on, use this:

    Selection.Find.ClearFormatting
FindNextNumbers:
    With Selection.Find
        .Text = "^# ^#"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    If Selection.Find.Execute = False Then Goto FoundAllNumbers
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeParagraph
    GoTo FindNextNumbers

FoundAllNumbers:

    'other code continues here.....

OK ignore my last post. I've amended the section

    If Selection.Find.Execute = False Then Exit Sub
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeParagraph
    GoTo FindNextNumbers

to

    
   If Selection.Find.Execute = False Then GoTo Jump
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeParagraph
    GoTo FindNextNumbers
    
Jump:

and this fixes the continuation issue. Thanks again

Perfect - Thanks!

All working.