关于删除word文档中空白段落的vba代码的畅想

我在论坛里找到一段关于删除word文档中空白段落的vba代码，用起来很爽，速度、效果都钢钢的，可是文档中有时有封面，封面中的空白段落不想删除，结果程序还是给删了，我试着想解决这个问题。我的想法是可以设置从第几段开始，假如从第15段开始（从前往后数，这样可以跨过封面中那些想保留的空白段落），再进行删除操作，我试了半天，也没想到该怎么办好，请高手协助，看看这段代码如何调整可以解决这个问题，谢谢。
代码如下：
Sub DelBlank()
    Dim i As Paragraph, n As Long
    Application.ScreenUpdating = False '关闭屏幕刷新
    For Each i In ActiveDocument.Paragraphs '在活动文档的段落集合中循环
        If Len(i.Range) = 1 Then '判断段落长段,此处可根据文档实际情况
            i.Range.Delete '进行必要的修改可将任意长度段落删除
            n = n + 1 '计数
        End If
    Next
    MsgBox "共删除空白段落" & n & "个!"
    Application.ScreenUpdating = True '恢复屏幕刷新
End Sub

Sub DelBlank()
    Dim i As Paragraph, n As Long
    Application.ScreenUpdating = False '关闭屏幕刷新
    For Each i In Selection.Paragraphs '在活动文档的段落集合中循环将选中的空行删除
        If Len(i.Range) = 1 Then '判断段落长段,此处可根据文档实际情况
            i.Range.Delete '进行必要的修改可将任意长度段落删除
            n = n + 1 '计数
        End If
    Next
    MsgBox "共删除空白段落" & n & "个!"
    Application.ScreenUpdating = True '恢复屏幕刷新
End Sub

[ 本帖最后由 sqhsqhli 于 2011-7-19 16:38 编辑 ]

要更省事，可以设定从第二页开始，当然封面只是第一页了。这个用代码也可实现的