如何在word中用VBA快速删除所有带红色的文本

丶冫氵灬

一篇文档中有红色与黑色的字体，假如红色是答案，想把答案删除，便于自己思考如何做，但手工一点一点删除太慢，因为答案穿插在题的各处。哪位大神能不能写一个VBA帮忙一下

xwdys

不用VBA，直接用替换即可。步骤：Ctrl+H→查找：*，替换为空→使用通配符→替换格式：字体→字体颜色：红色→全部替换

丶冫氵灬

这个手工操作我也会啊，只是我频繁做这种重复的工作，所以需要有一个VBA按钮，瞬间搞定能节省时间！

蜀中草莽

录制一个就好了
Sub 宏9()
'
' 宏9 宏
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "*"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

丶冫氵灬

太谢谢你啦！录制宏中关键点是没想到查找文本框中输入任意字符*

常扬帆

丶冫氵灬 发表于 2022-7-3 17:35
太谢谢你啦！录制宏中关键点是没想到查找文本框中输入任意字符*

选择格式相似的文本也可以啊。

413191246se

1. Sub a_del_red()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = ""
   
5.         .Font.ColorIndex = wdRed
   
6.         .Forward = True
   
7.         .MatchWildcards = True
   
8.         Do While .Execute
   
9.             .Parent.Delete
   
10.         Loop
    
11.     End With
    
12. End Sub

复制代码

413191246se

略。。。。