Durch...
.Wrap = wdFindContinue
... wird er immer wieder vom Start aus suchen, wenn er nichts gefunden hat.
So verhinderst du das:
.Wrap = wdFindStop
Außerdem noch das hier und es müsste funktionieren...
Delphi-Quellcode:
If FirstPos = -1 Then
FirstPos = Selection.Start
ElseIf SecPos = -1 Then
SecPos = Selection.Start
End If
' Das hier verschiebt den Cursor hinter den gefundenen Text
Selection.Start = Selection.End
Nachtrag: Beim nächsten Mal den Code als Anhang, man scrollt sich ja sonst noch die Maus wund
