VBA MS Word Couleur de la police

Question

Je veux lire en lisant un document Word, trouver un texte qui est marqué dans une autre couleur que le noir et le supprimer. Comment trouver la couleur du texte dans VBA?

Answer 1

Essayez le code suivant:

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