Нужен макрос. Авто размещение направляющих.

Hepatitis C / 17.05.2013, 17:21/17:26
Форум: 
Макросы и скрипты
Версия программы: 
15.1.0.486/488/489

Доброго всем дня! Работаю оператором цифровой печати, и есть необходимость в автоматизации процесса установки направляющих. Я руками выставляю направляющие, для подготовки файла к печати. Направляющая на дозаливку (выпуск), до области с важной информацией и между ними - на край листа. По времени, конечно это не долго, макс пару минут, но несколько десятков раз в час. Да на визитки всех размеров, флаеров и то что хотя бы повторяеться раз в день я сделал шаблоны, они мне облегчели жизнь, правда их уже больше 40... Я уже не раз задумывался о одной кнопке или, по крайне мере, меньшем кликанье. Может мне кто нибудь помочь? Возможно похожий или такой уже макрос есть. Буду признателен любому отзову! За ранее спасибо.
Создал не большую анимацию (анимация 1) как я это делаю руками, возможно посмотрев её Вы скажите что макросы так не умеют... Или делайте руками, не трогайте наши голову - я все пойму...
И еще приблизительный интерфейс, мне не сильно важно в точности или такой же, надеюсь рисунок поможет понять, то, что бы я хотел от него. На рисунке (рисунок 1) сделал до 4 направляющих, конечно мне больше 1 от края не надо было, ну если это все возможно, я буду очень благодарен за помощь.

Изображения
анимация 1
рисунок 1
Sancho / 24.09.2013, 16:59
Hepatitis C, для выделения кода на сайте предусмотрена специальная кнопка. Сообщение поправил.
Hepatitis C / 24.09.2013, 17:17/17:18
Sancho, подсветка кода?? блин, а я искал такую кнопку, знал, что так и будет...что, кто то напишет про спойлер... но думал будет кнопка КОД а не подсветка.. спс за правку, учту))
Hepatitis C / 25.09.2013, 15:46

Уважаемые форумчани, подскажите как адаптировать макрос для 16 корела или почему он не активен?

Hepatitis C / 27.09.2013, 16:04

Решено.
Удалил макрос, заново поставил и все хорошо. Значит повредил код.

hamlo / 04.04.2014, 23:59

Aeliot, А не подскажете, как в Вашем макросе прописать создание автоматических направляющих по центру документа?

LiSt / 08.04.2014, 18:58

hamlo, Я не Aeliot, но тоже могу =)
Если совсем по быстрому и по простому (песочница блин, аж стыдно за собственную лень :D)
Зайти в редактор, открыть макрос и в Module->PutGuidLines добавляем перед End Sub (или в каждый модуль или только в нужный)

    Dim pw#
    Dim ph#
    pw = ActiveDocument.MasterPage.SizeWidth
    ph = ActiveDocument.MasterPage.SizeHeight
    Dim s1 As Shape
    Set s1 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(pw / 2, 0, 90#)
    Dim s2 As Shape
    Set s2 = ActiveDocument.MasterPage.GuidesLayer.CreateGuideAngle(0, (ph / 2), 0#)
shark / 09.04.2014, 02:56

как вариант, можно не вычислять размер страницы:

Dim g As Shape
    Set g = ActiveLayer.CreateGuideAngle(0, 0, 90)
    g.AlignToPageCenter cdrAlignHCenter
    Set g = ActiveLayer.CreateGuideAngle(0, 0, 0)
    g.AlignToPageCenter cdrAlignVCenter
LiSt / 09.04.2014, 16:37

Кстати, если кому надо сразу при создании страницы добавлять направляющие -
топаем в первую ветку, и в ThisMacroStorage вставляем:

Private Sub GlobalMacroStorage_DocumentNew(ByVal Doc As Document, ByVal FromTemplate As Boolean, ByVal Template As String, ByVal IncludeGraphics As Boolean): AreaArbitrarily: End Sub

И станет он после создания документа выводить окошко с запросом - куда и какие направляющие ставить. Хотя можно сразу пресет использовать, только изменить там varSteps() = Array(X#, X#, X#, X#) на нужные ( с нужным количеством)

Страницы