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

  1. lev

    [ID CC-CC2022] Заменить х на ×

    Накой столько скобок? Зачем хранить отловленные пробелы и "крестики"? (\d)\s*[xх×ХX]\s*(\d) менять на $1~<×~<$2
  2. lev

    [CDR 2017-2022] Corel 2018 - как организовать шрифты в коллекции?

    Откройте Corel Font Manager и организуйте коллекции в нём
  3. lev

    [CDR 2017-2022] Ищу макрос — расстояние между объектом и краями страницы

    Sub page_dist_size() ActiveDocument.BeginCommandGroup "Page Dist & Size Dimensions" If ActiveSelection.Shapes.Count = 0 Then Exit Sub ActiveDocument.Unit = cdrMillimeter dist = 12 txt_size = 24 Dim p As Page Set p = ActivePage Set s = ActiveSelection.Shapes.All Set pt =...
  4. lev

    Bitmap fonts

    Я вчерась погуглил Adobe ShoeBox. Шрифтом они пользуются. Шрифт, как ТС и писал состоит из двух частей. Растровая png картинка и xml описание. Программа умеет добавлять кернинг, но вот пользуются ли этой функцией у ТС не уверен, раз приходится править верстку. Могу придумать другие варианты...
  5. lev

    Bitmap fonts

    Вероятно ТС не пользуется кернингом шрифта, поэтому они после каждой его перегенерации заново сдвигают буковки в интерфейсе.
  6. lev

    [CDR 2017-2022] Не получается сделать контур для резки стикеров

    А чем не устраивает CreateBoundary?
  7. lev

    [Acr DC] по условиям лицензии этот шрифт не может быть встроен". Как его встроить?

    В 18-м посте ТС выложил шрифт на форум, в 20-м заявляет, что потерял его и пытается найти, в предыдущих постах ему рассказывали как лечить и, раз пару лет всё было спокойно, то ТС'у это уже удавалось. И всё это в ветке по Акробату. Не мешайте есть попкорн. 'popcorn'
  8. lev

    [CDR 2017-2022] Научите пользоваться text.replace

    Примерно так: Sub replace_txt() Dim s As Shape ActiveDocument.BeginCommandGroup "rep" from$ = InputBox("Чё меняем?") tto$ = InputBox("На чё меняем?") For Each s In ActiveLayer.Shapes.FindShapes(, cdrTextShape) s.Text.Story = rep(s.Text.Story, from, tto) Next s...
  9. lev

    [CDR 2017-2022] Задать Nudge

    Изучать файл DrawUI.xml
  10. lev

    [ID CC-CC2022] Импорт векторных объектов в InDesign через Clipboard

    Для CorelDRAW существует макрос Copy To Adobe Illustrator. Внутри он устроен следующим образом: Corel экспортирует то, что хочется вставить в Adobe программы во временный файл формата ai-pdf-eps, в зависимости от опций. А затем функциями WinAPI этот файл записывается в Clipboard. Вы можете по...
  11. lev

    Шрифты из грамоты

    У меня в коллекции она проходит под кличкой Invest
  12. lev

    Почему разное расстояние между буквами

    Думаю они просто не заморачиваются этим. Вот например первый попавшийся шрифт (а попался Arial). "Tex" кириллицей и латиницей.
  13. lev

    [ID CS4-CS6] Пишу прогу под себя

    VB он сам по себе, свой собственный. Вот VBA они чьи-то.
  14. lev

    [CDR 2017-2022] Обернуть в цикл

    Мне лень было марафеты наводить, текстом напишу. Для кнопок стоит фрейм завести и в нём их генерировать. При большом кол-ве кнопок, можно скроллбар приделать. Про иконки, имена файлов и т.п. в коде упомянул. Особых сложностей не вижу.
  15. lev

    [ID CS4-CS6] Пишу прогу под себя

    Да нет у Индизайна никаких проблем с VB окромя кроссплатформенности, да с указанием точной версии могут быть небольшие затыки.
  16. lev

    [CDR 2017-2022] Обернуть в цикл

    Вот примерчик накидал Чуток поторопился, должно быть nbuttons(n).Number=n, чтобы по номеру из массива брать имя файла для импорта, лень перезакидывать gms
  17. lev

    Перемещение файлов в одноименную папку Total Comander

    Создавать папку в противоположной панели ТС и перемещать туда выделенные файлы и папки. Если есть несколько одноименных файлов (в режиме Branch View), то ругаться, но без особой обработки данной ситуации.
  18. lev

    Перемещение файлов в одноименную папку Total Comander

    А я всё со скриптом '===================================================================== ' Создание папки и перемещение в нее выделенных файлов и папок ' Для создания папок в противоположной панели ' в параметрах вызова из TC должно быть прописано: ' "%L" "%T"...
  19. lev

    Перемещение файлов в одноименную папку Total Comander

    По условиям задачи требовалось перемещать файлы, а не папки