用于在 Microsoft Outlook 中更改字体类型的快捷方式或宏

Question

是否有用于在 Windows 上的 Outlook 中更改字体的键盘快捷键？由于技术原因，我必须不断地在 Calibri 和 Courier 之间交替，每次点击字体对话框都会变得非常乏味。我知道我可以使用 Ctrl+Space 将任何内容更改为默认 (Calibri) 字体。

如果没有快捷方式，有人可以帮我创建一个宏来切换字体吗？我想我可以为宏分配任何快捷方式吗？

Answer 1

（techie007 的答案在 Outlook 2010 中对我不起作用）

这个宏（改编自http://www.slipstick.com/developer/word-macro-apply-formatting-outlook-email/）执行：

Sub SetCodeFont()
    Dim objItem As Object
    Dim objInsp As Outlook.Inspector

    Dim objWord As Word.Application
    Dim objDoc As Word.Document
    Dim objSel As Word.Selection
    On Error Resume Next

    Set objItem = Application.ActiveInspector.CurrentItem
    If Not objItem Is Nothing Then
        If objItem.Class = olMail Then
            Set objInsp = objItem.GetInspector
            If objInsp.EditorType = olEditorWord Then
                Set objDoc = objInsp.WordEditor
                Set objWord = objDoc.Application
                Set objSel = objWord.Selection
                objSel.Font.Name = "Consolas"
            End If
        End If
    End If

    Set objItem = Nothing
    Set objWord = Nothing
    Set objSel = Nothing
    Set objInsp = Nothing
End Sub

接下来，在 VBA 编辑器中转到 Tools > References并选择Microsoft Word 14.0 Object Library.

现在，要为宏创建键盘快捷键，请将其添加到您的快速访问工具栏，如下所示：

1. 打开新邮件
2. 单击快速访问工具栏（通常位于窗口顶部）上的小下拉箭头，然后选择“更多命令...”

3. Outlook 选项对话框将打开，然后从“从以下位置选择命令：”下拉菜单中选择“宏”

4. 从列表中选择 SetCodeFont 宏，然后按“添加 >>”
5. 宏按钮现在将出现在快速访问工具栏上

要运行宏亮点电子邮件一些文本，并按Alt + <Num>那里<Num>是你快速访问工具栏宏的位置。例如，如果宏是工具栏上的第一个按钮，则使用Alt + 1它来调用它。

Answer 2

仅供参考，这是聚焦字体选择器的按键顺序：Alt, H, F,F