Недавний контент lev

  1. lev

    Overprint white / оверпринт белого

    Чаще всего натыкался на 0% спота с неотмененным оверпринтом.
  2. lev

    Как выделить каждый второй файл? Нумерация в конце имени с 0 до 119. Total Commander

    Выше описаны способы убить дубликаты с первого раза не используя команду выделения каждого второго файла.
  3. lev

    [PDF] Поправить PS, чтобы получить корректный PDF

    Мой вариант. На 20 стр какая-то накладка, дальше особо не разглядывал.
  4. lev

    [CDR 2017-2022] ... simple GuideLine ;)

    https://macromonster.com/product/levs-macro-solutions-web-graph/
  5. lev

    [CDR 2017-2022] Несколько групп рядом

    мне прилипшие к большой рамке тексты не понравились а мой вариант можно сдвинуть в сторонку, перегруппировать вручную и отцентровать обратно но, да, это очень частный случай
  6. lev

    [CDR 2017-2022] Несколько групп рядом

    в твоём примере с рамками все линии из двух точек. можно исключить их из обработки: Set sr = ActiveSelectionRange.Shapes.FindShapes(Query:="@com.curve.nodes.count > 2") а перед выходом сгруппировать сами рамки ActiveSelectionRange.Shapes.FindShapes(Query:="@com.curve.nodes.count = 2").Group Мне...
  7. lev

    [CDR 2017-2022] Несколько групп рядом

    Чуть выше приложил тестовый файл - раздробленная календарная сетка, которую захотелось объединить по месяцам и повыравнивать. Могу и сам сетку разгруппировать для быстрой покраски выходных, а обратно группировать чуток неудобно. Заодно на файлике тестируется предложение по диагоналям.
  8. lev

    [CDR 2017-2022] Несколько групп рядом

    Тестировал перед выкладыванием, просто в сообщении пример тестов приводить не стал. CorelDRAW X7, Win7 32 bit рус, системный десятичный разделитель "." Можно не заморачиваться, всё равно для реальной работы стоит формочку наколхозить (ради доп. функционала), ну и ограничить ввод в...
  9. lev

    [CDR 2017-2022] Несколько групп рядом

    у меня работает Sub test_pd() Debug.Print ParseDouble("0,8") Debug.Print ParseDouble(",834") Debug.Print ParseDouble(" - 0 , 8 ") Debug.Print ParseDouble(" .8 ") Debug.Print ParseDouble(" . 8 ") 'не фурычит, да и ладно Debug.Print ParseDouble("1a2a3f") End Sub
  10. lev

    [CDR 2017-2022] Несколько групп рядом

    внёс для себя небольшие правки, см. тестовый файлик: 'не учитываем диагональные совпадения If (gapX <= maxGapX And gapY = 0) Or (gapY <= maxGapY And gapX = 0) Then Union parent, i, j End If и чуток упростил проверку ввода (функциям IsNumeric и CDbl без разницы вид...
  11. lev

    Уведомления на email

    Угу, оно. Считал за новую переписку любое новое сообщение в личку, но сам не тестировал.
  12. lev

    Уведомления на email

    такие галки вижу (https://forum.rudtp.ru/account/preferences)
  13. lev

    Плашечная печать Спб

    Ничего не понял. В чем заключается универсальность штампа? Единый штамп на любой размер пакета? На любую слейку, что по углу, что по центру половинки? С разрезным дном и без? С верхним подворотом и без него? Куплю два. Чего клеить по лицу? В каком месте Вашего совета левый край...
  14. lev

    [CDR X5-X8] Ctrl+K массово

    Лень возиться с чужим кодом. Побуквенно я разбиваю так: Sub breaker() 'не работает с обтеканием текста Dim sr As ShapeRange, s As Shape Set sr = ActivePage.FindShapes(, cdrTextShape) c = 0 ActiveDocument.BeginCommandGroup "Breaker" While Not c = sr.Count c = sr.Count For Each...
  15. lev

    [CDR X5-X8] Ctrl+K массово

    Уберите в самом начале Option Explicit