Статьи из блога

Макрос быстрого изменения размера шрифта

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

 

Вот, что пишет Александр:

Хочу поделиться макросом быстрого изменения размера шрифта.

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

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

Еще записи по вопросам использования Microsoft Word:

Комментариев: 3

  1. Марат
    14.04.2013 в 18:37 | #1

    Спасибо за сайт и за посты. В 2003 есть аж 4 стандартные команды,

    через меню "Серис-Настройки-Команды-Формат" можно вытащить кнопки на панели.

  2. 14.10.2013 в 21:23 | #2

    Макросы работают, спасибо! Но при работе с длинным текстом (книгой) с разными шрифтами время нужно действительно большое.

    Мне кажется, можно как-то доработать первый макрос. Потому что каким-то образом эта же команда, но запущенная через кнопку меню "Сервис-Настройки-Команды-Формат" ошибки не выдает. Однако моих знания не хватает :(

  3. Tokumechimo
    09.07.2015 в 12:13 | #3

    так есть же горячие клавиши ctrl+] и ctrl+[ которые увеличивают и соотвественно уменьшают выделеный текст на 1 пункт (верно для word 2003, 2010)

Оставьте комментарий!

(обязательно)

^ Наверх