Selles artiklis tutvustame teile kahte võimalust kõigi Wordi dokumendis olevate e-posti aadresside ekstraktimiseks ja nende pakktöötluseks liitmiseks.
Aeg-ajalt peate võib-olla saatma meili korraga mitmele inimesele. Asjad võivad aga muutuda pisut keeruliseks, kui nende aadressid on lehekülgede kaupa pikas dokumendis laiali. Kogu dokumendis navigeerimine ja nende ükshaaval leidmine võib olla aeganõudev. Seetõttu tahame teile näidata kiiret viisi, kuidas need kõik ühe liigutusega välja võtta, et saaksite oma postkastis paketttöötlust teha.
1. meetod: kasutage valikut „Otsi ja asenda”.
- Kõigepealt avage dokument, mis sisaldab e-posti aadresse.
- Seejärel alustame klõpsates vahekaarti „Avaleht”.
- Järgmisena klõpsake ikoonil „Leia” tagurpidi kolmnurka.
- Valige rippmenüüst "Täpsem otsing".
- Nüüd on teil avatud dialoogiboks "Otsi ja asenda". Veenduge, et vahekaart „Otsi” oleks sisse lülitatud, ja sisestage tekstikasti „Otsi mis” „[Az,0-9]{1,}\@[Az,0-9,\.]{1,}”.
- Järgmisena klõpsake nuppu "Veel", et näha rohkem valikuid.
- Seejärel märkige jaotises "Otsinguvalikud" ruut "Kasuta metamärke".
- Klõpsake nuppu "Otsi" ja valige "Põhidokument".
- Nüüd näete, et kõik selles dokumendis olevad e-posti aadressid on esile tõstetud. Sulgege dialoogiboks.
- Järgmisena klõpsake vahekaardi "Kodu" jaotises "Lõikelaud" nuppu "Kopeeri".
- Nüüd looge uus Wordi dokument.
- Paremklõpsake uuel ja valige "Säilita ainult tekst". Näete, et kõik e-posti aadressid on sinna veergu kleebitud.
- Seejärel klõpsake vahekaardi "Kodu" all "Redigeerimine" rühmas "Asenda".
- Sisestage vahekaardile „Asenda” „^p” ja „;” tekstikastides "Leia mida" ja "Asenda millega".
- Ärge unustage tühjendada ruut „Kasuta metamärke”.
- Seejärel klõpsake nuppu "Asenda kõik". Word ütleb teile, kui palju asendusi see on teinud, ja saate sulgeda kõik avatud kastid. Dokumendil on semikooloniga eraldatud meiliaadressid.
- Viimaseks peate need aadressid oma postkasti kopeerima ja saatma sama teabe korraga kõigile vastuvõtjatele.
2. meetod: kasutage VBA koode
- Esiteks vajutage VBA redaktori avamiseks klahvikombinatsiooni Alt + F11.
- Seejärel kleepige redigeerimisalale järgmised koodid:
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
- Järgmisena klõpsake nuppu "Käivita".
Seejärel on teil uus dokument, kus on kõik meiliaadressid, eraldatud semikoolonitega. Ja saate neid postkastis partiitöötluseks kasutama hakata.
Kasutage aega kahjustatud failide taastamiseks
Tõsi, Wordiga töötades võib alati leida üllatusi. Kuigi olete selle võimalustest üllatunud, peaksite olema ettevaatlik võimalike krahhide suhtes, mida Word võib kannatada. Ühest küljest peatab see teie töö. Teisest küljest võib Wordi kokkuvarisemisel esile kutsuda veelgi suurem oht. Suurema ohu all peame silmas teie ohustatud faile ja asendamatuid andmeid.
Seetõttu soovitame teil pidevalt varukoopiaid teha ja mis kõige tähtsam, hankida programm, mis Wordi kahjustuste parandamine nii et te ei raiska aega askeldamisele.
Autori sissejuhatus:
Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xls-i probleemide lahendamise tööriist ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom