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

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

Не знаю, что там у ТС. Приведу свой пример: Развертка бумажного пакета. Печать на весь лист. При сборке противоположные края замыкаются в трубу, складывается донышко и т.д. При неравномерной закатке, хоть триадой, хоть пантоном, противоположные края отличаются по цвету, что заметно на стыке. С...

Думаю "BHTL" и "bhtl" должны отличаться (в вашем примере их нет) "нет" и "нет," возможно, должны быть одинаковыми и считаться вместе

https://xn--80ahsnc.xn--p1ai/s-rulonnoj/docan_h3000rlm/?ysclid=mfwraaqho9752603882

pdftotext.exe "filein" "fileout" само собой, никаких стилей не сохраняется "кончик синего интродьюсера и доставочный катетер, посредством эхо-контроля необходимо убедиться, что кончик доставочного катетера все еще находится в просвете вены. Это особенно актуально у пациентов с выраженной...

Академическая

в рамке последняя "long st", за рамкой "st" прочитай всплывшую подсказку на собственном скриншоте, на который я сослался https://en.wiktionary.org/wiki/%EF%AC%85

Если Вы имеете ввиду последнюю лигатуру обведённую рамочкой, то это не лигатура "ft", это лигатура "st", а точнее "long s t", что ещё лучше видно на скрине @suntory. Это "исторический" вариант написания "st".

Вы дали картинку двух отдельных букв с сильным кернингом Лигатура "ft" так не выглядит. В Таймсе её нет. Буквосочетание "из" приведённое выше так же не является лигатурой. Ваше ft - полный офтопик.

По хелпу: Function FindSegmentAtPoint(x As Double, y As Double, ParamOffset As Double, [HotArea As Double = -1]) As Segment мы получаем ParamOffset А далее Вы используете BreakApartAt(iOfset, cdrRelativeSegmentOffset), вместо cdrParamSegmentOffset Заодно и рвёте сегмент несколько не в том месте...

лучше нацелить на то же сообщение alert("Пожалуйста, выделите текстовый фрейм.");, чтобы не заставлять пользователя делать двойную работу, если он руководствуется подсказкой и не сообразит выделить именно текстовый фрейм.

Чего-то я заблудился в логике :( Раскомментируй строчки и запости скриншот, чего у тебя неправильно выходит, и как оно должно быть. По моей логике рисуем горизонтальки: на левом рисунке четное кол-во рядов (10), линий горизонтального реза 11 справа нечётное (9) линий реза 10 при 11 строках (10...

Новая попытка Закомментирована генерация номеров хвостов кривых, при желании можно снять комменты

Правок было чуть больше, перевыложил в тот же пост