如何删除最后空白页，不改变前页格式-在线等

求教高手，如题，请说明方法，谢谢！

可用 守柔版主——删除空行 的代码删除最后一页及各页的空行，如果最后一段格式有变，你用上一段的格式“刷”最后一段即可！
如何删除空行而不删除有分节符的一行，我也不得而知。

' 删除空行 Macro 守柔版主
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If Len(Trim(i.Range)) = 1 Then
            i.Range.Delete
        End If
    Next