Selection.SelectCurrentColor (Word)
Erweitert die Markierung nach vorn, bis Text mit einer anderen Farbe auftritt.
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
Selection.SelectCurrentColor
n = Len(Selection.Text)
MsgBox "Contiguous characters with the same color: " & n