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

  1. NemoSUN

    [CDR X5-X8] Не могу сформировать PDF файл со шрифтом через Publish to PDF

    Пытаюсь сформировать файл из 170 страниц, но Корел вылетает. Формирую PDF по 25..30 страниц - получается. Но неудобно потом склеивать всё. Оперативной памяти 64. Система Windows 7(x64). Жёсткий - SSD.
  2. NemoSUN

    [CDR X5-X8] Поставить паузу

    Всё. Решено.
  3. NemoSUN

    [CDR X5-X8] Поставить паузу

    Увидел ) НО !!!!! Я вставляю эту строку. Перехожу на любую другую и у меня пропадает Alias "Sleep". Самопроизвольно.
  4. NemoSUN

    [CDR X5-X8] Поставить паузу

    Сделал как там. Но на строке Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) Пишет ошибку : "Compile error: only comment may appear after End Sub End Function or End Property"
  5. NemoSUN

    [CDR 2017-2021] CdrPreflight теперь бесплатный и с открытым кодом

    При выделении опции "Transparency effect" появляется окно с ошибкой 438 (Object doesn't support this property or method) В макросе подсвечивается строка If ffColor.Opacity < 255 Then
  6. NemoSUN

    [CDR X5-X8] Поставить паузу

    Помогите сделать паузу в полторы секунды в макросе: Sub CopyLogo() 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...
  7. NemoSUN

    [CDR X5-X8] Исправление подстановок

    Где в Corel могу изменить список подстановочных шрифтов ? При открытии файла, я связал не те шрифты, хочу удалить связку.
  8. NemoSUN

    [CDR X5-X8] Поиск и замена шрифта

    Sub Test() Dim s As Shape Set s = ActiveLayer.CreateArtisticText(4, 5, "Highlight your ideas!") s.Text.FontPropertiesInRange(1, 1, cdrWordIndexing).Style = cdrBoldItalicFontStyle End Sub Я дико извиняюсь. Но здесь назначается свойство. А как сделать в цикле If ? или For....
  9. NemoSUN

    [CDR X5-X8] Поиск и замена шрифта

    Изначальный шрифт системный (Arial), другой нет (Rubik) Мне важен учёт варианта написания шрифта - Normal, Bold, Italik....
  10. NemoSUN

    [CDR X5-X8] Поиск и замена шрифта

    Спасибо за ссылку. Только там, к сожалению, не учитывается вариант написания шрифта - Normal, Bold, Italik.... Я пробовал писать в макросе "Arial Bold" или "Times New Roman Italic". Вообще не ищет. А ищет только по названию шрифта - "Arial" или "Times New Roman".
  11. NemoSUN

    [CDR X5-X8] Поиск и замена шрифта

    Да. Так как это поиск только на текущей странице. А мне надо на 300 страницах всё поменять.
  12. NemoSUN

    [CDR X5-X8] Поиск и замена шрифта

    Помогите написать макрос для поиска и замены одного шрифта на другой. Во всех открытых документах. С заменой даже в блоках. Например, заменить Times New Roman Normal на Arial Bold
  13. NemoSUN

    [CDR 2017-2021] CdrPreflight теперь бесплатный и с открытым кодом

    Вот я балбес - да, ссылку увидел конечно ) Жаль, она без инсталлятора.
  14. NemoSUN

    [CDR 2017-2021] CdrPreflight теперь бесплатный и с открытым кодом

    Не нашёл ссылку. Я сделал так - поставил CdrPreflight_6.2_X4-X6.exe. А на него накатил CdrPreflight16. Версию показывает 6.3.1 (16.09.2017) Так работать будет ?
  15. NemoSUN

    [CDR 2017-2021] CdrPreflight теперь бесплатный и с открытым кодом

    Неа. Не находится такая папка. Может копию своей скините. P.S. А зачем второй скрин ? Там нигде CdrPreflight не видно.
  16. NemoSUN

    [CDR 2017-2021] CdrPreflight теперь бесплатный и с открытым кодом

    Разве? У меня 16. Пробовал ставить несколько раз. Нигде так и не появился.
  17. NemoSUN

    [CDR X5-X8] Как кнопку "StraightText" 120469 засунуть в макрос?

    Есть кнопка "StraightText" Не могу найти для неё сочетание клавиш и вообще в хелпе не нашёл её описание. А мне надо кнопку засунуть в макрос - необходимо выравнивать много текста на страницах.
  18. NemoSUN

    Почему Preflight ругается

    Я изначально делаю (стараюсь делать всё в CMYK). А сейчас взял в помошь Preflight. Так и случается ) Но решение нашёл. Во всяком случае когда PS заливка + прозрачность.