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