În acest articol, vă vom prezenta 2 moduri de a extrage toate adresele de e-mail dintr-un document Word și de a le concatena pentru procesarea în lot.
Din când în când, poate fi necesar să trimiteți e-mailuri către mai multe persoane simultan. Cu toate acestea, lucrurile pot deveni puțin complicate atunci când adresele lor sunt împrăștiate în jurul unui document lung în pagini. Navigarea în întregul document și găsirea acestora unul câte unul poate fi consumatoare de timp. Acesta este motivul pentru care vrem să vă arătăm modalitatea rapidă de a le extrage pe toate într-o singură mișcare pentru procesarea în lot în căsuța dvs. poștală.
Metoda 1: Folosiți opțiunea „Găsiți și înlocuiți”.
- În primul rând, deschideți documentul care conține adresele de e-mail.
- Apoi începem prin a face clic pe fila „Acasă”.
- Apoi alegeți să faceți clic pe triunghiul cu susul în jos pe pictograma „Găsiți”.
- În lista derulantă, alegeți „Găsire avansată”.
- Acum veți avea deschisă caseta de dialog „Găsiți și înlocuiți”. Asigurați-vă că fila „Găsiți” este activată și introduceți „[Az,0-9]{1,}\@[Az,0-9,\.]{1,}” în caseta de text „Găsiți ce”.
- Apoi faceți clic pe „Mai multe” pentru a vedea mai multe opțiuni.
- Apoi bifați caseta „Utilizați caractere joker” sub „Opțiuni de căutare”.
- Faceți clic pe butonul „Find In” și selectați „Main Document”.
- Acum puteți vedea că toate adresele de e-mail din acest document au fost evidențiate. Închideți caseta de dialog.
- Apoi faceți clic pe „Copiere” în grupul „Clipboard” din fila „Acasă”.
- Acum creați un nou document Word.
- Faceți clic dreapta pe cel nou și alegeți „Păstrați doar text”. Veți vedea că toate adresele de e-mail sunt lipite acolo în coloană.
- Apoi faceți clic pe „Înlocuire” în grupul „Editare” din fila „Acasă”.
- În fila „Înlocuiți”, introduceți „^p” și „;” în casetele de text „Găsiți ce” și, respectiv, „Înlocuiți cu”.
- Și nu uitați să ștergeți caseta „Folosiți caractere metalice”.
- Apoi faceți clic pe butonul „Înlocuiește tot”. Word vă va spune câte înlocuiri a făcut și puteți închide toate cutiile deschise. Pe document sunt adrese de e-mail separate prin punct și virgulă.
- Ceea ce trebuie să faceți în sfârșit este să copiați aceste adrese în căsuța dvs. poștală și să trimiteți aceleași informații pentru toți destinatarii simultan.
Metoda 2: Utilizați coduri VBA
- În primul rând, apăsați „Alt+F11” pentru a deschide editorul VBA.
- Apoi, în zona de editare, lipiți următoarele coduri:
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
- Apoi apăsați butonul „Run”.
Veți avea apoi un alt document nou cu toate adresele de e-mail, separate prin punct și virgulă. Și le puteți începe să le utilizați pentru procesarea în lot în căsuța poștală.
Profitați de timp pentru a recupera fișierele deteriorate
Adevărat, puteți găsi întotdeauna câteva surprize lucrând cu Word. În timp ce ești uimit de capacitățile sale, ar trebui să fii atent la posibilele accidente pe care le poate suferi Word. Pe de o parte, vă oprește munca. Pe de altă parte, o amenințare și mai mare poate provoca atunci când Word se prăbușește. Și prin amenințare mai mare ne referim la fișierele dvs. compromise și datele de neînlocuit.
Prin urmare, vă sugerăm în continuare să faceți copii de rezervă și, cel mai important, să vă procurați un program pentru reparați deteriorarea Word ca să nu pierzi timpul făcându-te.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv instrument de rezolvare a problemelor xls și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com