vba - VBA MS Word字体颜色

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

最佳答案

尝试以下代码：

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

高温超导