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 gratuitos para a vida toda. 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 o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint