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

О форматировании отдельных символов

Юрий интересуется:

Предположим, что часить слова написана полужирым шрифтом, а часть - обычным. Выделив слово и нажав кнопку И (или клавиши «Ctrl+B») мы приведём всё слово к полужирному начертанию. Нажав ещё раз - к обычному и т.д.

Существует ли способ переключить начертание, чтобы те буквы (не слова), что были жирными, стали обычными, а обычные - жирными?

Юрий, вот примеры макросов для ваших целей, подсказанные Александром Витером .

 

Макрос для одного слова, в котором находится курсор ввода

Sub inversWord()
'Инвертирование полужирного начертания слова
Dim oChar As Range
Selection.Words(1).Select
For Each oChar In Selection.Characters
  oChar.Font.Bold = Not oChar.Font.Bold
Next
Selection.Collapse wdCollapseEnd
End Sub

Макрос для документа в целом (обрабатывает все такие слова)

Sub InvertBold()
'Инвертирование полужирного начертания слов во всем документе
  Dim oChar As Range, iStart&, bFound As Boolean
  bFound = True
  Do While bFound
    bFound = False
    With ActiveDocument.Range(iStart, ActiveDocument.Range.End).Find
      .Text = "*"
      .Font.Bold = True
      .MatchWildcards = True
      .Execute
      If .Found Then
        For Each oChar In .Parent.Words(1).Characters
          oChar.Font.Bold = Not oChar.Font.Bold
        Next
        iStart = .Parent.Words(1).End
        bFound = .Found
      End If
    End With
  Loop
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:

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

  1. АлександерМа
    04.05.2011 в 13:58 | #1

    А как сделать обратную операцию! После распознавания текста некоторые символы отформатированы полужирным. Выделение всего текста и форматирование приводит к инверсии: был простой- стол полужирный, был полужирный -стал простой.

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

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

^ Наверх