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