在excel内用vba删除word文档中有特殊文字的行

hbhy012

请教大神
       我要在excel内用vba代码删除word文档中有特殊文字的行
        第一次运行时能实现意图 但多运行几次后就报错，不知道是什么原因 请大师指教
我用的是2003
特别说明：必须要在excel中运行不能再word中运行

182197315

Sub 删除()
Dim arr, i%
Dim wdApp As New Word.Application, wdD As Word.Document, myRange As Word.Range
arr = Sheet1.Range("A1").CurrentRegion
wdApp.Visible = True
Set wdD = wdApp.Documents.Open(ThisWorkbook.Path & "\房票补偿安置协议书.doc")
For i = 2 To UBound(arr)
    Set myRange = wdD.Content
    With myRange.Find
        .ClearFormatting
        .Forward = True
        .Text = arr(i, 1)
        Do While .Execute
            With myRange
                .Expand wdParagraph
                .Delete
            End With
            Set myRange = wdD.Content
        Loop
    End With
Next
wdD.Save
wdApp.Quit
Set wdD = Nothing
End Sub

hbhy012

非常感谢“182197315”老师 问题彻底解决了，再想请教一下 我的代码问题在哪？谢谢