Нужен скрипт

[panton_anton]

Добрый вечер!
Давольно часто собираю коллекты для дизайнеров. Проблема в том, что часто линки идут не в папку с РГБ картинками, а в папку с СМУК картинками. Приходится в ручную перебирать линки(((
Вопрос если скрипт который автоматом рвет линки и автоматом перелинковает из другой папки (желательно с учетом подпапок)

 

[MT]

Ответ: Нужен скрипт

Если имена файлов одинаковые, то написать такое несложно,
но зачем создавать разные папки для RGB и CMYK.
Я понимаю что начинать часто приходится
до того как все картинки готовы, но тогда просто
по мере готовности заменяешь файлы и обновляешь связи.

 

[panton_anton]

Ответ: Нужен скрипт

Да именна файлов как правило одинаковые. Перелинкововать хм, можно, но из-за особенностей процесса работы над каталогом пришлось создать разные папки для РГБ и СМУК(((, так удобней и быстрей на пре-прессе.
Не сложно это как? Я, например, не умею((( мне бы готовый найти или хоть тупо команду для разрыва линков и для перелинковки((((

 

[MT]

Ответ: Нужен скрипт

Если сама команда, то на ВБ

myLink.Relink newFilePath
myLink.Update

Но до этого надо для каждого линка
проверить куда линк. И если не в ту папку, тогда применять.
Перебор ликов лучше делать с конца списка,
потому что каждый новый линк будет в списке последним.

 

[panton_anton]

Ответ: Нужен скрипт

Спасибо. А где найти список (справочник) по командам? Так что бы тупо действет - команда?

 

[MT]

Ответ: Нужен скрипт

В поставке ИД есть файл "InDesign CS2 Scripting Reference.pdf".

Только это не команды, а свойства и методы объектов ИД,
поэтому и обращаться к ним надо соответственно.

Если надо перебрать все линки документа, то на VBS это выглядит так:

Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.CS2")
Set myDocument = myInDesign.ActiveDocument
Set myLinks = myDocument.Links

For i = myLinks.Count To 1 Step -1
Set myLink = myLinks.Item(i)
myFilePath = myLink.FilePath

Rem Новый файл newFilePath

Rem Relink
myLink.Relink newFilePath
myLink.Update

Next