I recently wrote the following macro to check some shapes in a document

Public Function checkShapes() As Boolean
   Selection.HomeKey unit:=wdStory, Extend:=wdMove

   Dim picPos As Long
   Dim oldPos As Long
   
   checkShapes = False
   
   Dim elm As Shape
   Dim elm2 As InlineShape
   
   For Each elm In ActiveDocument.Shapes
       MsgBox prompt:="invalidShape! All shapes must be inline shapes"
       
'next two lines to make word jump here in the document
       Selection.Start = elm.Anchor.Start
       Selection.EndKey unit:=wdLine, Extend:=wdExtend
       Exit Function
   Next elm

   For Each elm2 In ActiveDocument.InlineShapes
       Selection.Start = elm2.Range.Start
       Selection.MoveRight unit:=wdCharacter, Extend:=wdExtend
       
       If Not Selection.Style = "Picture" Then
           If InStr(1, elm2.Field.Code.Text, "Equation", vbTextCompare) <>
0 Then
               If Not Selection.Style = "Caption EQ" Then
                   MsgBox "Equation has the wrong style, fix this!"
                   Exit Function
               End If
           Else
               MsgBox "Picture has the wrong style, fix this!"
               Exit Function
           End If
       End If
       
       
       Dim pageWidth As Long
       Dim leftMargin As Long
       Dim rightMargin As Long
       
       pageWidth = ActiveDocument.PageSetup.pageWidth
       leftMargin = ActiveDocument.PageSetup.leftMargin
       rightMargin = ActiveDocument.PageSetup.rightMargin
       
       Dim textWidth As Long
       
       textWidth = pageWidth - leftMargin - rightMargin
       
       If elm2.Width >= textWidth Then
           MsgBox prompt:="picture is too wide, fix this!"
           Exit Function
       End If
       
   Next elm2
   
   checkShapes = True
   
End Function

Anyway the way I found you made word jump to a shape was by marking it.
Therefore the:
Selection.EndKey unit:=wdLine, Extend:=wdExtend

Then I guess you could just use a MsgBox to say go to the next with a yes
and no button. I wrote this in a macro recently

           msgBoxRet = MsgBox(prompt:=msgString, buttons:=vbYesNoCancel)
               
           If msgBoxRet = vbYes Then
               Selection.Delete unit:=wdCharacter, count:=1
               Selection.Collapse direction:=wdStart
               Selection.InsertCrossReference      
                                             
referenceType:=wdRefTypeNumberedItem, _
                                             
referenceKind:=wdNumberRelativeContext, _
                                              referenceItem:=refNum, _
                                              insertAsHyperlink:=True, _
                                              includePosition:=False, _
                                              SeparateNumbers:=False, _
                                              SeparatorString:=" "
           ElseIf msgBoxRet = vbCancel Then
               Exit Sub
           End If

Hope its to some help