Як у Microsoft Word як відключити комбінації клавіш швидкого доступу від зміни шрифту, коли нічого не вибрано?

Прошу вибачення за заплутану назву. Ось пояснення поведінки, яку я хотів би налаштувати.

У Microsoft Word, в «Шрифт» поєднання клавіш ( Ctrl+I, Ctrl+B, Ctrl+U) виконують дві функції:

змінити шрифт тексту вже набраного тексту; і
щоб змінити шрифт, який буде використаний для тексту, який буде введено.

Роль (1), у свою чергу, відбуватиметься у двох різних контекстах:

(a) коли вибрано текст; і
(b) коли курсор розташований посередині слова.

Саме контекст (b) викликає труднощі, оскільки він заважає "змінити трек" (повне пояснення є складним, але, в основному, Word трактує курсор як "посеред слова", навіть якщо половина слова "вставлено", а інша половина "видалена" - можливо, помилка).

Тому я хотів би відключити (b). Зокрема, я хотів би зробити так, щоб після Ctrl+Iнатискання та вибору тексту не змінювався шрифт.

Чи можливо це?

microsoft-word

— Оуен
джерело

Будь ласка, порадьте, яка версія Word використовується. У будь-якому документі Word будь ласка, зробіть файл | Рахунок | Про, а також рік та номер випуску знаходяться на другому рядку у розділі Про Microsoft Word. Отримавши, натисніть editугорі та зліва та додайте це до початкового питання.

— K7AAY

Так, із наступними трьома підпрограмами VBA, доданими до вашого звичайного шаблону, або доданими до окремого користувацького шаблону, який завантажується у папку запуску Word, або у сам документ, якщо це був макроса ".docm".

Sub Bold()
'
' Bold Macro
' Makes the selection bold (toggle)
'
    If Not Selection.Range.Start = Selection.Range.End Then
        Selection.Font.Bold = wdToggle
    End If

End Sub
Sub Italic()
'
' Italic Macro
' Makes the selection italic (toggle)
'
    If Not Selection.Range.Start = Selection.Range.End Then
        Selection.Font.Italic = wdToggle
    End If

End Sub
Sub Underline()
'
' Underline Macro
' Formats the selection with a continuous underline (toggle)
'
    If Not Selection.Range.Start = Selection.Range.End Then
        If Selection.Font.Underline = wdUnderlineNone Then
            Selection.Font.Underline = wdUnderlineSingle
        Else
            Selection.Font.Underline = wdUnderlineNone
        End If
    End If

End Sub

— Багатий Майклз
джерело