Text nur einmal pro Seite markieren

[Deathman123456]

Hallo,

ich habe ein Methode geschrieben um ein wort zu finden und den Absatz zu markieren,
um ihn dann zu verändern.
Ich möchte aber das er das nur einmal pro Seite macht auch wenn der Text öffter auf der Seite erscheint?

Do
        With Application.Selection.Find
            .Execute FindText:="zeichenfolge1"
        End With
        
        If Selection.Find.Found = True Then
            Call markieren
                Application.Browser.Next 'wechselt zur nächsten Seite, 
funktioniert aber leider nicht
        End If
    Loop While Application.Selection.Find.Found = True

Selection.HomeKey wdStory

Do
        With Application.Selection.Find
            .Execute FindText:="zeichenfolge2"
        End With
        
        If Selection.Find.Found = True Then
            Call markieren 'Ruft die formatierung auf, was er mit dem gefundenem Text tun soll
                Application.Browser.Next 'wechselt zur nächsten Seite, 
funktioniert aber leider nicht
        End If
    Loop While Application.Selection.Find.Found = True

Vielen Dank für Eure Hilfe