如何让Word中的VBA宏删除只包含找到的文本的行，而不删除包含找到的文本和其他文本的行

Sub DeleteLinesWithText()
    Dim searchText As String
    Dim doc As Document
    Dim rng As Range
    Dim para As Paragraph
    
    ' 设置要查找和删除的文本
    searchText = "要查找的文本"
    
    ' 获取当前活动文档
    Set doc = ActiveDocument
    
    ' 遍历文档中的每个段落
    For Each para In doc.Paragraphs
        ' 设置查找范围为当前段落
        Set rng = para.Range
        
        ' 查找并选择要删除的行
        With rng.Find
            .Text = searchText
            .Forward = True
            .Wrap = wdFindStop
            .MatchWholeWord = True
            .MatchCase = False
            .Execute
            Do While .Found
                ' 判断是否只包含找到的文本
                If rng.Text = searchText & vbCr Then
                    ' 删除整个段落
                    para.Range.Delete
                    ' 继续查找下一个匹配项
                    .Execute
                Else
                    ' 继续查找下一行
                    rng.Collapse wdCollapseEnd
                    .Execute
                End If
            Loop
        End With
    Next para
End Sub