Word VBA求助：将带底纹文本改为红色并移除阴影，代码死循环崩溃

原代码存在两个核心问题：

• 死循环：没有设置循环终止条件，当找不到更多带底纹文本时，代码仍重复执行，最终导致系统崩溃
• 未处理阴影：缺少移除文本阴影格式的语句

以下是修正后的代码，可同时解决这两个问题：

Sub Make_Highlighted_Text_Red()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .MatchWildcards = False
        .Forward = True
        .Wrap = wdFindStop ' 查找至文档末尾后停止，避免从头重复遍历
        .Highlight = True
        
        ' 用查找结果的返回值控制循环，无匹配项时自动终止
        Do While .Execute
            Selection.Range.Font.ColorIndex = 6 ' 将文本设为红色
            Selection.Range.Font.Shadow = False ' 移除阴影效果
        Loop
    End With
End Sub

关键改动说明： #

• 终止循环：把无限制的Do Loop改为Do While .Execute，每次执行查找后，若没有匹配项，.Execute返回False，循环自动终止
• 避免重复遍历：将.Wrap = wdFindContinue替换为wdFindStop，防止查找完文档末尾后又从开头重新查找，减少无效循环
• 移除阴影：添加Selection.Range.Font.Shadow = False语句，直接清除文本的阴影格式

如果需要处理整个文档而非选中区域，只需把Selection.Find替换为ActiveDocument.Content.Find即可，无需手动选中内容。

内容的提问来源于stack exchange，提问作者Sitare