Question

word中如何编写vba来批量删除特定颜色的文字?

比如说，我想删除这个文档中所有灰色文字的部分，该如何写vba代码，让电脑来自动删除这些灰色的文字呢？请高手告知详细代码，感激不尽。谢谢！

Answer 1

这哪需要用VBA吗，简单的事情复杂化了。Ctrl+H打开替换对话框，单击高级或者更多，勾选使用通配符，在查找框中输入*，替换为框中输入^13，然后将光标置于查找框中，单击下面的格式-字体，选择字体的颜色为灰色即可。最后单击全部替换即可。

Answer 2

Sub test()
Dim Wrd As Range
Dim i
i = Selection.Font.ColorIndex
For Each Wrd In ActiveDocument.Words
If Wrd.Font.ColorIndex <> i Then Wrd.Delete
Next Wrd
End Sub

先用鼠标选择你跟你要删除的字体颜色一样的单词
比如你那个图 你就先用鼠标高亮photon 然后运行代码
跟photon字体颜色一样的内容就都删除了