Иногда для недопущения двоякого толкования смысла слов документа (например, "писАть" или "пИсать" ) полезно иметь возможность поставить ударения в словах. Макрос Поставить_ударение, размещённый в стандартном модуле Normal.dot (его вызов "привязан" к соответствующей кнопке на панели инструментов), устанавливает знак ударения над буквой, расположенной слева от курсора в отмеченном выделением месте документа: [vba]
Код
Sub Поставить_ударение() If Selection.Type <> wdSelectionIP Then MsgBox "Установите курсор правее ударной буквы!": Exit Sub Selection.InsertSymbol CharacterNumber:=769, Unicode:=True End Sub
[/vba] Удалить установленный ранее знак ударения можно поставив курсор ЛЕВЕЕ ударной буквы и нажав BackSpace
Иногда для недопущения двоякого толкования смысла слов документа (например, "писАть" или "пИсать" ) полезно иметь возможность поставить ударения в словах. Макрос Поставить_ударение, размещённый в стандартном модуле Normal.dot (его вызов "привязан" к соответствующей кнопке на панели инструментов), устанавливает знак ударения над буквой, расположенной слева от курсора в отмеченном выделением месте документа: [vba]
Код
Sub Поставить_ударение() If Selection.Type <> wdSelectionIP Then MsgBox "Установите курсор правее ударной буквы!": Exit Sub Selection.InsertSymbol CharacterNumber:=769, Unicode:=True End Sub
[/vba] Удалить установленный ранее знак ударения можно поставив курсор ЛЕВЕЕ ударной буквы и нажав BackSpaceAlex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Вторник, 20.12.2011, 15:44
Осмелюсь вставить свои пять копеек в тему "Поставить ударение"
Чтобы поставить ударение с клавиатуры в документе Word, использую следующий алгоритм: 1) устанавливаю курсор после "ударяемого" символа 2) набираю 301 (код соответствующего символа), затем сразу сочетание Alt+X
Удаляю как обычно: курсор после "ударяемого" символа -- BackSpace
Осмелюсь вставить свои пять копеек в тему "Поставить ударение"
Чтобы поставить ударение с клавиатуры в документе Word, использую следующий алгоритм: 1) устанавливаю курсор после "ударяемого" символа 2) набираю 301 (код соответствующего символа), затем сразу сочетание Alt+X
Удаляю как обычно: курсор после "ударяемого" символа -- BackSpacePelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Лена, спасибо за "пять копеек". Я уже несколько раз пытался запомнить эти "волшебные кнопки"... Но хоть Вордом я пользуюсь и не очень редко, а ударения всё-таки ставить приходится ОЧЕНЬ редко. Поэтому, естественно, хоткеи в голове не держатся. А когда как-то в очередной раз понадобилось, то, в очередной раз найдя в интернете хоткеи, плюнул-таки на свою дырявую память и написал этот макрос.
[offtop]Вот что удивительно: другие даже редко юзаемые хоткеи Ворда помню (при чём кроме всяких неразрывных пробелов, дефисов, мягких переносов и т.п. помню даже весьма экзотические типа "выделение вертикального фрагмента текста" хоткеем Ctrl+Shift+F8), а вот этот - ну ни в какую не могу![/offtop]
Лена, спасибо за "пять копеек". Я уже несколько раз пытался запомнить эти "волшебные кнопки"... Но хоть Вордом я пользуюсь и не очень редко, а ударения всё-таки ставить приходится ОЧЕНЬ редко. Поэтому, естественно, хоткеи в голове не держатся. А когда как-то в очередной раз понадобилось, то, в очередной раз найдя в интернете хоткеи, плюнул-таки на свою дырявую память и написал этот макрос.
[offtop]Вот что удивительно: другие даже редко юзаемые хоткеи Ворда помню (при чём кроме всяких неразрывных пробелов, дефисов, мягких переносов и т.п. помню даже весьма экзотические типа "выделение вертикального фрагмента текста" хоткеем Ctrl+Shift+F8), а вот этот - ну ни в какую не могу![/offtop]Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Вторник, 05.03.2013, 20:39
Мо́жно куда́ про́ще : поставьте курсор после нужной буквы, нажмите и удерживайте клавишу Alt, при этом наберите на цифровой клавиатуре (находится справа на клавиатуре) цифры 0769 и только после этого отпустите клавишу Alt. Знак ударения будет установлен на нужной букве. и ФСЁ!
Мо́жно куда́ про́ще : поставьте курсор после нужной буквы, нажмите и удерживайте клавишу Alt, при этом наберите на цифровой клавиатуре (находится справа на клавиатуре) цифры 0769 и только после этого отпустите клавишу Alt. Знак ударения будет установлен на нужной букве. и ФСЁ! АянА
АянА, сколько по-Вашему "пальцедвижений" нужно для выполнения такого "простого" способа? Считаем: Alt, 0, 7, 6, 9 == 5 штук. Да ещё и к тому же это надо делать двумя руками (я очень сомневаюсь, что у Вас такая гибкость пальцев, растяжка пятерни и координация движений, что это всё можно проделать быстро и одной рукой ) А о засорении памяти Альт-кодами я уже не говорю, т.к. это учесть невозможно. Так что один раз вставить в Normal.dot макрос и сделать на панели кнопочку для его вызова, а потом юзать "одним кликом", наверное, намного легче.
АянА, сколько по-Вашему "пальцедвижений" нужно для выполнения такого "простого" способа? Считаем: Alt, 0, 7, 6, 9 == 5 штук. Да ещё и к тому же это надо делать двумя руками (я очень сомневаюсь, что у Вас такая гибкость пальцев, растяжка пятерни и координация движений, что это всё можно проделать быстро и одной рукой ) А о засорении памяти Альт-кодами я уже не говорю, т.к. это учесть невозможно. Так что один раз вставить в Normal.dot макрос и сделать на панели кнопочку для его вызова, а потом юзать "одним кликом", наверное, намного легче.Alex_ST
Интересно, как Вы себе представляете ввод Альт-кода 0769 путём ОДНОВРЕМЕННОГО нажатия кнопок? На цифровой клавиатуре, слегка потренировавшись, правой рукой изобразить такую "растопырку" и ткнуть ею одновременно по 4-м клавишам можно. Но вот как компу объяснить, что эта загадочная фигура из 4-х пальцев означает именно 0769, а не 0796, 0697, 9760, и т.д.?
Интересно, как Вы себе представляете ввод Альт-кода 0769 путём ОДНОВРЕМЕННОГО нажатия кнопок? На цифровой клавиатуре, слегка потренировавшись, правой рукой изобразить такую "растопырку" и ткнуть ею одновременно по 4-м клавишам можно. Но вот как компу объяснить, что эта загадочная фигура из 4-х пальцев означает именно 0769, а не 0796, 0697, 9760, и т.д.?Alex_ST
С уважением, Алексей MS Excel 2003 - the best!!!
Сообщение отредактировал Alex_ST - Понедельник, 01.12.2014, 13:31
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
) полезно иметь возможность поставить ударения в словах. 
: поставьте курсор после нужной буквы, нажмите и удерживайте клавишу Alt, при этом наберите на цифровой клавиатуре (находится справа на клавиатуре) цифры 0769 и только после этого отпустите клавишу Alt. Знак ударения будет установлен на нужной букве. и ФСЁ! 
) 
