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

На будущее - в самом FineReader'e настраивайте "Размер бумаги по умолчанию" в Опциях при сохранении в PDF, чтобы получить единый размер для всех страниц.

можно пробежаться по документам чем-то вроде: Sub cl() For Each d In CorelDRAW.Documents d.Dirty = False d.Close Next d End Sub В данном примере закроются даже файлы с несохраненными изменениями. Возможно Вам требуется их сохранение без запроса под тем-же или сгенерированным именем?

Ну тогда попробуйте Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long Const WM_COMMAND = &H111 Sub KillDraw() Dim hwCorel As Long hwCorel = CorelDRAW.AppWindow.Handle Call...

Ну, и как обычно, после первого обмена впечатлениями тема закрывается. Каждый косяк, каждую новую функцию и включенную в состав софтину обсуждаем в новых темах, по одной на вопрос.

Будет, но при отладке из под VBE шорткат пошлётся уже ему, забавные эффекты бывают. А чем Quit не устраивает?

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 = ... тогда для многостраничных файлов с именованными страницами будут более осмысленные названия файлов

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