CorelDRAW VBA : Создание текста

Написал GoodvinVV в 20/02/2008 10:18:57

Создать текст- это просто!

CorelScript.CreateArtisticText "C M Y K" ', 10, 20
With ActiveDocument.Selection.Shapes.Item(1).Text.Story
.Font = "Arial"
.Size = 10
End With


Перекрасить целиком можно так:

Dim myText As Shape
For Each myText In ActiveSelection.Shapes
myText.Fill.ApplyUniformFill myColor
Next myText

Вопрос :
Как перекрасить его в разные цвета (каждую букву в свойцвет)? Например: C M Y K