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

Sub QuitApp() Quit End Sub

А импорт зачем? Можно ещё миниклип>битмап>трейс>замер>удаление мусора опять же без спотов, да и с цветовой моделью битмапа надо будет решения принимать

Из припоминаемых обходных методов - экспорт в битмап (полной картинки или маленького клипа) и взятие из него информации через PhotoPaint VBA или другими средствами. Но вызывают затруднения споты, линзы и т.п. Возможно можно проделать подобное и с форматами типа pdf (не изучал инструментария)...

В X6 - ActiveDocument.FacingPages = True

Просьба в будущих постах пользоваться тегом [соde].

А в хелп залезть? Закрываются подпути, а не объект целиком. Sub Test() Dim spath As SubPath For Each spath In ActiveShape.Curve.Subpaths spath.Closed = True Next spath End Sub

Что у Вас в FontSubstitutes в реестре про Arial Cyr написано?

На форуме есть возможность написать личное сообщение любому участнику

Думал Вам понравится удаление деления на 25,4, избавление от создания нулевого сегмента перед сознанием спирали - для самообразования. А всякие обвязки типа снижения количества точек, кривления и т.д. это уже так, под себя поправил. Undo ещё можно парой строк добавить, и достаточно для начала.

Небольшая вариация Sub DrawSpiral() Dim s1 As Shape Dim crv As Curve Dim crvsp As SubPath ActiveDocument.Unit = cdrMillimeter Set crv = ActiveDocument.CreateCurve dist = 2 'dist = InputBox("Расстояние между витками", "Spiral", 2) pi = 3.14159265358979 Set crvsp =...

Возможность автоматизировать есть. Например, Text Replacer - GREP в CorelDRAW от @Sanchos, попробуйте списаться. Возможно есть и другие реализации подобного функционала. Можете и сами попробовать написать. Вот ещё какая-то менялка - GDG Multi Text Changer, но по картинке/описанию не очень...

Можно формы окончаний перечислить - \<дом(|а|у|е|ом|ов|ам|ами|ах|лень дальше думать)\>

А двойные спирали не подойдут? Можно сделать дубль, перевернуть на 180°, поправить положение для равномерности. Можно дать обводку в половину шага витка и преобразовать её в кривые.

1) Для "For Each p In d.Pages" абсолютно без разницы как называются страницы 2) На локализованной версии я проверял 3) Кстати, можно поменять "Index" на "Name" в строке CurFileName = ... тогда для многостраничных файлов с именованными страницами будут более осмысленные названия файлов

Я понимаю скрипт искать лень, но в чём трудность снять закрепление направляющих и выставить выделенной направляющей координату в палитре трансформации или в тулбаре?

Перед тем как опубликовать совет перепроверил его в X7 Сейчас проделал то же самое в Х6 - у меня всё работает По ошибке не понятно то ли сохранение сбойнуло, то ли затык происходит на If PageAsSeparateFile Then ... p.Shapes.All.Copy пробовал лочить объекты в тестовом файле - ошибка не...

Входящий в стандартную поставку макрос FileConverter Конвертируете файлы из cdr в cdr, но с галкой "Save each page as a separate file"

Думаю не всем понравятся "t" размером с обычные строчные буквы, со странной двойной перекладиной "ит" как "шп" "ми" как "лш"

А текст весь из одного источника? Можно ведь и поисковиком оригинал найти (например - CURL. First steps — Парсинг от А до Я)

Ещё придется всякие "http_cocfe", "еггпо" потом отлавливать, зато и "истачением" можно поправить