VBA MS Word 字体颜色

Question

我想通读一个 Word 文档，找到任何标记为黑色以外的任何颜色的文本并将其删除。如何在 VBA 中查找文本颜色？

Answer 1

试试下面的代码:

Sub DeleteNonBlack()
   Dim Wrd As Range

   For Each Wrd In ActiveDocument.Words
    If Wrd.Font.Color<>wdColorBlack and wrd.Font.Color<>wdColorAutomatic Then
      Wrd.Delete
    end if

   Next Wrd

End Sub

HTH