Como inserir um texto específico no cursor ao compor uma mensagem no Outlook?
Supondo que você tenha algumas cadeias de texto específicas que são usadas com frequência ao compor a mensagem de e-mail, então, você gostaria de inserir o texto na posição atual do cursor no corpo da mensagem automaticamente, sem digitá-las manualmente repetidas vezes. 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 código VBA a seguir pode ajudá-lo a inserir uma string de texto específica ou data atual na posição do cursor, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. E então, clique inserção > 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
Nota: No código acima, ExtendOffice é o texto específico que você deseja inserir, se você precisar inserir a data atual ao invés da string de texto, por favor mude o texto neste script xSel.InsertBefore Format ("ExtendOffice") para Formato xSel.InsertBefore (agora, "DD / MM / AAAA").
3. Em seguida, salve e feche a janela de código, crie um novo e-mail e, na janela Mensagem, clique em Personalize a barra de ferramentas de acesso rápido desça e escolha Mais Comando, veja a captura de tela:
4. No Opções do Outlook caixa de diálogo, execute as seguintes operações:
(1.) Selecione Macros de Escolha o comando de suspenso;
(2.) Clique no nome da macro que você inseriu;
(3.) Em seguida, clique Adicionar botão para adicionar esta macro ao Personalize a barra de ferramentas de acesso rápido caixa de listagem.
5. E então, clique OK botão para fechar a caixa de diálogo, agora, o ícone de macro foi inserido no Personalize a barra de ferramentas de acesso rápido. Coloque o cursor onde deseja inserir o texto e, a seguir, clique neste botão de macro, o texto específico será inserido de uma vez, veja a imagem:
|
Insira um texto específico em qualquer local ao escrever a mensagem:
Com a Kutools para Outlook's Auto texto recurso, você pode criar um texto automático e, em seguida, inseri-lo em qualquer lugar ao redigir uma mensagem conforme necessário.
Kutools para Outlook: com mais de 100 suplementos úteis do Excel, grátis para testar sem limitação em 60 dias. Baixe e experimente o teste gratuito agora!
|
Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!
- Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
- Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
- Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
- Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
- Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
