Статьи из блога
Ударение в редакторе Word 2007
Эта заметка посвящается пользователям редактора Word 2007, которым необходимо использовать знак ударения в словах.
В сентябре 2006 года я уже публиковал заметку с похожим названием - Ударения в Word, но речь в ней шла исключительно о более ранних версиях редактора Word. В 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).
Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:
Создание макроса из готового кода
Метки: word 2007 | макросы | ударение
Просмотров: 22394
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Абзац с цветным фоном
- Автоматическая запись макроса
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
- Вставка документа с книжной ориентацией в документ с альбомной ориентацией
- Вставка завтрашней даты
- Вставка изображений из указанной папки для Word 2007
- Вставка неформатированного текста
- Вставка скопированного текста в предопределенном формате
- Вставка текста с полями в нижний колонтитул
- Вставка текста с помощью кнопки
- Выделение видимой части экрана
- Двойная нумерация страниц в документе
- Задать обтекание текстом для всех рисунков в документе
- Замена жаргонных слов в тексте
- Замена знаков абзаца на пробелы в выделенном тексте
- Замена текста в скобках на пробел
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 12
Только вот нюанс - появляется предупреждение встроенной проверки орфографии:
Слово "..." пишется слитно. Заменить?
Luna, очень странно, к вставке символа это не имеет отношения. А что за слово?
Любое слово, которое подвергнется обработке этим макросом.
Происходит это из-за фактической разбивки слова чужеродным символом, что и вызывает предупреждение системы проверки правописания.
Интересно, это предупреждение у всех пользователей Word 2007 появляется? У меня - не появляется, хотя установки проверки орфографии и грамматики не отключены....
Антон, здравствуйте.
У меня ругается, пробовал на слове "привет". Предлагает заменить на вариант без ударения.
У меня тоже не появляется никаких сообщений об ошибке. Все замечательно работает и в 2003 и в 2007.
Добрый день, Антон!
Можно ли поставить в тексте ударения не прибегая к помощи макросов?
С уважением, Андрей.
Не могу воспроизвести это предупреждение: пробовал на нескольких компьютерах. А вы можете мне сообщить свои настройки правописания? Теоретически можно отключить вывод этого сообщения...
Андрей, можно. Ставите курсор после буквы, над которой надо поставить знак ударения, переходите на вкладку Вставка, в группе команд Символы нажимаете кнопку Символы. Откроется подменю. Выбираете команду Другие символы и в окне ищите знак ударения. Можно быстрее этот знак найти, если в поле Набор выбрать строку Объединенные диакритические знаки.
Вариант: поставьте курсор после буквы, затем комбинация Alt+769 (на цифровой клавиатуре). Работает в 2007 и 2003...
Виктория, спасибо, отличная подсказка! Просто я не любитель клавиатурных сокращений!
Ворд2007: Выделяем букву затем Вставка-->> Формула: Диакретические знаки и там из списка выбираете нужный вам тип ударения или другого спецсимвола.