Sub ShowPARA()
Dim p As Paragraph, pp As String
Dim pp2 As String
    For Each p In ActiveDocument.Paragraphs
        pp = p.Range.Text
        If Not p.Range.End = ActiveDocument.Range.End Then
            pp2 = p.Range.Next.Paragraphs(1).Range.Text
        Else: pp2 = ""
        End If
        If Val(pp) > 279 Then
Debug.Print pp & pp2 & vbCr
            Exit For    'stop processing the loop
        End If
    Next p
End Sub