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