Разноцветный Word n-mirgorodskay's blog / 19.07.2011 Если в учебном курсе упоминается макрос, думаю, что следующая демонстрация его мощи будет интересной.Повторив описанные ниже действия, получите впечатляющий эффект.Для определенности предлагаю напечатать на странице редактора Word 2003 несколько раз заголовок Разноцветный Word. Для определенности – 10 раз. Напечатали? Можно было и копировать.Поставьте курсор перед буквой Р первого разноцветного Word(а).Из меню выбираем Сервис – Макрос – Начать запись.Назначаем имя макроса – Цвет. Кнопки (Панели, Клавишам) не трогаем, нажимаем ОК. Появляется маленькая панелька рекордера – «магнитофончик» с кнопкой Стоп. Это значит, что с сего момента будет вестись запись действий пользователя. В нужный момент можно будет их повторить.Выполним эти действия:- нажать клавишу Shift и, не отпуская ее, клавишу Стрелка вправо. Будет выделена одна буква Р. Отпускаем клавиши; - на панели инструментов Форматирование находим кнопку Цвет шрифта и задаем букве красный цвет;- нажимаем клавишу Стрелка вправо. Выделение пропадает. - останавливаем запись, нажав на кнопку Стоп «магнитофона».Попробуем испытать макрос в действии. Курсор у нас в первом слове перед буквой а. Команды Сервис – Макрос - Макросы вызывают список действующих макросов. Выбираем из списка Цвет и нажимаем на кнопку Выполнить. Покраснела буква а. Но не слишком ли это длинный путь? Через панель Форматирование управились бы быстрее. Так ведь это только присказка, сказка впереди.Действительно, созданный макрос не впечатляет. Доработаем. Тот, кто сталкивался с языком Бейсик или Паскаль любой версии, быстро поймут, в чем дело.Снова подаем команду Сервис – Макрос – Макросы. Снова выбираем Цвет и кнопку Изменить.Находим текст Sub Цвет()' Цвет Макрос' Макрос записан 15.07.2011 pavelSelection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtendSelection.Font.Color = wdColorOrangeSelection.MoveRight Unit:=wdCharacter, Count:=1End SubИ дорабатываем текст макроса.Перед первым Selection дописываем строку For i = 1 To 125,а параметр wdColorOrange заменяем на RGB(i * 2, 0, 255 - 2 * i).После третьего Selection дописываем с новой строки слово Next. Все. Закрываем окно VBA (подпрограмма при этом сохранится автоматически).И снова цепочка команд: Сервис – Макрос – Макросы. Снова выбираем макрос Цвет и кнопку Выполнить. Выполнили? Что же произошло. В текст макроса мы добавили цикл, который выполнился 125 раз. В итоге получили 125 букв и среди них нет букв одного цвета. Сочетание красного, зеленого и синего (то самое rgb) в каждом шаге цикла сделали свое и радуга попыталась проникнуть в наш скучный текст. Эксперименты с цветом приветствуются. Приветствуются эксперименты с вложенными циклами.Попробуйте сделать так, чтобы цвет менялся волнообразно. WORD макрос текст цвет шрифт