Note: The other languages of the website are Google-translated. Back to English

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:

doc insere texto no cursor 1

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.

doc insere texto no cursor 2

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:

doc insere texto no cursor 3


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.

doc insere texto no cursor 4

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.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos