1 Тема от Alex_Gur

  • Установка ударений слов в Word
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Тема: Установка ударений слов в Word

Напечатайте слово (например, Клавиатура). После нужной буквы (у) введите цифры 0301, а затем нажмите на комбинацию клавиш Alt+x.
Получаем: Получаем: слово Клавиату́ра с ударением на букву у.
Данная рекомендация применима для версий Word 2007 и 2010.

Подробнее см.: http://wordexpert.ru/page/udareniya-v-word

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

2 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243
  • За сообщение: 1

Re: Установка ударений слов в Word

Товарищи! Есть уточнения, которые выявил опытным путем!
1. В указанной выше инструкции надо внимательно следить в окне Вставка символа за полем Шрифт. Обычно, по умолчанию стоит (обычный текст), что соответствует шрифту стиля абзаца и не подходить к шрифту символа над которым Вы хотите поставить знак ударения.
2. В диактрических символах, кроме символов 0300 и 0301, могут быть и другие символы ударения, например 0340 и 0341 и т.п. Они возможно лучше подойдут к символу.
Совет: поэкспериментируйте с разными символами и подберите лучшее к тому или иному шрифту.

3 Ответ от Ципихович Эндрю

  • Ципихович Эндрю
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 04.02.2010
  • Сообщений: 506
  • Поблагодарили: 23

Re: Установка ударений слов в Word

'http://www.excelworld.ru/forum/4-1123-1
'устанавливает знак ударения над буквой
'расположенной слева от курсора в отмеченном выделением месте документа
Sub Поставить_ударение()
     If Selection.Type <> wdSelectionIP Then MsgBox "Установите курсор правее ударной буквы!": Exit Sub
     Selection.InsertSymbol CharacterNumber:=769, Unicode:=True
End Sub
'http://www.excelworld.ru/forum/4-1123-1
'устанавливает знак ударения над буквой
'расположенной слева от курсора в отмеченном выделением месте документа
Sub Поставить_ударение()
     If Selection.Type <> wdSelectionIP Then MsgBox "Установите курсор правее ударной буквы!": Exit Sub
     Selection.InsertSymbol CharacterNumber:=769, Unicode:=True
End Sub