Solved: Extra Unwanted Page at End of Document

[mdmackillop]

Hi DB
Here's a wee (wee; Scots dialect word meaning small or to pee) routine to get rid of the EEPs.

[VBA]
Sub OffWithThePees()

'Thanks to brettdj for the Replace
Const FntSize = 12
MyStr = "^p"

For i = 10 To 2 Step -1
pilcrows = Replace(Space(i), " ", MyStr)
DoSpace = (i-1) * FntSize
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.ParagraphFormat
.SpaceAfter = DoSpace
End With

With Selection.Find
.Text = pilcrows
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub

[/VBA]