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

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

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

Предположим, что часить слова написана полужирым шрифтом, а часть - обычным. Выделив слово и нажав кнопку И (или клавиши «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

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

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

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

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

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

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

^ Наверх