You can't delete the last paragraph mark in a document. It looks like you have one empty paragraph in the document (the first ¶, and the document's final ¶)
You can use a macro I guess to see if a paragraph is empty and delete it if it is a real issue
Playing around -- I found it easier to just use subs instead of the array
Option Explicit
Sub ArrFndRep()
'2 or more spaces to one space
Call pvtWildcardFR(" {2,}", " ")
'2 or more tabs to one tab
Call pvtWildcardFR("^t{2,}", "^t")
'space or tab + para to one para
Call pvtWildcardFR("[ ,^t]{1,}^13", "^13")
'2 or more para to one para
Call pvtWildcardFR("^13{2,}", "^13")
End Sub
Private Sub pvtWildcardFR(Orig As String, Repl As String)
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Format = False
.MatchWholeWord = True
.MatchCase = False
.MatchWildcards = True
.Wrap = wdFindContinue
.Text = Orig
.Replacement.Text = Repl
.Execute Replace:=wdReplaceAll
End With
End Sub