Кнопка ленты Outlook 2010, чтобы изменить шрифт возможно?

Question

Можно ли добавить кнопку на ленту Outlook 2010, которая изменит шрифт выделенного текста на "Новый курьер" и уменьшит размер шрифта до 10 пунктов? Не весь документ, только выделенный текст.

Необходимость дважды щелкнуть по шрифту и дважды по размеру шрифта, чтобы сделать это, усугубляет мой запястный туннель.

Answer 1

использование макроса будет работать, но требует включения макросов, о которых Outlook будет предупреждать.

http://msdn.microsoft.com/en-us/library/ee814736%28v=office.14%29.aspx показывает, как включить maros, создать макрос и добавить его на ленту.

https://stackoverflow.com/questions/20624331/vba-macro-to-highlight-selected-text-in-current-email-message содержит код в ответе, который внесет изменения в текущий выбранный текст.

Чтобы изменить шрифт на новый, с 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