Outlook 2010 功能区按钮可以更改字体吗?

Outlook 2010 功能区按钮可以更改字体吗?

是否可以在 Outlook 2010 功能区中添加一个按钮,将突出显示文本的字体更改为“Courier New”并将字体大小减小到 10 点?不是整个文档,只是突出显示的文本。

要做到这一点,必须单击“字体”两次,单击“字体大小”两次,这对我的腕管来说很痛苦。

答案1

使用宏可以起作用,但需要启用 Outlook 会发出警告的宏。

http://msdn.microsoft.com/en-us/library/ee814736%28v=office.14%29.aspx展示如何启用宏、创建宏并将其添加到功能区。

https://stackoverflow.com/questions/20624331/vba-macro-to-highlight-selected-text-in-current-email-message答案中包含将对当前选定的文本执行更改的代码。

要将字体更改为 Courier new、10 号、粗体、黑色,我使用来自第二个链接的宏:

Sub ChangeSelectedFontToCode()
 Dim msg As Outlook.MailItem
 Dim insp As Outlook.Inspector

 Set insp = Application.ActiveInspector

 If insp.CurrentItem.Class = olMail Then
     Set msg = insp.CurrentItem

     If insp.EditorType = olEditorHTML Then ' outlook 2003
         Set hed = msg.GetInspector.HTMLEditor
         Set rng = hed.Selection.createRange
         rng.pasteHTML "<b><font style='color: black; font-size: 10pt; font-family:Courier New;'>" & rng.Text & "</font></b>"
     End If

     If insp.EditorType = olEditorWord Then ' outlook 2013
         Set hed = msg.GetInspector.WordEditor
         Set appWord = hed.Application
         Set rng = appWord.Selection
         rng.Font.Size = 10
         rng.Font.Color = wdColorBlack
         rng.Font.Bold = True
         rng.Font.Name = "Courier New"

         rng.Collapse Direction:=wdCollapseEnd
     End If

 End If

 Set appWord = Nothing
 Set insp = Nothing
 Set rng = Nothing
 Set hed = Nothing
 Set msg = Nothing

 End Sub

相关内容