☰

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

tag-icon • tag-icon microsoft-outlook macros
用于在 Microsoft Outlook 中更改字体类型的快捷方式或宏

是否有用于更改 Windows 版 Outlook 字体的键盘快捷键？由于技术原因，我必须不断在 Calibri 和 Courier 之间切换，每次单击字体对话框都非常繁琐。我知道我可以使用 Ctrl+Space 将任何内容更改为默认 (Calibri) 字体。

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

答案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. 单击快速访问工具栏（通常位于窗口顶部）上的小下拉箭头，然后选择“更多命令...”

更多命令

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

宏

  1. 从列表中选择 SetCodeFont 宏并按“添加 >>”
  2. 宏按钮现在将出现在快速访问工具栏上

要运行宏，请突出显示电子邮件中的某些文本，然后按快速访问工具栏中宏的Alt + <Num>位置<Num>。例如，如果宏是工具栏上的第一个按钮，则使用Alt + 1来调用它。

答案2

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

相关内容