Sub ShowPARA()
Dim p As Paragraph, pp As String
For Each p In ActiveDocument.Paragraphs
    pp = p.Range.Text
    If Val(pp) > 279 Then
        Debug.Print pp
        Stop
    End If
Next
End Sub

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

Sub ShowPARA()
Dim p As Paragraph, pp As String
Dim pp2 As String
Dim oRng As Range
    For Each p In ActiveDocument.Paragraphs
        Set oRng = p.Range
        oRng.End = oRng.End - 1
        If IsNumeric(oRng.Text) Then
            pp = oRng.Text
            If Not oRng.End = ActiveDocument.Range.End Then
                pp2 = oRng.Next.Paragraphs(1).Range.Text
            Else: pp2 = ""
            End If
            If val(pp) > 279 Then
                oRng.InsertAfter " Text to insert"
                oRng.InsertBefore "Text to insert "
                oRng.End = p.Range.End
                pp = oRng.Text
Debug.Print pp & pp2
            End If
        End If
    Next p
End Sub