[CDR X5-X8] Названия используемых красок в документе

[BASMACH]

Как с помощью VBA можно взять инфу из названий сепараций принтера.

 

[BASMACH]

Lev , я нашел тему Подписать краски макросом? вы писали "Ответ: Подписать краски макросом?

Учёт красочности битмапов, хотя бы частично, привинтить можно. Инфу можно взять из названий сепараций принтера. Так, например, можно отловить цвета вставленных eps'ов."
А вот как взять инфу то не написали или это военная тайна?

 

[lev]

Насколько я помню, я писал это в те времена когда код из примеров в хелпе был рабочим, выдавал только названия существующих сепараций и главной моей проблемой было то, что выдавал их в стринговом виде, а мне требовалось совершать телодвижения для работы с соответствующим Color'ом. Сейчас под рукой только версии X6, X7 в которых данный код выдает названия 10 сепараций, независимо от их реального количества.

Sub Test()
  Dim strPlates As String
  Dim Plate As SeparationPlate
  Dim intPlateCounter As Integer
  With ActiveDocument.PrintSettings.Separations
  For intPlateCounter = 1 To .Plates.Count - 1
  If .Plates(intPlateCounter).Enabled = True Then
  strPlates = strPlates & .Plates(intPlateCounter).Color & vbCr
  End If
  Next intPlateCounter
  MsgBox strPlates
  End With
End Sub

Но могу за давностью лет и ошибаться, может так оно всегда и работало.
Я для получения цветов пользовался комбинацией палитры документа и перебора объектов, а инфа из сепараций принтера нужна была только для вставленных as placeable EPS'ов и некоторых битмапов инфа о которых по другому недоступна, но виделась в окне сепараций.