Artur

Maybe this is what you're looking for. It stops only for numbered
paragraphs, skipping unnumbered and bulleted paragraphs. It selects
the paragraph, tells you what kind of numbering it is and what the
paragraph style is, then asks if you want to stop there.  A little
sloppy but it works.

Sub ShowNumberedParasOnly()
Dim P As Paragraph, Ans As Byte
ActiveWindow.ActivePane.View.ShowFieldCodes = True
For Each P In ActiveDocument.Paragraphs
   P.Range.Select
   Select Case P.Range.ListFormat.ListType
   Case Is = 1
   Ans = MsgBox("Numbering type = Field numbering" & vbCr & _
         "Style = " & Selection.Style.NameLocal, vbYesNo, "Stop?")
    If Ans = 6 Then Exit Sub
    Case Is = 3
    Ans = MsgBox("Numbering type = Simple list" & vbCr & _
          "Style = " & Selection.Style.NameLocal, vbYesNo, "Stop?")
    If Ans = 6 Then Exit Sub
    Case Is = 4
    Ans = MsgBox("Numbering type = Outline numbering" & vbCr & _
          "Style = " & Selection.Style.NameLocal, vbYesNo, "Stop?")
     If Ans = 6 Then Exit Sub
     Case Is = 5
     Ans = MsgBox("Numbering type = Mixed numbering" & vbCr & _
           "Style = " & Selection.Style.NameLocal, vbYesNo, "Stop?")
     If Ans = 6 Then Exit Sub
   End Select
Next
End Sub