Sub Limpa_texto()

Dim i As Integer, oRng As Range, aProc, aSubs

aProc = Array("^13{2;}", "^32{2;}", "^13^32")
aSubs = Array("^p", " ", "^p")

Set oRng = ActiveDocument.Range

Do While Len(ActiveDocument.Range.Paragraphs.Last.Range) = 1

    ActiveDocument.Range.Paragraphs.Last.Range.Delete

Loop

Application.ScreenUpdating = False

For i = 0 To UBound(aProc)

    With oRng.Find

        .Text = aProc(i)
        .Replacement.Text = aSubs(i)
        .Forward = True
        .MatchWildcards = True
        .Wrap = wdFindContinue
        .Execute
        
    End With

    Do While oRng.Find.Found

        oRng.Find.Execute Replace:=wdReplaceAll

    Loop

Next i
    
Application.ScreenUpdating = True

End Sub