是否可以在 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