对象变量或with块变量未设置 如何解决

pipiludaxian

运行以下程序 会弹出 “对象变量或with块变量未设置  ” 原因何在？如何解决？请高手赐教！
Sub delet()
Dim apar As Paragraph
For Each apar In ActiveDocument.Paragraphs
    If apar.Range.Text = apar.Next.Range.Text Then
        apar.Range.Delete
    End If
Next apar
End Sub

dafanshu1

这是因为当程序执行到最后一段时，就没有apar.Next.Range了，可以在程序开头加多一句：On Error Resume Next

pipiludaxian

谢谢楼上朋友

pipiludaxian

以下程序不会报错   证明二楼朋友所言很对

Sub delet()
Dim apar As Paragraph
k = ActiveDocument.Paragraphs.Count
i = 0
For Each apar In ActiveDocument.Paragraphs
i = i + 1
If i = k Then
    Exit For
End If
   If apar.Range.Characters(1).Text = apar.Next.Range.Characters(1).Text Then
    apar.Range.Delete
   End If
Next apar
End Sub