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

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

Лааадно ) Раскрою секрет ) Что-то мне скрипт удаляет, но потом не хочет создавать слой: 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...

Если не против, я в понедельник отпишусь ужЕ.

Хм, я думал, что Слой принадлежит (как подпараметр) Документу как через Страницу, так и напрямую. В этом случае слой относился бы к текущей (активной) странице.

Да, уже так и сделал. Заработало. P.S. У меня выдавало ошибку ещё и потому, что не писал .ActivePage. Был уверен, что можно так : d.Layers(...)

Нет. Вставляет то сейчас не на определённый слой, а на активный. А я не пойму как вставить на определённый слой. И как его перед этим активировать. Пробую: Sub CopyDoc() Dim d As Document Dim s As Shape Dim l As Layer Set s = ActiveShape For Each d In Application.Documents...

Потому что надо вставить на ОПРЕДЕЛЁННЫЙ слой, а не на тот, что будет активен в документе в данный момент. P.S. РАБОТАЕТ )

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

Пишу так: Sub CopyDoc() Dim d As Document Dim s As Shape Dim l As Layer Set s = ActiveShape For Each d In Application.Documents d.Layers("LaLa").Activate ActiveLayer.Paste Next End Sub Отладчик пишет что, Object doesn’t support this property or method

как ктО ? И если такое есть в Иллюстраторе, то нельзя ли предположить, что пдф был создан именно оттуда, после операции "Clipping Group" ?

Спасибо за инфу о Символах. Открыл для себя целый мир !! )

Ссылку отправил. Что мне надо на стр.15. Что забавно, когда открываю файл Акробата и просто пересохраняю страницу, то формат Symbol теряется.

Сейчас буду пробовать... Я не знал что у Корела есть такая возможность !!!! ГДЕ ??? Потому что предполагаю (предполагал) что Symbol - дело рук не Корела, а Acrobat'а.

На днях надо было импортировать pdf страницу в CorelDraw X6. При импорте вся страница отображается как Symbol. Как такие страницы можно сформировать в файле PDF ? Не могу вставить картинку - сайт не даёт. Говорит ошибка....