在Microsoft Word中，如何在未选择任何内容的情况下从更改字体禁用字体快捷键？

对于令人困惑的标题，我深表歉意。这是我要自定义行为的说明。

Microsoft Word中的“字体”快捷键（Ctrl+I，Ctrl+B，Ctrl+U）起到两个作用：

更改已键入文本的字体；和
更改将用于将要键入的文本的字体。

反过来，角色（1）将在两种不同的情况下发生：

（a）选择文字时；和
（b）当光标位于单词的中间时。

是上下文（b）给我带来了困难，因为它干扰了“音轨变化”（完整的解释很复杂，但是，基本上，Word将光标视为“在单词中间”，即使单词的一半是“插入”，另一半被“删除”-可以说是一个错误）。

因此，我想禁用（b）。具体来说，我想这样做，以便在Ctrl+I按下并且没有选择文本时，不会更改字体。

这可能吗？

microsoft-word

— 欧文
source

请告知正在使用哪个版本的Word。在任何Word文档中，请执行File | 帐号| 关于以及年份和发行版号在关于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

— 里奇·迈克尔斯
source