Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Vitor Hugo Martins

Criação script vb outlook 2010

Recommended Posts

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
 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×