Amigos, eu recebi um documento com cerca de 100 páginas e queria pegar somente os e-mails para enviar o meu currículo para essas empresas, porém como eram muitos e-mail, gostaria de visualizar o site dos mesmos e enviar o meu currículo para eles, então fiz uma macro para selecionar somente os e-mail em questão. O código esta abaixo, é bem fácil!
Sub SelecionarEmail()
Dim rx As String
Dim Exp As String
Dim SetMatch As String
Exp = "^[_a-zA-Z0-9-]+(\.[_a-zA-Z0-9-]+)*@[a-zA-Z0-9-]+ _
(\.[a-zA-Z0-9-]+)*(\.[a-zA-Z]{2,6})$"
Set rx = New regexp
rx.Pattern = Exp
rx.IgnoreCase = True
rx.Global = True
Set SetMatch = rx.Execute(ThisDocument.Range.Text)
For Each Match In Matches
ThisDocument.Range(Match.FirstIndex, _
Match.FirstIndex + Len(Match.Value)).Bold = True
Next
End Sub
Veja que é bem simples! Você poderá modificar para exibir os dados aonde vc quiser, seja num msgbox mesmoa… estou tentando fazer a criação de um .TXT com os e-mails!!! 
t+
Léo
