Домашние сценарии Юрия Прохорова
для ускорения работы в PageMaker6.5

(хочется завести рубрику находок, разных хитростей по созданию сценариев.
Пожалуйста, напишите Ваше мнение об этом) Рейтинг ресурсов "Весь Екатеринбург"

Новинка
  1. "ЗЕРКАЛЬНЫЙ МОНСТР" автоматически зеркалит все страницы и все шаблоны публикации. При этом пустые страницы пропускаются, да и с полей ничего удалять не нужно (не захватывает борохло на полях). Пока не продумана работа с публикациями без разворота - односторонние шаблоны переворачиваются сразу дважды, и результата не получается (что-то все некогда). Пригодится же сей сценарий тем, у кого нет PostScript в принтере, а печатать на пленках хочется;


  2. "ОБРАБОТЧИК ПРАЙСОВ" для выделения/удаления абзацев по условию. Вы можете заказать поиск к.-л. символа/слова, и весь абзац с этим будет выделен жирным или вообще удален по вашему желанию. Можно просто сосчитать абзацы с искомым элементом;


  3. "ШРИФТОВОЙ СТАТИСТ", который создает список шрифтов, используемых в публикации (скоро будет новая версия - смотри пункт номер семь);


  4. "НАДЕЖНЫЙ ДРУГ" для борьбы с неграмотно набранными текстами. Сейчас многие дорвались до компьютеров, программы "Word" и тому подобное. Так вот, этот макрос убирает лишние пробелы, переводы строк, делает ТИРЕ вместо ДЕФИСА, окруженного пробелами. Причем, наш корректор не выносит строк, начинающихся с тире, по-этому здесь перед каждой тирешкой ставится ТОНКАЯ ШПАЦИЯ (такой вот ^< код). Такие же штуки ставятся перед словом кг, чтобы не отрывалось от цифры. Еще ставятся переносы с русским словарем, ширина символов и т.п. Там все более-менее понятно, можете изменять, добавлять сами;


  5. "УБИЙЦА ЛЕКСИКОНА". В моем четвертом макросе не предусмотрена борьба с жесткими переносами, которые ставят в жуткой программе "Lexicon". Пятый макрос служит как раз для этого!!! Вставляйте текст через Ctrl+D, потом поставьте лишь 2 галочки: "импортировать без изменений" и "текстовый документ MS (ASCII)". Здесь, правда, есть еще немного правки от четвертого макроса - так, для профилактики...;


  6. СПУСК ПОЛОС С А5-ГО ФОРМАТА НА А3. Если у Вас есть ризограф А3 формата и интерфейс для его связи с компьютером, то Вам наверное уже не раз предлагали сверстать и размножить книжки А5-го формата на листах А3-го формата с последующей резкой, фальцовкой и брошюровкой. Вобщем, в том случае, когда Вы захотите ускорить свою работу и не печать оригинал-макеты на бумаге, а сразу из PageMaker посылать по 4 страницы А5 (с учетом оборота) на одну страницу А3 Вашего ризографа (печатающего устройства), то я могу предложить Вам несколько макросов для такого спуска полос.
    Огромное спасибо Денису, который написал свои впечатления об этом сценарии. Вот они:
    "...Только вот я понять не могу почему он все страницы ориентирует в одну сторону, когда надо что бы они были "голова к голове". Тетрадки то ведь надо в типографии сворачивать, может быть я что-то не так делаю. Кстати на http://www.oz.net/~vsamarsk/WinEntry.htm есть хороший скрипт Built Booklet, но он тоже не делает страницы наружу."
    "...Кстати, переворот с "головой к голове" на основе твоего скипта я за пару часов сделал."

  7. "РАСПЕЧАТАЙ СВОИ ШРИФТЫ!" Сей сценарий из PageMakera поможет Вам управиться со шрифтовым беспределом. Коротенькими строчками он представит Вам все шрифты, которые видны в менюшках PageMaker на момент выполнения. В конце публикации будет создано оглавление - на какой странице какой шрифт. Один недостаток - в PageMaker нельзя узнать какой файл отвечает за тот или иной шрифт, PS или TTF, где файл лежит. Может кто-нибудь знает способ?


  8. "ВOLD - В ЖИЗНЬ!" Сценарий для изменения начертания первого слова каждого абзаца с нормального на жирный в выделенном тексте.

  9. "КРАСИВО, УДОБНО И БЫСТРО" Если Вы делаете рекламу в нашей любимой программе, да еще не по модульной сетке, то Вам это будет интересно. У меня размеров рекламных макетов 10 штук. Мне лень запоминать их размеры. И вот родился этот сценарий-интерфейс. Он предлагает выбрать нужный размер, и сам делает публикацию такого размера без полей. Подставляет "Подл. обяз. сертиф." , а то ее все время забывают... Свои размеры вставить не сложно.

  10. "ДВУХМЕРНЫЙ ШТАНГЕНЦИРКУЛЬ" Что бы не говорили приверженцы "Горелых дров" (Corel Draw!) я рекламные модулечки завсегда лучше в PM сделаю. Однако в разных конторах - разные примочки на счет размеров. Умные люди рекламу модулями делают, другие - по нескольким определенным размерам, а вот в большой газете, где все меняется день ото дня квадратными сантиметрами размечают рекламные куски. Для этого пригодится сценарий, который любой объект доведет до нужного Вам размера либо по горизонтали, либо по вертикали.
    Допустим, у Вас есть место шириной в 10 см., и на нем Вам надо разместить рекламный текст в 240 квадратных см. Так вот, нарисуйте на этом месте прямоугольничек нужной ширины, выделите его стрелкой и запустите сценарий - получится прямоугольник нужной площади!!!
    Объекты используйте прямоугольной формы, ведь кружочки не принято кружить на полосе. Вобщем, выделяйте стрелкой прямоугольник, картинку и т.п., нажимайте на сценарий и... дальше все увидите сами.

  11. "ГЛОБАЛЬНЫЙ ЭКСПОРТ" Много фильтров стоит в PageMaker на страже наших интересов. Очень уж они хорошо спрятаны, однако. И чтобы большой объем обработать надо немало кнопок нажать. В принципе, программа тем и славиться, что она - "ручная". Вот я и сделал очередное приручение. Нынче народ любит много писать и на многих страницах. После выхода газеты все содержимое хотят еще и в Интернет запихать. Для этого удобно пользоваться этим сценарием. "На автомате" он экпортирует с указанными настройками ТОЛЬКО СВЯЗАННЫЕ текстовые блоки. При этом "пролистываются" все страницы, вплоть до всех открытых публикаций. Конечно, связи не все любят - тогда для них есть возможность экспортировать только выделенное. Приятной работы!

  12. "ЯРКИЕ КАВЫЧКИ" Огромное количество фильмов нынче по телевизору показывают. Не то, что раньше, в советские времена! Тогда в выходные мы всей семьей собирались вокруг программки, и цветным карандашом отмечали среди бездушных передач три-четыре фильма... Теперь это можно делать автоматически. Запустите сценарий, и он вам выделит полужирным все, что стоит между ТРЕУГОЛЬНЫМИ кавычками.


Приглашаю оставить Ваши критические замечания в моей гостевой книге.

А вот здесь есть все для уважающего себя верстальщика!

PageMakerNotes Бесценное описание языка сценариев PM6.5 (англ.)




up

THE FIRST SCRIPT FROM MY COLLECTION

- MIRROW-ALL
- Script created March 18, 1999. Modified August 04, 1999
- Copyright 1999, Yur_a Inc. All rights reserved.
-- http://www.chat.ru/~yur_a/yura1.htm

GetPageSize >> xPAGE, yPAGE
GetPageNumbers >> a,b,c,d,e
c=a+b-1

message "Этот сценарий ДЕЛАЕТ САМ:"
message " * устанавливает публикацию <двусторонней> без разворота;"
message " * зеркалит содержимое лев. и прав. страницы ВСЕХ шаблонов публикации;"
message " * зеркалит содержимое страниц Вашей публикации (с " + quote(a) + " по " + quote(c) + ")" + " (пустые пропускает);" message " * если на полях что-нибудь есть, то оно не помешает, и его можно оставить."
message ""
message "ПОМНИТЕ:"
message " * элементы, выходящие за границы страниц ИГНОРИРУЮТСЯ (верстайте аккуратно!)"
message " * нельзя вернуть исходное состояние через UNDO;"
message " * остановить - можно, если нажм¦те X на панели сценариев,"
message " или снова запустите этот сценарий."
message " С уважением, Юрий Про хоров."
message ""
message ""
message ""
message "Ну что, хотите продолжить?"
getyesno >> yesno
if yesno = NO
return
endif

gettime >> year1, month1, day1, hour1, minute1, second1, ...

-message "НОМЕР перв. стр - " + quote(a)
-message "кол-во страниц в публикации = " + quote(b)
-message "НОМЕР посл. стр - " + quote(c)

PageOptions on, off
ZeroPointReset
Tool pointer

GetMasterPageList >> numMP,allMP
loop i=1,numMP
page lm, allMP(i*2)
gosub mirrow
page rm, allMP(i*2)
gosub mirrow
endloop


loop x=a, c
page (x)
gosub mirrow
endloop

gettime >> year2, month2, day2, hour2, minute2, second2, ...
hour=hour2-hour1
minute=minute2-minute1
second=second2-second1
message " операция шла " + quote(hour) + "ч., " + quote(minute) + "м., " + quote(second) + "с."
message ""
message " !!!!!НЕЗАБУДЬТЕ!!!!!"
message " проверить на всех страницах - "
message " точно ли по центру"
message " ОТЗЕРКАЛЕНО"
message ""


sub mirrow
DragSelect 0, 0, xPAGE, yPAGE
GetSelectList >> num, x
if not (num=0)
reflect center horizontal
View fit
endif
endsub

up

THE FORTH SCRIPT FROM MY COLLECTION

-- Script to convert new text according your cheklist
-- Script created January 01, 1998
-- Copyright 1999, Yur_a Inc. All rights reserved.
-- http://www.chat.ru/~yur_a/yura1.htm

editstory
SelectAll
Font "HelvDL"
Size 9
Leading auto
--здесь можно изменять автоинтерлиньяж
--SpaceOptions bAutoKerning, dPtThreshold, cLeading, dAutoleading
SpaceOptions false, 4, proportional, 110
Track normaltrack
Setwidth 100
Paraoptions 0, 0, 0, 0, 0, 0, 0
Letterspace -5, 0, 25
wordspace 75, 100, 150
Dictionary "Русский"
Hyphenation plusalgorithm, none, 12
Alignment justify
Indents 0, 5mm, 0
style "Без стиля"
paraspace 0, 0
color "Black"

findparaattr "Любой", -3, -3
findtypeattr1 "Любой", -3, -3, -3, -3, -3
findtypeattr2 -3, -3, "Любой", -3
changeparaattr "Любой", -3, -3
changetypeattr1 "Любой", -3, -3, -3, -3, -3
changetypeattr2 -3, -3, "Любой", -3
try changeall " - ", " - " currentstory, anycase, allinstances, 0
try changeall "^=", " - ", currentstory, anycase, allinstances, 0
try changeall " .", ".", currentstory, anycase, allinstances, 0
try changeall "^p ", "^p", currentstory, anycase, allinstances, 0
try changeall " ^p", "^p", currentstory, anycase, allinstances, 0
try changeall "^p^p", "^p", currentstory, anycase, allinstances, 0
try changeall "^p^t", "^p", currentstory, anycase, allinstances, 0
loop x=1,3
x=x+1
try changeall " ", " ", currentstory
endloop
loop x=1,5
x=x+1
try changeall " ", " ", currentstory
endloop
try changeall "^p ", "^p", currentstory
try changeall " N ", " +^<", currentstory
try changeall "(N ", "(+^<", currentstory
try changeall "^{", "<", currentstory, anycase, allinstances, 0
try changeall "^}", ">", currentstory, anycase, allinstances, 0
try changeall "( ", "(", currentstory, anycase, allinstances, 0
try changeall " )", ")", currentstory, anycase, allinstances, 0
try changeall ",(", ", (", currentstory, anycase, allinstances, 0
try changeall " ,", ",", currentstory
try changeall "+ ", "+^<", currentstory
try changeall "< ", "<", currentstory, anycase, allinstances, 0
try changeall " - ", "^<- ", currentstory, anycase, allinstances, 0
try changeall " кг", "^<кг", currentstory, anycase, allinstances, 0
closestory place

up

THE FIFTH SCRIPT FROM MY COLLECTION

-- Lexicon-killer
-- Script created May 01, 1999
-- Copyright 1999, Yur_a Inc. All rights reserved.
-- http://www.chat.ru/~yur_a/yura1.htm

try editstory
findparaattr "Любой", -3, -3
findtypeattr1 "Любой", -3, -3, -3, -3, -3
findtypeattr2 -3, -3, "Любой", -3
changeparaattr "Любой", -3, -3
changetypeattr1 "Любой", -3, -3, -3, -3, -3
changetypeattr2 -3, -3, "Любой", -3

try changeall "^p ", "^<" currentstory, anycase, allinstances, 0
try changeall "-^p", "" currentstory, anycase, allinstances, 0
try changeall "^p", " " currentstory, anycase, allinstances, 0
try changeall "^<", "^p" currentstory, anycase, allinstances, 0


SelectAll
Font "HelvDL"
Size 9
Leading auto
--здесь можно изменять автоинтерлиньяж
--SpaceOptions bAutoKerning, dPtThreshold, cLeading, dAutoleading
SpaceOptions false, 4, proportional, 110
Track normaltrack
Setwidth 100
Dictionary "Русский"
Hyphenation plusalgorithm, none, 12
Alignment justify
Indents 0, 5mm, 0
style "Без стиля"
paraspace 0, 0
color "Black"


try changeall " - ", " - " currentstory, anycase, allinstances, 0
try changeall "^=", " - ", currentstory, anycase, allinstances, 0
try changeall " .", ".", currentstory, anycase, allinstances, 0
try changeall "^p ", "^p", currentstory, anycase, allinstances, 0
try changeall " ^p", "^p", currentstory, anycase, allinstances, 0
try changeall "^p^p", "^p", currentstory, anycase, allinstances, 0
try changeall "^p^t", "^p", currentstory, anycase, allinstances, 0
loop x=1,3
x=x+1
try changeall " ", " ", currentstory
endloop
loop x=1,5
x=x+1
try changeall " ", " ", currentstory
endloop
try changeall "^p ", "^p", currentstory
try changeall " N ", " +^<", currentstory
try changeall "(N ", "(+^<", currentstory
try changeall "^{", "<", currentstory, anycase, allinstances, 0
try changeall "^}", ">", currentstory, anycase, allinstances, 0
try changeall "( ", "(", currentstory, anycase, allinstances, 0
try changeall " )", ")", currentstory, anycase, allinstances, 0
try changeall ",(", ", (", currentstory, anycase, allinstances, 0
try changeall " ,", ",", currentstory
try changeall "+ ", "+^<", currentstory
try changeall "< ", "<", currentstory, anycase, allinstances, 0
try changeall " - ", "^<- ", currentstory, anycase, allinstances, 0
try closestory place

up

Rambler's Top100 MAF IA's Top100 Каталог ссылок! LOOK-старший брат смотрит на тебя Internet Links - Большая коллекция ссылок на русскоязычные сайты + ТВОЯ