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

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

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

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

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

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

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

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

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

у меня работает 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

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

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

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

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

Лень возиться с чужим кодом. Побуквенно я разбиваю так: 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...

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