请教：在excel中用VBA代码删除word文档中有特定文字的行

hbhy012

各位老师：
       我在网上下了一段代码如下：
Dim i As Paragraph, n As Integer
Application.ScreenUpdating = False
    For Each i In ActiveDocument.Paragraphs
    df = Application.WorksheetFunction.Clean(i.Range)
        If Replace(df, " ", "") = "身份证号码：身份证2" Then '''''''''''''''''''''删除行
            i.Range.Delete
        End If
        If Replace(df, " ", "") = "身份证号码：身份证3" Then '''''''''''''''''''''删除行

            i.Range.Delete
        End If
        If Replace(df, " ", "") = "八、补充协议" Then ''''''''''''''''''删除行
            i.Range.Delete
        End If
    Next
    Application.ScreenUpdating = True

这段代码我放在excelVBA中运行，有时能实现意图，有时又不能实现意图。在不能实现时“df"变量的值是空同时"i.Range"提示 ：i.Range=(对象变量或with块变量未设置)
请老师指教 怎样修改代码才能在excel中用vba去操作word文档，我用的是2003版本
                                                                                                                                                                      谢谢！