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

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

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

Рубрика: Макросы
Метки: | |
Суббота, 21 июня 2008 г.
Просмотров: 14236
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

Эта заметка посвящается пользователям редактора 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).

 

Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса

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:

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

  1. Luna
    22.06.2008 в 08:53 | #1

    Только вот нюанс - появляется предупреждение встроенной проверки орфографии:

    Слово "..." пишется слитно. Заменить?

  2. 22.06.2008 в 10:06 | #2

    Luna, очень странно, к вставке символа это не имеет отношения. А что за слово?

  3. Luna
    22.06.2008 в 12:14 | #3

    Любое слово, которое подвергнется обработке этим макросом.

    Происходит это из-за фактической разбивки слова чужеродным символом, что и вызывает предупреждение системы проверки правописания.

  4. 22.06.2008 в 12:22 | #4

    Интересно, это предупреждение у всех пользователей Word 2007 появляется? У меня - не появляется, хотя установки проверки орфографии и грамматики не отключены....

  5. Борис
    23.06.2008 в 10:23 | #5

    Антон, здравствуйте.

    У меня ругается, пробовал на слове "привет". Предлагает заменить на вариант без ударения.

  6. 23.06.2008 в 10:23 | #6

    У меня тоже не появляется никаких сообщений об ошибке. Все замечательно работает и в 2003 и в 2007.

  7. Андрей
    23.06.2008 в 12:37 | #7

    Добрый день, Антон!

    Можно ли поставить в тексте ударения не прибегая к помощи макросов?

    С уважением, Андрей.

  8. 23.06.2008 в 12:41 | #8

    Не могу воспроизвести это предупреждение: пробовал на нескольких компьютерах. А вы можете мне сообщить свои настройки правописания? Теоретически можно отключить вывод этого сообщения...

  9. 23.06.2008 в 12:54 | #9

    Андрей, можно. Ставите курсор после буквы, над которой надо поставить знак ударения, переходите на вкладку Вставка, в группе команд Символы нажимаете кнопку Символы. Откроется подменю. Выбираете команду Другие символы и в окне ищите знак ударения. Можно быстрее этот знак найти, если в поле Набор выбрать строку Объединенные диакритические знаки.

  10. Виктория
    03.07.2008 в 10:33 | #10

    Вариант: поставьте курсор после буквы, затем комбинация Alt+769 (на цифровой клавиатуре). Работает в 2007 и 2003...

  11. 03.07.2008 в 10:55 | #11

    Виктория, спасибо, отличная подсказка! Просто я не любитель клавиатурных сокращений!

  12. Аноним
    27.04.2011 в 22:39 | #12

    Ворд2007: Выделяем букву затем Вставка-->> Формула: Диакретические знаки и там из списка выбираете нужный вам тип ударения или другого спецсимвола.

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

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

^ Наверх