Эта заметка посвящается пользователям редактора Word 2007, которым необходимо использовать знаки ударений в словах.
К сожалению, обычный способ вставки ударения для буквы в слове в редакторе Word 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).

Написал sasha 13 ноября 2008 распечатать