Como inserir um texto específico no cursor ao compor uma mensagem no Outlook?
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:

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.

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:

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. ![]() 👉 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!
📧 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...

