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