Ударение в редакторе Word 2007

Источник: wordexpert

Антон Кокин

Эта заметка посвящается пользователям редактора Word 2007, которым необходимо использовать знак ударения в словах.
В сентябре 2006 года я уже публиковал заметку с похожим названием - Ударения в Word, но речь в ней шла исключительно о более ранних версиях редактора Word. В Word 2007 те способы, которые были описаны в заметке, не работают.
Когда я уже готовил к изданию свою книгу Word 2003/2007. Народные советы, я включил в одну из глав код макроса, который прекрасно работает в новой версии редактора. Этот макрос позволяет как устанавливать знак ударения над выделенной буквой, так и удалять знак.

В редакторе Word существует несколько типов символов ударения. В описываемом макросе я использую знак с кодом 769 из таблицы символов Unicode.
Код макроса:

Sub setAndDeleteAccent()
' Установка и удаление знаков ударения
' @A.Kokin WordExpert.ru - профессиональная работа с текстом
Dim rAcc As Range
Dim rTmp As Range
Set rTmp = Selection.Range
If Selection.Type = wdSelectionIP Then
   MsgBox prompt:="Не выделена буква"
ElseIf Len(rTmp.Characters(1)) = 1 Then
     rTmp.Collapse direction:=wdCollapseEnd 
     rTmp.InsertSymbol CharacterNumber:=769, Unicode:=True 
     Selection.Collapse direction:=wdCollapseEnd  
Else
     For Each rAcc In rTmp.Characters
         If AscW(Right(rAcc, 1)) = 769 Then  
            rAcc = Left(rAcc, 1) 
         End If
     Next rAcc
End If
End Sub

Чтобы вставить ударение над буквой, выделите эту букву и запустите макрос. Чтобы удалить знак ударения, снова выделите букву, находящуюся под ударением. Если в тексте ничего не выделено, то будет показано сообщение в диалоговом окне.

Чтобы иметь быстрый доступ к этому макросу, назначьте для него сочетание клавиш или создайте кнопку на панели инструментов (или в панели быстрого доступа для Word 2007).

Ссылки по теме