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

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

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

Да, уже так и сделал. Заработало. 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 вне зависимости от названия файла. Ну собссно вопрос выяснен. Теперь буду разбираться с данным каталогом.

Всё заработало. Оказывается, что имя не бралось, потому что кореловский файл лежал в папке "D:\!!! Distr\Temp". Как только файл оттуда перенёс в другой директорий сразу всё заработало. Что за ерунда непонимаю.

Пишу скрипт в Кореле (X6, 64bit): Sub DocName() MsgBox ActiveDocument.Name End Sub В окошке выводит Untitled-1, хотя у меня открыт документ с другим именем. Пробую так: Sub DocName() MsgBox CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveDocument.Name) End Sub Всё равно...

@suntory, у меня есть скачанная - FLS502WinManOnline.pdf. Но неудобно на аглицком читать )))

@suntory, а где Generated Names https://yadi.sk/i/2aTlsTeKgJRxJ какие опции ?