Есть замена шрифтов?

[Йожег]

Чтоб не объяснять каждый раз что Pollock1 надо заменить Pollock1C

 

[suntory]

Panose у Adobe вроде нет нигде, кроме Pagemaker

 

[Йожег]

 

[lev]

Может так прокатит?:

'ReplacePollock.vbs
Set ph = CreateObject( "Photoshop.Application" )

Set doc=ph.ActiveDocument

For Each L In doc.ArtLayers
 If L.Kind = 2 then ' 2 = psTextLayer 
   If L.TextItem.Font="Pollock1" Then L.TextItem.Font="Pollock1С"
 End If
Next

Но, поменяет шрифт всей строки, а не куска с заданным шрифтом, и не найдёт включения Pollock1 внутри строк начинающихся не с него. (лень изучать модель)

 

[Йожег]

Да ладно прислали мне PollockOne. Просто я думал что когда фотошоп пишет "заменяю шрифты" то он руководствуется каким-то списком замен.