Skip to main content

Como inserir um texto específico no cursor ao compor uma mensagem no Outlook? 

Author: Xiaoyang Last Modified: 2025-06-04

Suponha que você tenha algumas strings de texto específicas que são usadas frequentemente ao compor mensagens de e-mail, então, você gostaria de inserir o texto na posição atual do cursor no corpo do e-mail automaticamente, sem precisar digitá-lo repetidamente. Neste artigo, vou falar sobre um método fácil para resolver essa tarefa rapidamente.

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 seguinte código VBA pode ajudá-lo a inserir uma string de texto específica ou a data atual na posição do cursor, por favor, faça o seguinte:

1. Pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Em seguida, clique em Inserir > Módulo, 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

Observação: No código acima, ExtendOffice é o texto específico que você deseja inserir, se precisar inserir a data atual em vez da string de texto, altere o texto neste script xSel.InsertBefore Format("ExtendOffice") para xSel.InsertBefore Format(Now, "DD/MM/YYYY").

3. Depois, salve e feche a janela de código, crie um novo e-mail e, na janela Mensagem, clique na seta para baixo Personalizar Barra de Acesso Rápido e escolha Mais Comandos, veja a captura de tela:

doc insert text at cursor 1

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

(1.) Selecione Macros no menu Escolher comando de;

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

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

doc insert text at cursor 2

5. E depois, clique no botão OK para fechar a caixa de diálogo, agora, o ícone da macro foi inserido na Barra de Acesso Rápido Personalizada. Coloque o cursor onde deseja inserir o texto e, em seguida, clique neste botão de macro, o texto específico será inserido imediatamente, veja a captura de tela:

doc insert text at cursor 3

Inserir texto específico em qualquer local ao compor mensagem:

Com o recurso Auto Texto do Kutools para Outlook, você pode criar um auto texto e, em seguida, inseri-lo em qualquer lugar ao compor a mensagem conforme necessário.

doc insert text at cursor 4
 👉 O Kutools para Outlook agora tem uma versão gratuita, com 70+ recursos disponíveis gratuitamente por toda a vida. Faça o download da Versão Gratuita Agora.

Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2