如何删除 某种指定颜色 的文字？

雪兰君

（如何确定word文字的颜色值？）

比如在格式-- 字体-- 字体颜色，中看到该颜色RGB值为238，250，238

如何删除 这种指定颜色 的文字？

用VBA也可以！

谢谢大家~

雪兰君

2、如果想保留颜色是黑色的文字，其它的全部删除。又如何做或者如何写VBA？

LangQueS

手工法：

编辑》查找》格式》从单元格选择格式》光标选择某颜色字体单元》查找全部》全选找到的全部地址》DEL

LangQueS

QUOTE:

以下是引用雪兰君在2006-12-17 23:28:13的发言：
2、如果想保留颜色是黑色的文字，其它的全部删除。又如何做或者如何写VBA？

第1步、先将所有单元添加一种条件格式，再用3楼的办法定位全部黑色字体单元并删除它们的条件格式。

第2步、定位全部条件格式单元》删除》全部

LangQueS

Sub 定位相同格式单元格()

Dim FirstCell As Range, FoundCell As Range

Dim AllCells As Range

With Application.FindFormat

.Clear

.NumberFormatLocal = Selection.NumberFormatLocal

.HorizontalAlignment = Selection.HorizontalAlignment

.VerticalAlignment = Selection.VerticalAlignment

.WrapText = Selection.WrapText

.Orientation = Selection.Orientation

.AddIndent = Selection.AddIndent

.IndentLevel = Selection.IndentLevel

.ShrinkToFit = Selection.ShrinkToFit

.MergeCells = Selection.MergeCells

.Font.Name = Selection.Font.Name

.Font.FontStyle = Selection.Font.FontStyle

.Font.Size = Selection.Font.Size

.Font.Strikethrough = Selection.Font.Strikethrough

.Font.Subscript = Selection.Font.Subscript

.Font.Underline = Selection.Font.Underline

.Font.ColorIndex = Selection.Font.ColorIndex

.Interior.ColorIndex = Selection.Interior.ColorIndex

.Interior.Pattern = Selection.Interior.Pattern

.Locked = Selection.Locked

.FormulaHidden = Selection.FormulaHidden

End With

Set FirstCell = ActiveSheet.UsedRange.Find(what:="", searchformat:=True)

If FirstCell Is Nothing Then

Exit Sub

End If

Set AllCells = FirstCell

Set FoundCell = FirstCell

Do

Set FoundCell = ActiveSheet.UsedRange.Find(After:=FoundCell, what:="", searchformat:=True)

If FoundCell Is Nothing Then Exit Do

Set AllCells = Union(FoundCell, AllCells)

If FoundCell.Address = FirstCell.Address Then Exit Do

Loop

AllCells.Select

End Sub

fjwarng

能不能再引申一下,如何删除指定颜色所在的行?

LangQueS

QUOTE:

以下是引用fjwarng在2006-12-18 0:56:00的发言：

能不能再引申一下,如何删除指定颜色所在的行?

定位某颜色单元》编辑》删除》整行。

fjwarng

谢谢,这个我知道,我的意思是能不能通过函数来实现,我的数据库有几千行,按照常规方法,工作量太大.

LangQueS

建议重新发表个话题并将部分数据上传个附件。

守柔

QUOTE:

以下是引用雪兰君在2006-12-17 23:26:03的发言：

（如何确定word文字的颜色值？）

比如在格式-- 字体-- 字体颜色，中看到该颜色RGB值为238，250，238

如何删除 这种指定颜色 的文字？

用VBA也可以！

谢谢大家~

怎么WORD的问题，回复的多是EXCEL啊？

试试将光标定位于目标颜色字体中，右击，选择格式相似文本……