VBA MS Word Font Color

Question

I want to read a read Word document, find any text that is marked with any color other than black, and delete it. How to find text color in VBA?

Answer 1

Try using the following code:

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

NTN