在日常办公或文档处理中,我们有时会为某些文字设置特殊颜色(如红色、蓝色等)以突出重点。但当文档内容较多时,如何快速筛选或提取这些特定颜色的文字呢?本文将介绍几种实用方法。
如果你需要将所有特定颜色的文字导出或做进一步处理,可以使用 VBA 脚本:
Sub FindRedText()
Dim para As Paragraph
Dim rng As Range
For Each para In ActiveDocument.Paragraphs
Set rng = para.Range
If rng.Font.Color = wdColorRed Then
rng.Select
MsgBox "找到红色文字:" & rng.Text
End If
Next para
End Sub