Результаты поиска

@_MBK_, а от чего такое моглО произойти ?

А без такого смертельного номера никак ? Попроще для деревенских. А то и скрипты и настройки и ..

При попытке сохранить под другим именем с недавнего времени Акробат выводит чистое поле и всё. Плагинов к нему никаких не ставил.

@suntory, ОГРОМНЙШЕЕ СПАСИБО !!!!!!!!!!!!!!!!!!! Всё решил. Хотя конвертер чудит - нажимаю сконвертировать просто файл - пропадает окно конвертера вообще. Работает только открыть папку.

Мне дали файл, созданный неизвестно когда (лет пять назад). И попросили открыть. Расширение qxd - как понимаю Кварк. Скачал 2016 версию, установил. При попытке отрыть файл Кварк говорит что "Этот документ невозможно открыть с помощью данной версии....[16]" Если открываю Кварк и оттуда пытаюсь...

Какой-нибудь пятой версии ? Ладно. Буду создавать профиль в Pfeflight чтобы он проверял и всё переводил в CMYK. Иного варианта не вижу.

Забить нельзя. Типография не пропускает это.

Спрашивал на других форумах. Мне так и не смогли дать ответ по поводу продолжения. Что должно дальше быть. Set Lg=d.ActivePage.Layers("Logo") If Not Lg Is Nothing Then ... Получается это Кореловский баг ?

Судя, по последней вашей реакции о встаке блока из памяти, я даже не знаю что такое макросы....

@~RA~, Когда проверяю его Pfeflight, то он мне показывает 4 объекта RGB

@_MBK_, 005.pdf Когда проверяю его Pfeflight, то он мне показывает 4 объекта RGB

Да и я решил вопрос, если так можно сказать. Будут печатать на другом оборудовании. Спасибо ребят за помощь. P.S. Может заодно подскажете - в настройках печати в PDF (Publish to PDF...) стоит что все цвета переводить в CMYK (Use document color setting). Но некоторые пропущенные RGB так и...

@~RA~, в типографии не хотят этот профиль.

@_MBK_, спасибо.

@_MBK_, да, модель, ошибся. Скачал программку CMYK255. Может она и хорошая, но при выборе файла (после нажатия Ok) VBA даёт ошибку.

Как перевести на всех открытых страницах цветовой профиль CMYK255 в CMYK. В каждом открытом документе одна страница. В каких-то документах есть 255, а где-то нет.

Сделал так. Если документ имеет необходимый слой, то буфер вставляется. Но если нет, то выводит ошибку, что на картинке.

Лааадно ) Раскрою секрет ) Что-то мне скрипт удаляет, но потом не хочет создавать слой: Sub CopyDoc() Dim d As Document Dim s As Shape Dim Lg As Layer Set s = ActiveShape For Each d In Application.Documents For Each Lg In d.ActivePage.Layers If Lg.Name = "Lo" Then Lg.Activate Lg.Delete...

А если это надо сделать сотни раз....

А как удалить всё на текущем слое ?