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

Sub-DeleteNonBlack（）
变暗Wrd As范围
对于ActiveDocument.Words中的每个Wrd
如果Wrd.Font.ColorwdColorBlack和Wrd.Font.ColorwdColorAutomatic，则
删去
如果结束
下一个世界
端接头

嗯