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

Это ваши предположения? Или есть этому подтверждение?

Так в X16 этих шрифтов нет.

Такой способ у меня убрал только один файл. Второй шрифт так и сидит (также убирал стили через CMX).

Кстати, и у меня тоже прилепились несколько новых шрифтов, которых изначально нет. Все файлы у меня сохранены в X16. Открываю в 2024 - в списке используемых появились новые шрифты. Хотя никаких сопоставлений не делал.

Да. Уфф.. Всё. Вопрос закрыт. Установил ))))) СПАСИБО ВСЕМ, что откликнулись.

У меня до этого был Corel X6 и версия CdrPreflight под него. Как пробу, я также скопировал папку CdrPreflight в C:\Program Files\Corel\CorelDRAW Graphics Suite\25\Programs64\Addons\CdrPreflight. Но не запускается.

Хоть и добавил вариант для 2024 версии, но не работает.

Спасибо конечно за совет. Но я в компиляции как свинья в апельсинах.

Интересно, будет ли макрос под версию 2024 ?

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

Всё. Решено.

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

Сделал как там. Но на строке 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"

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

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

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

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....

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