Atalho ou macro para alterar o tipo de fonte no Microsoft Outlook

Question

Existe um atalho de teclado para alterar a fonte no Outlook no Windows? Eu tenho que alternar entre Calibri e Courier constantemente por razões técnicas e clicar na caixa de diálogo da fonte toda vez fica muito entediante. Eu sei que posso usar Ctrl + Space para alterar qualquer coisa para a fonte padrão (Calibri).

Se não houver atalho, alguém pode me ajudar a criar uma macro para alternar as fontes? Eu imagino que posso atribuir um atalho a uma macro?

    

Answer 1

(A resposta de techie007 não funcionou para mim no Outlook 2010)

Esta macro (adaptada de link ) faz:

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

Em seguida, no Editor do VBA, vá para Tools > References e selecione Microsoft Word 14.0 Object Library .

Agora, para criar um atalho de teclado para uma macro, adicione-o à sua Barra de Ferramentas de Acesso Rápido da seguinte forma:

1. Abra uma nova mensagem de e-mail
2. Clique na pequena seta suspensa na Barra de Ferramentas de Acesso Rápido (normalmente localizada na parte superior da janela) e selecione "Mais Comandos ..."

A caixa de diálogo Opções do Outlook será aberta e, em seguida, selecione "Macros" na lista suspensa "Escolher comandos de:"

Selecione a macro SetCodeFont na lista e pressione "Adicionar > >"

O botão da macro aparecerá agora na Barra de Ferramentas de Acesso Rápido

Para executar a macro, destaque algum texto em seu email e pressione Alt + <Num> , em que <Num> é a posição da macro na sua Barra de Ferramentas de Acesso Rápido. Por exemplo, se a macro for o primeiro botão da barra de ferramentas, use Alt + 1 para invocá-la.

    

Answer 2

Apenas FYI, esta é a sequência chave para focar o seletor de fontes: Alt , H , f , F