Neste artigo, apresentaremos 2 maneiras de extrair todos os endereços de e-mail em um documento do Word e concatená-los para processamento em lote.
De vez em quando, você pode ter que enviar um e-mail para várias pessoas ao mesmo tempo. No entanto, as coisas podem ficar um pouco complicadas quando seus endereços estão espalhados por um longo documento em páginas. Navegar por todo o documento e localizá-los um por um pode ser demorado. É por isso que queremos mostrar a você a maneira rápida de extrair todos eles de uma só vez para processamento em lote em sua caixa de correio.
Método 1: Use a opção “Localizar e substituir”
- Em primeiro lugar, abra o documento que contém os endereços de e-mail.
- Em seguida, começamos clicando na guia “Início”.
- Em seguida, escolha clicar no triângulo de cabeça para baixo no ícone "Localizar".
- Na lista suspensa, escolha “Localização avançada”.
- Agora você terá a caixa de diálogo “Localizar e substituir” aberta. Certifique-se de que a guia "Localizar" esteja ativada e digite "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" na caixa de texto "Localizar".
- Em seguida, clique em “Mais” para ver mais opções.
- Em seguida, marque a caixa "Usar curingas" em "Opções de pesquisa".
- Clique no botão "Localizar em" e selecione "Documento principal".
- Agora você pode ver que todos os endereços de e-mail neste documento foram destacados. Feche a caixa de diálogo.
- Em seguida, clique em “Copiar” no grupo “Área de transferência” na guia “Página inicial”.
- Agora crie um novo documento do Word.
- Clique com o botão direito do mouse no novo e escolha "Manter somente texto". Você verá que todos os endereços de e-mail foram colados na coluna.
- Em seguida, clique em “Substituir” no grupo “Edição” na guia “Página inicial”.
- Na guia “Substituir”, digite “^p” e “;” nas caixas de texto "Localizar" e "Substituir por", respectivamente.
- E lembre-se de limpar a caixa "Usar curingas".
- Em seguida, clique no botão “Substituir tudo”. O Word informará quantas substituições foram feitas e você poderá fechar todas as caixas abertas. No documento, há endereços de e-mail separados por ponto e vírgula.
- O que você precisa fazer por último é copiar esses endereços para sua caixa de correio e enviar as mesmas informações para todos os destinatários de uma só vez.
Método 2: Use códigos VBA
- Primeiramente, pressione “Alt+F11” para abrir o editor VBA.
- Em seguida, na área de edição, cole os seguintes códigos:
Sub ExtractAllEmailAddressesFromDocument()
Dim strEmailAddresses As String
' Find all email addresses in a document,and Extract them.
With ActiveDocument.Range
With.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "[A-z,0-9]{1,}\@[A-z,0-9,\.]{1,}"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
End With
Do While .Find.Found
strEmailAddresses = strEmailAddresses & .Text & ";"
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
' Open a new document to paste the email addresses.
If strEmailAddresses <> "" Then
Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
ActiveDocument.Range.Text = strEmailAddresses
End If
End Sub
- Em seguida, clique no botão "Executar".
Você terá então um novo documento com todos os endereços de e-mail, separados por ponto e vírgula. E poderá começar a usá-los para processamento em lote na caixa de entrada de e-mail.
Aproveite o tempo para recuperar arquivos danificados
É verdade que você sempre pode encontrar algumas surpresas ao trabalhar com o Word. Enquanto você está maravilhado com suas capacidades, você deve ficar atento às possíveis falhas que o Word pode sofrer. Por um lado, isso interrompe seu trabalho. Por outro lado, uma ameaça ainda maior pode ocorrer quando o Word é recolhido. E por maior ameaça queremos dizer seus arquivos comprometidos e dados insubstituíveis.
Portanto, continuamos sugerindo que você faça backups e, principalmente, que adquira um programa para reparar dano de palavra para que você não perca tempo se preocupando.
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo ferramenta de correção de problemas xls e pdf reparar produtos de software. Para mais informações visite www.datanumen.com