word把包含特定字符串的行全部删除？

mib4748

怎么把包含“《天的孩子》P”字符串的行，全部删除？用查找替换“《天的孩子》P*^13”
可是“1.”还在，怎么连它一起去掉？

413191246se

1. Sub test删除指定关键词段落()
   
2.     Dim i As Paragraph
   
3.     With ActiveDocument
   
4.         .Fields.Unlink
   
5.         .ConvertNumbersToText
   
6.         .Content.Find.Execute "[^13^11]", , , 1, , , , , , "^p", 2
   
7.         For Each i In .Paragraphs
   
8.             With i.Range
   
9.                 If Not .Information(12) Then
   
10.                     If .Text Like "*《天的孩子》P*" Then .Delete
    
11.                 End If
    
12.             End With
    
13.         Next
    
14.     End With
    
15. End Sub

复制代码