Ir ao conteúdo
  • Cadastre-se

Criação script vb outlook 2010


Posts recomendados

Pessoal, preciso d ajuda, gostaria de criar um macro/script no outlook 2010 para que que ele selecione copie e substitua o texto a ser enviado na mensagem. No word o script ficou como abaixo, mas no outlook não sei como fazer.

 

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = vbTab
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.MoveUp Unit:=wdParagraph, Count:=3
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=4, Extend:=wdExtend
    Selection.MoveDown Unit:=wdLine, Count:=5, Extend:=wdExtend
    Selection.Copy
End Sub
 

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...