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

ну можно и референс с юнитами убрать ... :) для краткости

да и s0.GetBoundingBox x, y, w, h там не нужен так можно s0.GetSize w, h

это всё что вам потребуется Sub Istchi() Dim w As Double, h As Double, x As Double, y As Double Dim pc As Shape, s0 As Shape, s1 As Shape, sr As ShapeRange ActiveDocument.ReferencePoint = cdrCenter ActiveDocument.Unit = cdrMillimeter Set s0 = ActiveShape s0.GetBoundingBox x...

из похожего есть такой Baron (Neue)

+1 (Он) + Италик

???? чего ж ещё

Xenia вам нужна ...

Десерт строчные - Maria Antuanetta заглавная - это два? шрифта Antonella script X Bold и Majestic X-2

это здорово скажется на объёме макроса, пожалуй нет, и ёщё по той причине, что эта задача исключительно сезонная, почти разовая, но ... меня больше удручает безобРАЗительное отличие в скорости работы с текстом на последних версиях ... аж хочется визуализацию прогресса видеть, чтобы не было...

А, интересно стало, что было первым "большим" макросом? 'hmmm'

" ... туда тоже можно!" :)

я бы обозвал это не другим продуктом, а оболочкой к коду - shell :) емайл я бы не стал ... лучше ссылку на гитхаб - для основного кода и ниже просто shell - имярек ох, сложностей не надо, там и так анализа хватает ... default - August и к нему варианты UCase и LCase да, вот ещё вариант...

ну, а я пока до такого допилил скриншот 0. Интерфейс переделан на русский 1. Не/Создавать декабрь предыдущего - если создается - выводится первым 2. Не/Создавать январь следующего 3. Не/Создавать номера недель 4. Имена месяцев в верхнем регистре - ЯНВАРЬ - иначе Январь - для всяких рукописных...

четыре ... :) жили и играли ночью в преферанс и чапаева :)

ну, а я помучаю ещё немного, если вы не против - вдруг, да ещё чего нарисуется ... тем более, что на Х7 и 2017 ( оба х32) зависания и косяки после июня имеют место быть ... я уж задумался - может с компом что-то не так - но ведь остальные макросы на ура 'hmmm' и на 2018 (х64) штопоров нет

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

Описание тут добавлена Юзерформа

да ... просто сentury ... у new верхняя лапка К более полого отходит

ага - ничего не изменяя - корел или вылетает, изрядно задумавшись - 2017 или - Х7 - бесконечно изображает деятельность если шаблон поменять - убрать числа через дробь - т.е. в шесть строк - всё проходит лихо, но результат немного разочаровывает - до июня норм, а далее типа этого