WORD VBA to create block text

[IGPOD]

So, I kinda got things moving along in this... but it's not perfect. It's about 85% accurate. I'd still like to have to not do any manual manipulations as some documents would be tens of thousands of words. Any alterations would be greatly appreciated.

Sub Combine_Para()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindAsk
       
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Also, if anybody can throw in additional code to omit any words under 4 characters long would be fantastic!