word如何删除含有某一字符的行

Sub test()
Selection.HomeKey wdStory
With Selection.Find
.ClearFormatting
Do While .Execute(findtext:='+')
.Parent.Bookmarks('\line').Range.Delete
Loop
End With
End Sub
如要删除的是“段落”，请将“\line”改为“\para”。
若要删除空行，即只有空格和回车符的行，则加入语段，宏变为：
Sub 删除特定行()
i = 1
Do
'从当前文档的顶端开始逐一选择文档的每一段文字
ActiveDocument.Paragraphs(i).Range.Select
If Trim(Selection.Text) = Chr(13) Then
'如果选择的段落里只有回车符和空格则删除此段
Selection.Delete
Else
'如果选择的段落非空，就将选择的指针移向下一段
Selection.MoveDown
i = i + 1
End If
Loop Until i = ActiveDocument.Paragraphs.Count
Selection.HomeKey wdStory
With Selection.Find
.ClearFormatting
Do While .Execute(findtext:='s')
.Parent.Bookmarks('\line').Range.Delete
Loop
Do While .Execute(findtext:='d')
.Parent.Bookmarks('\line').Range.Delete
Loop
Do While .Execute(findtext:='l')
.Parent.Bookmarks('\line').Range.De