Недавний контент pavel_t

А вот так если написать? Set myindesign = CreateObject("InDesign.Application.CC.2017")

Раньше писал и отлаживал в MS Visual Basic 6.0 Professional. Потом код в блокноте сохранял, только там в начала надо было убирать название процедуры или что-то там (я не шарю). А когда нужно было с формой скрипт - в VB очень удобно рисовать - потом компилировал в экзешник.

Добрый день Тоже понадобилось поработать с RecordFindChange и записанные им строки скриптом FindChangeByList или FindChangeByList_mod не выполнялись. Правда, у меня CC 2015. Увидел, что он при записи строки добавляет запятую и пробел перед findWhat и changeTo. пишет: grep {, findWhat:"\\n"...

Ответ: Экспорт в jpeg и tiff экшен не подойдет наверное - тиф надо потом в шопе посмотреть, кроме того в зависимости от имени исходника жепеги и все остальное должны в разные папки сохраняться, а скейл есть, но жпег должен быть в размер, чтобы его тетки в ворд могли вставить и распечатать в...

Нужно два скрипта на бейсике: 1. экспорт в jpeg (выбор нужной папки в зависимости от имени файла, 150 dpi, и т.д. - для утверждения заказчиком) 2. на выбор: экспорт в tiff или сохранение в eps (тоже в нужную папку, разрешение на выбор, antialiasing на выбор и т.д - для вставки макета в...

Ответ: фотошоп из-под индиза этот кусок выглядит так: Set myEPSOpenOptions = CreateObject("Photoshop.EPSOpenOptions") With myEPSOpenOptions .Resolution = 300 .Mode = 3 .AntiAlias = False End With Photoshop.Application.Open...

Ответ: фотошоп из-под индиза вот так надо: Photoshop.Application.Open (fold + MyName + ".eps"), myEPSOpenOptions

Ответ: фотошоп из-под индиза тоже. ругается на любое слово после запятой.

Ответ: фотошоп из-под индиза примерно так и представлял... только вот на эту строку сразу ругается.. Photoshop.Application.Open (fold + MyName + ".eps",myEPSOpenOptions) как параметры указать теперь понятно... но как его заставить их применить...

скрипт на бейсике не получается кусок, в котором фотошоп должен открыть епс с нужными настройками, склеить и потом сохранить его в тиф с нужными настройками. пока только это хоть как-то работает, но открывает в ргб и 72 дпи: Photoshop.Application.Open (fold + MyName + ".eps")...

Ответ: автоматизация вставки картинок PC, win xp, quark 501

есть ли возможность автоматической вставки нескольких картинок сразу, если я знаю полный путь к файлам только чтоб не по одной. все картинки лежат в одном каталоге, поэтому приходится находить их по имени, что занимает некоторое время. может, какойто плагин есть?

Ответ: vba и оверпринт Попробуй в макрос добавить сплющивание в битмап перед экспортом поставил сначала все битмапит, потом экспорт, потом отмена битмапа как то не по человечески, на мой взгляд, но работает! спасибо

Ответ: vba и оверпринт я просто подумал, может как то по другому переписать сам процесс экспорта где то же должно устанавливаться, например, чтоб олвейз оверпринт был...

Ответ: vba и оверпринт так он все время в этом режиме у меня