Статьи из блога
Макрос быстрого изменения размера шрифта
Александр Витер прислал небольшой макрос, позволяющий изменить размер шрифта для выделенного текста или для слова, в котором находится курсор ввода.
Вот, что пишет Александр:
Хочу поделиться макросом быстрого изменения размера шрифта.
Sub Увеличить_шрифт() With Selection.Font .Size = .Size + 1 End With End Sub
Дело в том, что я хотел это сделать через стандартную команду FontIncreaseSize\FontDecreaseSize, но не смог поставить на нее свое сочетание клавиш «Ctrl+Alt+Вверх». Пришлось написать свой макрос. Думаю, что он будет полезен посетителям Вашего сайта.
P.S. Аналогично для уменьшения шрифта, только с минусом и клавиши «Ctrl»+«Alt»+«Вниз».
Обновление (20.08.2008):
Если попытаться применить этот макрос к тексту с шрифтом разного размера, он выведет ошибку. Поэтому можно использовать другой вариант макроса, который будет увеличивать каждый символ выделенного текста.
Sub SizeCharactersFonts() 'увеличение каждого символа в тексте на 1 Dim oChar As Range With Selection For Each oChar In Selection.Characters oChar.Font.Size = oChar.Font.Size + 1 Next oChar End With End Sub
Метки: макросы | шрифты
Просмотров: 25947
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Word 2007: полотно, рисунки, линии
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
- Быстрый поиск форматированного текста
- В чем различие между Автозаменой и Автотекстом
- В чем различие между стилями Обычный (Normal) и Основной текст (Body Text)?
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
Комментариев: 3
Спасибо за сайт и за посты. В 2003 есть аж 4 стандартные команды,
через меню "Серис-Настройки-Команды-Формат" можно вытащить кнопки на панели.
Макросы работают, спасибо! Но при работе с длинным текстом (книгой) с разными шрифтами время нужно действительно большое.
Мне кажется, можно как-то доработать первый макрос. Потому что каким-то образом эта же команда, но запущенная через кнопку меню "Сервис-Настройки-Команды-Формат" ошибки не выдает. Однако моих знания не хватает :(
так есть же горячие клавиши ctrl+] и ctrl+[ которые увеличивают и соотвественно уменьшают выделеный текст на 1 пункт (верно для word 2003, 2010)