во, сегодня видок у меня.
Каждый раз, приходя с похода, у меня полный разброд в шмотках. Вот и сегодня, собирался собирался, наконец собрался, выкатился и обнаружил, что не взял очки.
А за бортом сегодня дождик. И без очков в соло режиме катить неудобно. Быстро слишком качу, капли мешают.
А заодно надо закатить до работы ангела моего, чего-то там подкрутить в велосипеде у ее сотрудницы. И вот пожаловался я сегодня - "еп, очки забыл".
На что начальница, молодая, гламурная, выдает, "дык, мои возьми, одолжу".
И дает, такая, очки, по своему образу и подобию. Гламурные. На пол лба, и (sic) с переменной прозрачностью. Пляжные, в общем.
Хыхы. Я взял естественно. Лучше такие, чем никаких.
Ахх. Ну и видок у меня сегодня. Хихи.

решил я поработать халявщиком. ну то есть фрилансером.

прихожу значит в гости в издательство поздравляю с новым годом и заодно так ненавязчиво интересуюсь "есть чего на выходных покликать?".
мне говорят "есть. трехтомник. сто листов с гаком. какой том возьмешь?"
на что я отвечаю "я стар уже, наверное можно даже сказать я суперстар уже... все возьму".

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

Итак это было что-то вроде вступления.

А теперь задача:
представьте себе строчку, содержащую фамилию и инициалы. А теперь включите выравнивание по абзацу. Что получилось? Правильно, слова разошлись и абзац красиво заполнил полосу по ширине. Да вот беда: инициалы отъехали от фамилии и разъехались сами. Не смотрится.
Надо инициалы пододвинуть поближе.

В ворде есть такой термин "неразрывный пробел". Вот я этим пробелом и воспользовался ставлю пробел и инициалы перестали отъезжать. Правда несколько книжек назад редактор мне сказал - пододвинь поближе, а то далековато.
Как укоротить неразрывный пробел? хмм. ну, можно задать ему другую ширину через spacing. Проблема в том, что я активно пользуюсь этим спасингом сам, и меняю его постоянно в пределах абзаца, поэтому такой способ не подходит.
Тогда можно сделать пробел другим шрифтом. Тоже не плохо, однако при переформатировании всего текста шрифт везде станет одного размера. Тоже не годится.
Ну, можно еще сделать его нижним индексом - или верхним. Вот этот вариант меня и устроил.

спустя время я нашел правда спецсимвол "короткий пробел", но что-то мне в нем не понравилось. не помню что.

итак я сбацал макрос который вставляет неразрывный пробел и делает его нижним индексом. Повешал макрос на горячую клавишу и радуюсь жизни.

И выглядит это так - вижу фамилию и инициалы - мышкой выделяю один пробел и нажимаю горячую клавишу - потом мышкой выделяю второй пробел и снова нажимаю горячую клавишу.

а теперь фокус дети мои:
книжка называется "летопись российского флота".
сто страниц с гаком.
то есть почти две тысячи страниц текста.

прикинули сколько там фамилий?
в общем я начал уставать - даже геймерская мышка не поднимала мне настроения - впрочем на офисной мышке я бы вообще сдох.
ну и я подумал - а что если макрос сам будет искать пробел?

сказано-сделано.
Итак теперь выделять пробел не надо - надо лишь кликнуть в пробел, а макрос сам оглянется вокруг и если надо сам же и удалит пробел.

ну и вот как он выглядитЧитать далее...

встал на якорь.

этот конь - круглогодично паркуется здесь. ну, насколько ему позволяют такие шины ясно дело.

Взял я не подумав верстку.
по неопытности взял. в следующий раз буду аккуратнее.
Так вот оригинал был ясно дело в ворде, но в этом ворде было фанатичное злоупотребление формулами!
Каждая латинская буква сделана отдельным объектом мсекватион.
причем активно пользуются Такие символы, которые придется в несколько проходов компоновать из стандартной палитры. со всякими там стрелочками и точками и сверху и снизу и причем одновременно. грр. и таких формул ну просто туева хуча.
те что попроще я переписал в текст и размер файлов уменьшился на треть! при общем объеме в 10 мегабайт, можно представить сколько я трахался с этими документами.
Попутно, коль скоро мозг занимался посторонними задачами не вмешиваясь в работу рук и глаз мне кое что показалось любопытным в настройках шрифта.
И да! я нашел лежащий на поверхности способ укротить формулы.
итак имеем например вот такое вот:

ну, конечно, конкретно этот случай можно переписать и будет айс, но предположим что его надо оставить формулой.
Я специально вставил мерные прямоугольнички, чтобы показать насколько эта простая в общем-то формула расталкивает строчки.
Итак берем обычную обрезку и обрезаем

айс? вполне. видим - сверху вполне прилично стало.
теперь подрезаем снизу

... мать мать мать - повторяло эхо.
а вот тут неайс. вот поэтому я и не люблю формулы в тексте.
Сказывается впечатление, что высота буквы идет от нижней кромки.
И тут я обратил внимание на такую вот галочку в настройках шрифта:

И это оказалось ОНО.
берем и выправляем это дело

и всего делов.
конечно каждый раз заглядывать в менюшку это напряг, так что подтягиваем к этому вопросу макрос

Sub Отступ_БукваВверх()
Selection.Font.Position = Selection.Font.Position + 1
End Sub
Sub Отступ_БукваВниз()
Selection.Font.Position = Selection.Font.Position - 1
End Sub

более того, оказалось что подрезку сверху/снизу тоже можно сделать макросом!

Sub Подрезка_СверхуДобавить()
Selection.InlineShapes(1).PictureFormat.CropTop= Selection.InlineShapes(1).PictureFormat.CropTop+0.5
End Sub

Sub Подрезка_СверхуУбавить()
Selection.InlineShapes(1).PictureFormat.CropTop= Selection.InlineShapes(1).PictureFormat.CropTop-0.5
End Sub

Sub Подрезка_СнизуДобавить()
Selection.InlineShapes(1).PictureFormat.CropBottom= Selection.InlineShapes(1).PictureFormat.CropBottom+0.5
End Sub

Sub Подрезка_СнизуУбавить()
Selection.InlineShapes(1).PictureFormat.CropBottom= Selection.InlineShapes(1).PictureFormat.CropBottom-0.5
End Sub

итак на моей сцуперклавиатуре теперь заняты на шесть клавиш больше. незанятыми осталось еще с десяток :) всего 56 кстати.

ЗЫ. Однако ложка дегтя все-таки есть, иначе это не было бы мастдаем.
1. сдвигание буквы вверх-вниз ведется на целое число и это целое число на мой взгляд великовато. посему точно выровнять урезанную сверху снизу формулу бывает нелегко и приходится немного отменить обрезку снизу.
2. редактор формул может воспротивиться изменению положения буквы и задать свое. он так делает всегда, когда вы заходите в формулу, но у меня пару раз начал так делать при каждом обращении к этому объекту, то есть я его наверх, а он сцуко вниз, при том, что в настройках шрифта его положение остается поднятым. мастдай.

ЗЗЫ. кстати у меня теперь достаточно знаний чтобы проэмулировать свой сопственный редактор формул простым сдвиганием букв. гыгыгы. осталось только почитать умные книжки по программированию под вордом.

прикол.
микрософт поверпоинт стал незаменимой программой.
угадайте для чего?
чтобы вытаскивать картинки из вордового файла.
а до этого приходилось сохранять вордовый файл как веб страницу :)

Верстательное
Одним из требований к верстке является соблюдение определенного межстрочного интервала. Логично? Логично. Однако я как извращенец верстаю в ворде, что делать низзя. и в принципе я с этим согласен. Но тем не менее с ворда не слезаю :) бугага.
какие ворд предлагает нтервалы? одинарный, полуторный, двойной, верно? как выяснилось можно задать любой. так, например недавняя работа имела междустрочный интервал 0.97.
Вопрос ЧЕГО? я так понимаю размера строки.
И тут как раз зарыты грабли.
ФОРМУЛЫ.
Вот вам например задача - обеспечить постоянный интервал строк вот в этом примере:

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

заметили - формула влезла на другие строчки? ага, это тоже создает проблемы если в формуле скажем дробь. К тому же обратите внимание - в нижнем индексе буква "j" подрезана. При печати буква выведется полность, но может наплыть на нижнюю строчку, на какую-ниубдь выпирающую.

Итого до сих пор правильным выбором было Рвать абзац на три - до строчки с формулой - строчка с формулой - все остальное. аккуратно выравнивать ширину строки и персонально настраивать междустрочные отступы для каждого абзаца.

Это создает проблемы при внесении изменений в абзац - ибо приходится абзац слеплять воедино, вносить правку и переразбивать заново. Но в общем и целом все книжки таким образом и были мною сделаны :)

Но недавно обнаружил что у шрифта есть такое свойство "уплотненный" или "разреженный"! оказалось что это не делает буквы шире или уже, нет! это свойство регулирует расстояние между буквами!!!

Итак, берем эту формулу переставляем буквы индекса и уменьшаем расстояние между ними.

Кстати выделение текста сейчас на цифре 2. видите какой она теперь имеет размер?
На моей клавиатуре я выделил две кнопочки под расширение-уменьшение текста и вот такой вот макрос

Sub КнижкаКРасширить()
i = Selection.Font.Spacing + 0.5
Selection.Font.Spacing = i
End Sub

хе-хе.

Это также позволяет делать например вот такую вещь

сами понимаете такой символ найти в стандартном наборе сложно. А у Авторов выбает интересные тенденции в условных обозначениях. Вот таким вот трюком можно надвигать буквы одну на другую.
Или вот например это. курсивная f намного шире своей паспортной ширины. вставлять пробелы? тогда неравномерно получается.


В общем spacing очень полезен.

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

-----------

ЗЫ. у ворда есть определенный предел списка UNDO и этот предел находится где-то на 17 тысячах отмен.
Это я делал такие вот побуквенные макросы для работы с таблицами и за одно нажатие клавиши выполнялось действий этак пятьсот. после пары-тройки десятков нажатий ворд начинал подглючивать. Юмор в том, что это выражалось в виде нежелания ворда изменть размер и начертание шрифта например! а остальное делалось нормально.А если быть точным, то макрос вылетал с ошибкой "не могу найти ячейку таблицы". А вот ручная правка продолжала работать, правда не очень долго. Перезапуск ворда и запас еще на 17 тысяч отмен :). Мастдай вобщем.

я сделал наблюдение:
для того чтобы послений файл не оказался первым выделять надо с конца к началу.
Это я про такие вещи как скажем ворд->вставка рисунка из файла->множественное выделение.

век живи что называется

ндя, дольше я терпеть не смог.

И снес микрософтовский офис 2007.
Хорошо, не стал покупать.
Слишком он какой-то... ориентированный на мышь.

А я слишком долго учился не пользоваться мышью :)
На самом деле причина в другом, меня достают мелочи. Серьезно достают, конкретно последней каплей явилась попытка вставить номера страницы, да не где-нибудь, а конкретно в том месте что МНЕ нужно. не нашел.
До этого обнаружил что вставка рисунка как "Рисунок" вставляет как рисунок. Для непосвященного выглядит тафтологией, но мне лень раскрывать смысл этого выражения. Надо сказать эта бяка пошла еще с офиса ХР, но там его еще можно обойти.
Еще одной каплей явилось то, что вставить формулу прихожится зело трансректально ибо та сцылка что на панели кажет похоже на пятую версию, а я пятой не пользуюсь принципиально. И ее нету просто, соответственно сцылка неактивна, а третью надо доставать из глубокого меню.
Ну и достает мышью размахивать из одного конца экрана в другой, а горячие клавиши я еще с версии 2000 перебил на свои комбинации и не переключиться, есть конечно фишка с прокруткой колесом но к тому времени я уже был утомлен чтобы это спасло.
Еще одним глюком оказалось рисование рисунка. где-то на трехсотой автофигуре ворд шизеет и похоже начинает экономить - отрисовывает уже нарисованное через раз, а новоотрисованные вообще не рисует, пока пинка не дашь. причем одну часть автофигур рисует один раз, а на другой рисует другую часть, стирая первую. Охренеть.

В общем когда я поставил офис двухтысячный, взятый с нашего сервака (лицензионный, наверное?) то вздохнул с облегчением. Я дома!

ндя. я узвращеней.
причем маньяк извращенец. нет, правильно было в начале. именно узвращеней.
два раза подряд опечатался. :)

так вот о чем это я?

а, да.

НЕХУЙ ВАЯТЬ ВЕРСТКУ В ВОРДЕ.
кажется я уже это говорил, да?

так вот.
МОЖНО.

но с аппаратной поддержкой. всмысле рук. и определенного строения мозга. только построитель развитого маразма может дойти до такого.
В общем Logitech G15 рулит. стопудово.

нет, в натуре, это даже удобно стало. я кстати еще пару макросов написал.

ВОТ.
макрос для подгонки длины строки до полного заполнения

Sub УдлиннитьПробелы(i)
Dim j As Integer
Dim ii As Single
For j = 1 To Selection.Characters.Count - 1
If Selection.Characters(j) = " " Then
ii = Selection.Characters(j).Font.Spacing + i
Selection.Characters(j).Font.Spacing = ii
End if
Next j
End Sub

позволяет удлиннять и укорачивать пробелы подгоняя строку под полосу.
Назначил две клавиши и просто щастье.
ну, ясно дело пришлось еще два вызова оформить. ясно дело что в комплекте должны прилагаться также общие выравниватели, ну то есть это spacing на весь выделенный текст. тоже вставляет.

Вот еще один новый макрос. Это предназначен для формул. стандартный редактор формул делает их очень высокими и строки сильно разъезжаются. их надо уплонить. а это блин жопа.
но вот эти макросы спасают

Sub ИнтерлиньяжУвеличить()
i = Selection.Paragraphs(1).Format.LineSpacing + 1
Selection.Paragraphs(1).Format.LineSpacing = i
End Sub
Sub ИнтерлиньяжУменьшить()
i = Selection.Paragraphs(1).Format.LineSpacing - 1
If i >= 0.7 Then Selection.Paragraphs(1).Format.LineSpacing = i
End Sub

хотя немного позже я подумал и решил уменьшить значение до 0.5 ну чтобы всю страницу вгонять, хотя это мне и не пригодилось особо.

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

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

Кто бы сомневался.
Короче как говорится вперед на... хмм а на что? на пагемакер? иллюстратор? на публишер? на вентуру?
По слухам круче всего идти на вентуру. Но может быть перекинуться на публишер?

для наборщика.

Есть правило: "Латинские буквы должны быть курсивом". Ну а кирилические ясно дело прямые. А теперь представим формулу. эта буковка курсивом, эта буковка прямая. А теперь представим страницу с формулами и выкладками. итого одна страница - несколько часов работы.
И еще надо помнить про переключение раскладки для каждой буковки!

"что бы с этим сделать?" подумал я. и придумал.
Читать далее...

для верстальщика.

дано: абзац. с хвостиком. в одно слово, а то и в несколько букв вообще.

абзац красивый. ровненький. и хвостик. куда бы его деть?
в издательстве мне подсказали - вогнать!

ГЫ. Легко. называется уплотненный шрифт! сказано-сделано - пишем макрос:
Читать далее
Кстати, я попробовал выполнить замену по всему тексту с поиском любого символа с уплотненным текстом и последующей его раскраской.
Файл был на 450 страниц. я не дождался окончания. ибо undo получился слишком монструозным, чтобы ворд его мог эффективно переварить.
тогда написал макрос делающий тоже самое - тоже было долго, но все-таки быстрее. всего 7-8 минут подремать пришлось. и к тому же макрос делал сразу несколько действий над текстом, тогда как замена может делать лишь одно. Но макрос с заменой текста - это редкость. Впрочем я сбацал как-то макрос для конвертации html текста с онлайн библиотеки в ворд (там проблемы с абзацами). Но как оказалось этого же можно достичь гораздо дешевле - просто вставить скопированную страничку как "Неформатированный текст". так что этот макрос был уволен.

как всегда комом. хи-хи.

кстати был на Крупе в эти выходные увидел в продаже несколько книжек как раз по программированию ворда из этого бейсика. Покупать не стал, ибо свои задачи давно решил методом тыка. даже сложные, про которые расскажу после.

А пока мой первый макрос:

задача: сделать текст с 14 одинарного на 12 полуторный.
а в тексте таблицы, рисунки, короче куча хлама.

просто ctrl+A а затем пару кликов не проканает, а F4 зараза помнит только одно действие.

значит ваяем макрос.

Читать далее...

Блин, ну нахрена я связался с издательством?
ну доплатил бы автор эти 20% за изготовления макета, нет е мне надо было выпендриться и сказать "я все умею". Блиа.

"эта строчка является заголовком, она должна быть отбита на столько-то долей квадарта". "эта строчка - головка она должна быть отбита на столько-то пунктов".

ААААААА!!!!

это сколько? и ЧЕГО?

даа... короче выяснилось что пункт это пт в ворде, а квадрат это 18 мм. которые в свою очередь хрен его знает сколько там пунктов в ворде.
а техредам-то что? у них линейки со шкалой в квадратах... производства тысяча мохнатого года... стандарт блин.

уфф...

А Ворд, скотина работает только с пунктами! если говорить об отступах между абзацами.
и так 400 с хреном страниц по нескольку строчек на каждой.

ндя... короче без макросов работа будет на в радость мягко выражаясь.

Эти топиком я открываю новый раздел в этом дневнике посвященный макросам ворда.

в общем и целом я макросами овладел методом тыка. ну, сначал делаю макет с помощью "Сервис->Макрос->запись", а потом в коде ручками правлю и отсекаю ненужное.

Дальше я расскажу про макрос для отбойки абзаца
Читать далее...