Visual Basic para Aplicaciones - ayuda macro en word para poner colores distintos a cada frase de un texto

Sub coloresaleatorios()

colores = Array(wdYellow, wdBrightGreen, wdTurquoise, wdPink, wdBlue, wdRed, wdDarkBlue, wdTeal, wdGreen, wdViolet, wdDarkRed, wdDarkYellow, wdGray50, wdGray25, wdBlack, wdNoHighlight)

Selection.HomeKey Unit:=wdStory

y = -1

x = -1

line:

s = ""

While s <> "."

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

s = Right(Selection.Text, 1)

If Selection.Type = wdSelectionNormal And Selection.End = ActiveDocument.Content.End Then

Selection.HomeKey Unit:=wdStory

Exit Sub

End If

Wend

While x = y

x = Int(UBound(colores) * Rnd())

Wend

y = x

Selection.Range.HighlightColorIndex = colores(x)

Selection.MoveRight Unit:=wdCharacter, Count:=1

GoTo line

End Sub