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

Теперь так: 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 ? Не могу вставить картинку - сайт не даёт. Говорит ошибка....

С удовольствием. Только пока не знаю как. Сработало так - ActiveDocument.ActiveLayer.CreateArtisticText ActivePage.CenterX, ActivePage.BottomY, cdrRussian, , "Arial", 12, cdrTrue, cdrFalse, , cdrCenterAlignment ActiveShape.Fill.UniformColor.CMYKAssign 0, 50, 50, 0

Есть макрос: Sub Macr() ActiveLayer.CreateArtisticText ActivePage.CenterX, ActivePage.BottomY, AnyName, _ cdrRussian, , "Arial", 12, cdrTrue, cdrFalse, , cdrCenterAlignment End Sub Нужно задать определённый цвет выводимого цвета на слой. Пишу так: Sub Macr() ActiveLayer.CreateArtisticText...

Спасибо ОГРОМНОЕ за оперативность и желание помочь начинающему прогписателю )

Оказывается сама программа правильно отрабатывает. Просто когда я переношу файл в "D:\!!! Distr\Temp" название файла начинает показыватся как Untitled-1 вне зависимости от названия файла. Ну собссно вопрос выяснен. Теперь буду разбираться с данным каталогом.