Public Sub Main()
Dim lngParaCount as Long
ParaCount = 0
For Each Paragraph In ActiveDocument.Paragraphs
    ParaCount = ParaCount + 1
    If Paragraph = "???" Then
        Paragraph.Range.Select
        ' And do something
    End If
    Application.StatusBar = " ... " & Str(ParaCount) & " paragraphs scanned."
Next
End Sub