VBA MS Word格式化特定字符串-代码会删除它们

Sub FormatAndDeleteString()
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' 设置要格式化和删除的字符串
    Dim targetString As String
    targetString = "特定字符串"
    
    ' 设置要应用的格式
    With doc.Content.Find
        .Text = targetString
        .Format = True
        
        ' 设置要应用的格式设置（例如，字体、颜色、大小等）
        .Font.Bold = True
        .Font.Color = RGB(255, 0, 0)
        
        ' 执行查找和替换
        Do While .Execute(Forward:=True) = True
            ' 删除找到的字符串
            doc.Content.Delete
        Loop
    End With
End Sub