ActiveDocument.Bookmarks.Add Name:="FoundItem"
RELOCATE_LOOP:
Selection.MoveUp Unit:=wdWindow
ActiveDocument.Bookmarks.Add Name:="MarkTop"
ActiveDocument.Bookmarks("FoundItem").Select
Num = 0
Address1 = ActiveDocument.Bookmarks("MarkTop").Range.START
Address2 = ActiveDocument.Bookmarks("FoundItem").Range.START
If Address2 > Address1 Then
    ActiveWindow.SmallScroll Down:=1
    GoTo RELOCATE_LOOP
Else
    ActiveWindow.SmallScroll Up:=13
End If