Как тексту присвоить атрибуты (?)

[GoodvinVV]

Dim podpis As TextFrame
Set podpis = myDocument.TextFrames.Add()
    podpis.Contents = "пример текста"                                  ' Собственно текст
    podpis.TextRange.CharacterAttributes.Size = 14                      ' кегль текст
    podpis.TextRange.CharacterAttributes.FillColor = newCMYKColor ' Цвет текста
    podpis.Top = y1                                                  ' позиция Y текст
    podpis.Left = x1                                                  ' позиция X текст
    podpis. Filloverprint=true '???????????????????????????????????????????????????????

Как присвоить оверпринт TextFrames (podpis)?

 

[qsedftghk]

Ответ: Как тексту присвоить атрибуты (?)

podpis.TextRange.CharacterAttributes.overprintFill=true

что-то в этом роде, имхо, док читать некогда.

 

[qsedftghk]

Ответ: Как тексту присвоить атрибуты (?)

на js так

podpis = app.activeDocument.textFrames.add();
podpis.contents = "пример текста";

var charCount = podpis.textRange.characters.length;

for(i=0; i<charCount; i++) 
{
 podpis.textRange.characters[i].characterAttributes.overprintFill=true;
}

 

[GoodvinVV]

Ответ: Как тексту присвоить атрибуты (?)

podpis.TextRange.CharacterAttributes.overprintFill=true

что-то в этом роде, имхо, док читать некогда.

уррааа!!! заработало!!!
qsedftghk спасибо.

 

[GoodvinVV]

Ответ: Как тексту присвоить атрибуты (?)

For R = 1 To podpis.TextRange.Characters.Count
можно ли циклом перекрашивать каждую букву в свой цвет? я имею ввиду CMYK
next R

 

[Evgen]

Ответ: Как тексту присвоить атрибуты (?)

Ну если в цикле работает OPM=1, то почему бы и не покрасить?
Запустить по массиву в цикле
podpis.textRange.characters.characterAttributes.FillColor = newCMYKColor

 

[GoodvinVV]

Ответ: Как тексту присвоить атрибуты (?)

понял что мне лучше без циклов:

            podpis.TextRange.Characters(1).CharacterAttributes.FillColor = newC
            podpis.TextRange.Characters(2).CharacterAttributes.FillColor = newM
            podpis.TextRange.Characters(3).CharacterAttributes.FillColor = newY
            podpis.TextRange.Characters(4).CharacterAttributes.FillColor = newK

 

[GoodvinVV]

Ответ: Как тексту присвоить атрибуты (?)

Как тексту присвоить шрифт(например Arial)??

 

[Eugenyus]

Ответ: Как тексту присвоить атрибуты (?)

textFont.family?
textFont.name?

 

[GoodvinVV]

Ответ: Как тексту присвоить атрибуты (?)

textFont.family?
textFont.name?

я не понял...
мне просто нужно создать тест с определенным начертанием например Arial. шрифт есть в myApp.TextFonts, но как его присвоить фрейму не разобрался

For Each fontRef In myApp.TextFonts
    
    If fontRef(Name) = "Arial" Then
                  Set podpis.TextRange.CharacterAttributes.TextFont(Name) = myApp.TextFonts(Name) 
    End If
next

так не получилось...(((

 

[Eugenyus]

Ответ: Как тексту присвоить атрибуты (?)

А если через точку:

Set podpis.TextRange.CharacterAttributes.TextFont.family = "Arial"

?
В синтаксисе мог ошибиться, не проверял, но принцип должен быть таким.

 

[GoodvinVV]

Ответ: Как тексту присвоить атрибуты (?)

А если через точку:

Set podpis.TextRange.CharacterAttributes.TextFont.family = "Arial"

?
В синтаксисе мог ошибиться, не проверял, но принцип должен быть таким.

странно, перепробовал многое, но не работает ничего illustrator CS4

Dim fontRef As Illustrator.TextFonts
 For Each fontRef In myApp.TextFonts
    If fontRef(Name) = "Arial" Then
          Set podpis.TextRange.CharacterAttributes.TextFont = myApp.TextFonts.Item(fontRef.Name)
        ''''Set podpis.TextRange.CharacterAttributes.TextFont.family = "Arial"
        Exit For
    End If
 Next

где ошибка? вроде же все правильно ...

 

[Eugenyus]

Ответ: Как тексту присвоить атрибуты (?)

Предположу, что здесь:

If fontRef.name = "Arial" Then

А зачем вообще здесь это условие? Почему напрямую нельзя назначить шрифт?

 

[GoodvinVV]

Ответ: Как тексту присвоить атрибуты (?)

Предположу, что здесь:

If fontRef.name = "Arial" Then

А зачем вообще здесь это условие? Почему напрямую нельзя назначить шрифт?

...я просто новичек в этом деле не знаю как правильно подойти к этому...
см.пост№8
ищу способ как это сделать пока без успехов

 

[GoodvinVV]

Ответ: Как тексту присвоить атрибуты (?)

... ну воот так сказать решил задачку...
присвоить шрифт тексту можно так:

podpis.TextRange.CharacterAttributes.TextFont = myApp.TextFonts.Item(myFont.Name)

, но нужно предварительно узнать "myFont.Name".
например воот так :

Dim myFontName As String
    For Each myFont In myApp.TextFonts
             myFontName = myFont.Name
        If myFontName = "ArialMT" Then
            
            Exit For
        End If
    Next

по крайней мере это работает...