2 būdai ištraukti visus el. pašto adresus iš „Word“ dokumento ir sujungti juos paketiniam apdorojimui

Šiame straipsnyje pristatysime 2 būdus, kaip išgauti visus el. pašto adresus Word dokumente ir sujungti juos paketiniam apdorojimui.

Kartais gali tekti siųsti el. laišką keliems asmenims vienu metu. Tačiau viskas gali būti šiek tiek sudėtinga, kai jų adresai yra išsibarstę po ilgą dokumentą puslapiuose. Norint naršyti po visą dokumentą ir rasti juos po vieną, gali prireikti daug laiko. Štai kodėl norime parodyti jums greitą būdą, kaip išgauti juos visus vienu žingsniu, kad būtų galima apdoroti paketą savo pašto dėžutėje.

1 būdas: naudokite parinktį „Rasti ir pakeisti“.

1. Pirmiausia atidarykite dokumentą, kuriame yra el. pašto adresai.
2. Tada pradedame spustelėdami skirtuką „Pagrindinis“.
3. Tada pasirinkite piktogramą „Rasti“ spustelėti apverstą trikampį.
4. Išskleidžiamajame sąraše pasirinkite „Išplėstinis paieška“.
5. Dabar bus atidarytas dialogo langas „Rasti ir pakeisti“. Įsitikinkite, kad įjungtas skirtukas „Rasti“, ir teksto laukelyje „Rasti ką“ įveskite „[Az,0-9]{1,}\@[Az,0-9,\.]{1,}“.
6. Tada spustelėkite „Daugiau“, kad pamatytumėte daugiau parinkčių.
7. Tada pažymėkite laukelį „Naudoti pakaitos simbolius“, esantį „Paieškos parinktys“.
8. Spustelėkite mygtuką „Rasti“ ir pasirinkite „Pagrindinis dokumentas“.
9. Dabar galite matyti, kad visi el. pašto adresai šiame dokumente buvo paryškinti. Uždarykite dialogo langą.
10. Tada spustelėkite „Kopijuoti“ skirtuke „Pagrindinis“ esančioje grupėje „Iškarpinė“.
11. Dabar sukurkite naują „Word“ dokumentą.
12. Dešiniuoju pelės mygtuku spustelėkite naują ir pasirinkite „Palikti tik tekstą“. Pamatysite, kad visi el. pašto adresai yra įklijuoti ten stulpelyje.
13. Tada skirtuko „Pagrindinis“ grupėje „Redagavimas“ spustelėkite „Pakeisti“.
14. Skirtuke „Pakeisti“ įveskite „^p“ ir „;“ atitinkamai teksto laukeliuose „Rasti ką“ ir „Pakeisti į“.
15. Ir nepamirškite išvalyti laukelio „Naudoti pakaitos simbolius“.
16. Tada spustelėkite mygtuką „Pakeisti viską“. „Word“ parodys, kiek pakeitimų jis atliko, ir galėsite uždaryti visus atidarytus langelius. Dokumente yra elektroninio pašto adresai, atskirti kabliataškiais.
17. Galiausiai reikia nukopijuoti šiuos adresus į savo pašto dėžutę ir išsiųsti tą pačią informaciją visiems gavėjams vienu metu.

2 būdas: naudokite VBA kodus

1. Pirmiausia paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių.
2. Tada redagavimo srityje įklijuokite šiuos kodus:

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

3. Toliau paspauskite mygtuką „Vykdyti“.

Tada turėsite dar vieną naują dokumentą su visais el. pašto adresais, atskirtais kabliataškiais. Ir galėsite pradėti juos naudoti paketiniam apdorojimui pašto dėžutėje.

Išnaudokite laiką, kad atkurtumėte pažeistus failus

Tiesa, dirbdami su Word visada galite rasti netikėtumų. Nors jus stebina jo galimybės, turėtumėte saugotis galimų gedimų, kuriuos gali patirti „Word“. Viena vertus, tai sustabdo jūsų darbą. Kita vertus, „Word“ žlugimo metu gali kilti dar didesnė grėsmė. Didesnė grėsmė reiškia jūsų pažeistus failus ir nepakeičiamus duomenis.

Todėl nuolat siūlome kurti atsargines kopijas ir, svarbiausia, gauti programą, kad pataisyti Word žalą todėl negaišite laiko blaškymuisi.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls problemų sprendimo įrankis bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com