2 načina za izdvajanje svih adresa e-pošte iz vašeg Word dokumenta i spajanje za skupnu obradu

Podijeli sada:

U ovom ćemo vam članku predstaviti 2 načina za izdvajanje svih adresa e-pošte u Word dokumentu i njihovo spajanje za skupnu obradu.

S vremena na vrijeme, možda ćete morati poslati e-poštu većem broju osoba odjednom. Međutim, stvari mogu postati malo zamršene kada su njihove adrese razbacane po dugom dokumentu na stranicama. Kretanje cijelim dokumentom i pronalaženje jednog po jednog može oduzimati puno vremena. Zbog toga vam želimo pokazati brzi način da ih sve izdvojite jednim potezom za skupnu obradu u vašem poštanskom sandučiću.

Metoda 1: Koristite opciju "Pronađi i zamijeni".

  1. Prvo i najvažnije, otvorite dokument koji sadrži adrese e-pošte.
  2. Zatim započinjemo klikom na karticu "Početna".
  3. Zatim kliknite naopako okrenuti trokut na ikoni "Traži".
  4. Na padajućem popisu odaberite "Napredno traženje".Kliknite "Početna"->Kliknite naopako okrenuti gumb iza "Traži"->Kliknite "Napredno traženje"
  5. Sada ćete imati otvoren dijaloški okvir "Pronađi i zamijeni". Provjerite je li kartica "Traži" uključena i unesite "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" u tekstualni okvir "Pronađi što".
  6. Zatim kliknite "Više" za prikaz više opcija.Upišite nizove -> kliknite "Više"
  7. Zatim potvrdite okvir "Koristi zamjenske znakove" pod "Opcijama pretraživanja".
  8. Pritisnite gumb "Traži u" i odaberite "Glavni dokument".Označite "Koristi zamjenske znakove"->Kliknite "Pronađi u"->Odaberite "Glavni dokument"
  9. Sada možete vidjeti da su sve adrese e-pošte u ovom dokumentu označene. Zatvorite dijaloški okvir.
  10. Zatim kliknite "Kopiraj" u grupi "Međuspremnik" na kartici "Početna".Kliknite "Početna" -> Kliknite "Kopiraj"
  11. Sada izradite novi Word dokument.
  12. Desnom tipkom miša kliknite novi i odaberite "Zadrži samo tekst". Vidjet ćete da su sve adrese e-pošte zalijepljene tamo u stupcu.Odaberite "Zadrži samo tekst"
  13. Zatim kliknite "Zamijeni" u grupi "Uređivanje" pod karticom "Početna".Kliknite "Početna"->Kliknite "Zamijeni"
  14. U “Pod karticom “Zamijeni” unesite “^p” i “;” u tekstnim okvirima "Pronađi što" i "Zamijeni sa".
  15. I ne zaboravite poništiti okvir "Koristi zamjenske znakove".
  16. Zatim kliknite gumb "Zamijeni sve". Word će vam reći koliko je zamjena napravio i možete zatvoriti sve otvorene okvire. Na dokumentu su adrese e-pošte odvojene točkom i zarezom.Unesite tekstne okvire "Pronađi što" i "Zamijeni sa" ->Očisti okvir "Koristi zamjenske znakove" ->Klikni "Zamijeni sve"Adrese e-pošte odvojene točkom i zarezom
  17. Ono što trebate učiniti na kraju je kopirati te adrese u svoj poštanski sandučić i poslati iste informacije svim primateljima odjednom.

Metoda 2: Koristite VBA kodove

  1. Prvo pritisnite “Alt+F11” da biste otvorili VBA editor.
  2. Zatim na područje za uređivanje zalijepite sljedeće kodove:
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
  1. Zatim pritisnite gumb "Pokreni".Zalijepite kodove -> pritisnite "Pokreni"

Zatim ćete imati još jedan novi dokument sa svim adresama e-pošte tamo, odvojenim točka-zarezom. I možete ih početi koristiti za skupnu obradu u poštanskom sandučiću.

Učinak pokretanja VBA kodova

Iskoristite vrijeme za vraćanje oštećenih datoteka

Istina, uvijek možete pronaći neka iznenađenja kroz rad s Wordom. Iako ste zadivljeni njegovim mogućnostima, trebali biste pripaziti na moguća rušenja koja Word može pretrpjeti. S jedne strane, to zaustavlja vaš rad. S druge strane, još veća prijetnja može nastati kada se Word sruši. A pod većom prijetnjom mislimo na vaše ugrožene datoteke i nezamjenjive podatke.

Stoga vam i dalje predlažemo da napravite sigurnosne kopije i, što je najvažnije, da nabavite program za popraviti oštećenje Worda tako da nećete gubiti vrijeme na petljanje.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls alat za rješavanje problema i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.