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

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

спасибо за комментарий

по поводу вылезания букв за пределы объекта - не страшно

если можно то напишите пожалуйста более подробно как воспользоваться этим генератором к примеру в Кореле чтобы заполнить область произвольными символами

спасибо

никаких соображений?

Можно попробовать создавать чуть уменьшеную копию заполняемого объекта добаблять или уменьшать кол-во точек контура и сгенеренные буквы выравнивать по контуру (или ?по точкам) копии.....