如何用VBA宏删除Word文档中所有非粗体内容

问题根源 #

你录制的宏只执行了单次删除操作，没有循环遍历查找所有非粗体内容，因此只会删除文档的第一个字符。要实现批量删除所有非粗体文本，需要让查找操作反复执行，直到找不到目标内容为止。

修正后的VBA代码 #

Sub RemoveNonBoldContent()
    ' 清除原有查找格式
    Selection.Find.ClearFormatting
    ' 设置查找条件：非粗体文本
    Selection.Find.Font.Bold = False
    
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    ' 循环查找并删除所有非粗体内容
    Do While Selection.Find.Execute
        Selection.Delete Unit:=wdCharacter, Count:=1
    Loop
End Sub

代码说明 #

• 循环查找逻辑：通过Do While Selection.Find.Execute实现持续查找，只要找到非粗体文本就执行删除，直到遍历完整个文档。
• 格式匹配保留：沿用了你原有的查找格式设置，确保仅定位非粗体字符。
• 执行流程：每次找到目标内容后立即删除，随后自动定位下一个非粗体字符，全程无需手动干预。

使用提示 #

• 运行宏前，建议将光标定位在文档开头，确保从起始位置开始遍历。
• 文档中的空格、段落标记等非打印字符，只要是非粗体状态也会被删除，最终仅保留所有粗体术语。

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