Never-ending loop

valentinator · #1 06-09-2022, 08:30 AM

Hello! I have this macro that I made for a project. It searches for a image and rejects TC changes twice. The problem I have with it is that I can't make it stop at the end of the document so it continues looping until it starts rejecting changes in the text as well. Anybody know how to make it stop at the end of the document?
Thank you in advance!

Code:

Sub Huh()
'
' Huh Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.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.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Do
        With Selection.Find
            .Text = "^g"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute
        Selection.Range.Revisions.RejectAll
        Selection.NextRevision (True)
        Selection.Range.Revisions.RejectAll
        Selection.NextRevision (True)
    Loop
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Number series ending 50 and 100	Marcia	Excel	4	08-11-2021 02:36 PM
Trying to count the number of cells ending with 001 or 002	mgroessl	Excel Programming	5	08-06-2019 03:39 PM
how do you formulate the date by pay period ending?	crussell	Excel	8	02-23-2016 07:38 AM
Find and highlight all words ending in -ly	RBLampert	Word VBA	13	10-23-2012 04:45 PM
Paragraph ending in following page	tadlomc	Word	1	01-18-2012 05:31 AM