Sub RemovePara()
    Dim oRng   As range
    If Len(selection.range) = 0 Then
        MsgBox "Select the text first", vbCritical
        Exit Sub
    End If
    Set oRng = selection.range

    With oRng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .text = "([!.])" & Chr(13)
        .Replacement.text = "\1 "
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub