Selection.SelectCurrentColor (Word)

Cette méthode étend la sélection au premier caractère du texte ayant une couleur différente.

Selection.HomeKey Unit:=wdStory, Extend:=wdMove 
Selection.SelectCurrentColor 
n = Len(Selection.Text) 
MsgBox "Contiguous characters with the same color: " & n