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

Мне дали файл, созданный неизвестно когда (лет пять назад). И попросили открыть. Расширение 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...

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

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

Теперь так: 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 = "Logo" Then Lg.Activate Lg.Paste d.Save End If Next Next End Sub Перенёс ещё сохранение документа в другой цикл...

Лажа - это "замазывание" нодоработанного кода, обработчиком On Error. В моём понимании - это можно сделать когда нужно запустить программу по быстрому. Но в дальнейшем убрать эту обработку и добавить нужный код.

С меткой проходит ) Правда, ощущение что заткнул дырку в трубе тряпкой. Вроде не течёт. Но по факту лажа....

И снова здравствуйте )))) Усложняю задачу - теперь надо дополнить программу так, чтобы те документы где нет слоя 123, пропускались. Пробую на двух открытых документах - в одном есть слой, в другом нет. Sub CopyDoc() Dim d As Document Dim s As Shape Dim Lg As Layer Set s = ActiveShape For Each...