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

Судя по википедии работа началась "в лѣто 7070 первое априля въ 19" по старому стилю (Иван Фёдоров — Википедия), т.е., примерно, 6 апреля по новому, с чем я поздравляю российских полиграфистов, депутатов Государственной Думы, Федеральное агентство по печати и массовым коммуникациям и...

Ну можно артистик брашами ещё поразвлекаться 1) отрезок 2,5 мм - дырка 5 мм - отрезок 2,5 мм, после брейкапарта можно сшить 2,5 мм отрезочки с помощью Join Curves 2) отрезок 5 мм - кружочек 5 мм, после брейка выловить кружочки через Find и удалить

Можно макросом нарезать Sub Curve_divider() Dim sp As SubPath d = Val(InputBox("Insert distance", , 5)) Optimization = True ActiveDocument.Unit = cdrMillimeter ActiveDocument.BeginCommandGroup ("Divider") For Each sp In ActiveShape.Curve.SubPaths For i = sp.Length To 0 Step -d...

В 6-й версии Adobe Acrobat Professional есть.

обрис - проверочное слово: обрисовать?

Tools>Customization...>Commands>Shortcut Keys>View All...

Удаляем самый правый из имеющихся вертикальных сегментов. Sub del_right_seg() Dim seg As Segment Dim n As Node x1 = -10000 i = -1 ActiveDocument.BeginCommandGroup "Delete right segment" For Each seg In ActiveShape.Curve.Segments If seg.StartNode.PositionX = seg.EndNode.PositionX...

Я не кистью делал. С кистями лень возиться.

Скриптом. Мой основной рабочий инструмент - CorelDRAW 9. REM set page size to the size of an object.script for CorelDRAW 9 #define DRAWOBJECT "CorelDRAW.Automation.9" ON ERROR GOTO ErrHandler WITHOBJECT DRAWOBJECT .setreferencepoint 3 .ApplyOutline 0, 0, 0, 0, 0, 0, 0, 0, 0, FALSE, 0, 0...

У меня 80% работ - всяческие развёртки, поэтому скриптом приведения размера страницы к выделению пользуюсь по нескольку раз на дню.

Штурман У Вас в файле сектор 116°, в него и вписал А уже чуть позже перечитал, что 120° надо, могу переделать, если надо.

надпись по дуге

Я делаю мелкий зум и с Shift'ом обвожу всё. Можно и макросы поискать, но мне так проще.

см. макро CreateColorSwatch из стандартной поставки

уже ничегой

На будущее - в самом 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 не устраивает?