Como inserir texto específico no ponto de inserção ao compor uma mensagem no Outlook?

Imagine que tem algumas cadeias de texto específicas que utiliza frequentemente ao compor mensagens de e-mail e gostaria de as inserir automaticamente na posição do cursor no corpo da mensagem, sem precisar de as digitar manualmente vezes sem conta. Neste artigo, explico um método simples para resolver esta tarefa em segundos.

Inserir texto específico ou data atual no cursor ao compor mensagem com código VBA

---

Inserir texto específico ou data atual no cursor ao compor mensagem com código VBA

O código VBA seguinte permite-lhe inserir uma cadeia de texto específica ou a data atual exatamente na posição do cursor. Siga os passos abaixo:

1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.

2. Em seguida, clique em Inserir > Módulo e copie e cole o código abaixo no módulo em branco aberto:

Código VBA: Inserir texto específico ou data atual no cursor

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

Nota: No código acima, ExtendOffice é o texto específico que pretende inserir. Se quiser inserir a data atual em vez dessa cadeia de texto, substitua a linha do script xSel.InsertBefore Format(«ExtendOffice») por xSel.InsertBefore Format(Now, «DD/MM/YYYY»).

3. Em seguida, feche a janela do código, crie um novo e-mail e, na janela da mensagem, clique na seta suspensa Personalizar Barra de Acesso Rápido e selecione Mais Comandos, conforme mostra a imagem:

4. Na caixa de diálogo Opções do Outlook, realize as seguintes operações:

(1.) Selecione Macrosna lista suspensa Escolher comandos de;

(2.) Clique no nome da macro que inseriu;

(3.) Em seguida, clique no botão Adicionar para adicionar esta macro à caixa de listagem Personalizar Barra de Acesso Rápido.

5. Depois, clique no botão OK para fechar a caixa de diálogo. Agora, o ícone da macro foi adicionado à Barra de Acesso Rápido. Posicione o cursor onde pretende inserir o texto e clique neste botão da macro — o texto específico será inserido imediatamente, conforme mostra a imagem:

---

Insira texto específico em qualquer local ao compor uma mensagem: Com o Kutools para Outlook e a sua funcionalidade Texto Automático, pode criar fragmentos de texto personalizados e inseri-los em qualquer local ao compor uma mensagem, sempre que necessário. 👉 Trabalhe de forma mais inteligente no Outlook!Transferir Kutools para Outlookpara aumentar a produtividade com funcionalidades que poupam tempo do 100+ — grátis durante 30 dias!