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

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

1. Лучше обходиться без CorelScript

ActiveDocument.unit = cdrMillimeter
With ActiveLayer.CreateArtisticText(10, 20, "CMYK", cdrRussian, cdrCharSetRussian, _
         "Arial", 12, Bold:=cdrTrue, Italic:=cdrFalse, Underline:=cdrNoFontLine, _
         Alignment:=cdrCenterAlignment)
   .text.Story.CharSpacing = 100
   .Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)
End With

2. Обрабатывать в выделенном в цикле можно для надежности выбирая только текстовые объекты с помощью .FindShapes, что кстати позволяет обрабатывать внутри групп без разгруппировки

Dim myText As Shape, myColor as color
set myColor=CreateFixedColor(cdrPANTONECoated, _
          Palettes.OpenFixed(cdrPANTONECoated).FindColor("PANTONE 711 C"), 50)
For Each myText In ActiveSelection.Shapes.FindShapes(, cdrTextShape)
   myText.Fill.ApplyUniformFill myColor
Next myText

3. Перекрасить в разные цвета (каждую букву в свой цвет) например так:

dim i&,arrColors$()
arrColors=split("100,0,0,0+0,100,0,0+0,0,100,0+0,0,0,100","+")
for i=0 to ubound(arrColors)
   ActiveShape.Text.Story.Characters(i+1).Fill.ApplyUniformFill _
        CreateColor("CMYK,USER," & arrColors(i) & ",0")
next

Пишу такой код
ActiveLayer.CreateParagraphText 0, 50, 60, 0, "Привет пока"

Но почему то буквы (РУССКИЕ) не отображаются - шрифты пробовал разные ставить... Английские буквы нормально отображаются... У меня Винда 98, Корел 10.

izrukvruki, Винда 98 я уже забыл что это такое

Так еще не пробовал! Но попробую. А есть ли попроще код или метод ?

GoodvinVV, зависит от количества цветов... то, что использовал я удобно когда цветов оооочень много

Спасибо за метод, мне оказалось достаточно вот этого...

ActiveDocument.Unit = cdrMillimeter
With ActiveLayer.CreateArtisticText(10, 20, "CMYK", cdrRussian, cdrCharSetRussian, _
"Arial", 12, Bold:=cdrTrue, Italic:=cdrFalse, Underline:=cdrNoFontLine, _
Alignment:=cdrCenterAlignment)
.Text.Story.CharSpacing = 100
.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)
End With

ActiveShape.Text.Story.Characters(1).Fill.ApplyUniformFill CreateCMYKColor(100, 0, 0, 0)
ActiveShape.Text.Story.Characters(2).Fill.ApplyUniformFill CreateCMYKColor(0, 100, 0, 0)
ActiveShape.Text.Story.Characters(3).Fill.ApplyUniformFill CreateCMYKColor(0, 0, 100, 0)
ActiveShape.Text.Story.Characters(4).Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)

Еще раз спасибо!!!

А как можно сделать так чтобы набор букв разного размера (хаотично) заполнял область объекта

вот примерно так

имхо проще самому накидать штук сто разных, потом из этого набора брать куски, масштабировать их, крутить по разному и складывать в общую кучу

так то понятно но задача не очень простая - нужно сделать таких объектвов много - и чтобы они были все разные

поэтому хотелось бы как то оптимизировать процесс создания

Цитата:

Можно генерировать буквы произвольно размера (шрифта, цвета и т. п.), а затем их поворачивать на произвольный угол. С этим нет проблем - здесь поможет генератор случайных чисел.
Но я пока не могу сходу сообразить, как корректно расположить их (буквы) на произвольной области. При том варианте, о котором я думаю, часть букв будут выходить за границы объекта. А это недопустимо...