关于查找WORD中含有指定字符串的行

求助版主和各位高手，我想在WORD文档中查找到含有指定字符串的行或者段落，返回此行或者段落的位置，比如行号，然后将从文档开头到本行或者段落的结尾选中，并且删除，应该如何做？

你提了两个问题，段与行。给个根据段删的，根据行要复杂点。
Sub 找到我就删除()
Dim i, n, myrange
For Each i In ActiveDocument.Paragraphs
n = n + 1
If InStr(i, "我") <> 0 Then
If MsgBox("在第" & n & "段找到目标,选中至文档开始删除吗？", vbYesNo) <> vbYes Then Exit Sub
Set myrange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, End:=ActiveDocument.Paragraphs(n).Range.End)
myrange.Delete
End If
Next
End Sub

[ 本帖最后由 sqhsqhli 于 2011-1-15 12:32 编辑 ]