2 mënyra për të nxjerrë të gjitha adresat e emailit nga dokumenti juaj Word dhe për t'i bashkuar ato për përpunim grupi

Në këtë artikull, ne do t'ju prezantojmë 2 mënyra për të nxjerrë të gjitha adresat e emailit në një dokument Word dhe për t'i bashkuar ato për përpunim grupor.

Herë pas here, mund t'ju duhet t'i dërgoni email disa personave në të njëjtën kohë. Megjithatë, gjërat mund të bëhen pak të ndërlikuara kur adresat e tyre shpërndahen nëpër një dokument të gjatë në faqe. Për të lundruar në të gjithë dokumentin dhe për t'i gjetur ato një nga një mund të marrë kohë. Kjo është arsyeja pse ne duam t'ju tregojmë mënyrën e shpejtë për t'i nxjerrë të gjitha ato me një lëvizje për përpunim grupor në kutinë tuaj të postës.

Metoda 1: Përdorni opsionin "Gjeni dhe zëvendësoni".

  1. Para së gjithash, hapni dokumentin që përmban adresat e email-it.
  2. Pastaj fillojmë duke klikuar në skedën "Faqja Kryesore".
  3. Pastaj zgjidhni të klikoni trekëndëshin me kokë poshtë në ikonën "Gjeni".
  4. Në listën rënëse, zgjidhni "Gjeni i avancuar".Klikoni "Home"->Klikoni butonin me kokë poshtë prapa "Gjeni"->Klikoni "Gjeni i avancuar"
  5. Tani do të keni të hapur kutinë e dialogut "Gjeni dhe zëvendësoni". Sigurohuni që skeda "Gjej" të jetë aktive dhe futni "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" në kutinë e tekstit "Gjeni çfarë".
  6. Pastaj klikoni "Më shumë" për të parë më shumë opsione.Shkruani Strings -> Kliko "Më shumë"
  7. Pastaj kontrolloni kutinë "Përdorni shenjat e egra" nën "Opsionet e kërkimit".
  8. Klikoni në butonin "Gjeni" dhe zgjidhni "Dokumenti kryesor".Check "Use wildcards"->Kliko "Find In"->Zgjidhni "Main Document"
  9. Tani mund të shihni se të gjitha adresat e emailit në këtë dokument janë theksuar. Mbyll kutinë e dialogut.
  10. Pastaj klikoni "Kopjo" në grupin "Clipboard" nën skedën "Home".Kliko "Home" -> Kliko "Kopjo"
  11. Tani krijoni një dokument të ri Word.
  12. Klikoni me të djathtën mbi të renë dhe zgjidhni "Keep Text Only". Do të shihni se të gjitha adresat e emailit janë ngjitur atje në kolonë.Zgjidhni "Mbaje vetëm tekstin"
  13. Pastaj klikoni "Replace" në grupin "Redaktimi" nën skedën "Home".Kliko "Home" -> Kliko "Zëvendëso"
  14. Në "Nën skedën "Zëvendëso", shkruani "^p" dhe ";" në kutitë e tekstit "Gjej çfarë" dhe "Zëvendëso me" përkatësisht.
  15. Dhe mos harroni të pastroni kutinë "Përdorni shenjat e egra".
  16. Pastaj klikoni në butonin "Zëvendësoni të gjitha". Word do t'ju tregojë se sa zëvendësime ka bërë dhe ju mund të mbyllni të gjitha kutitë e hapura. Në dokument janë adresat e emailit të ndara me pikëpresje.Shkruani në kutitë e tekstit "Gjeni çfarë" dhe "Zëvendëso me" -> Pastro kutinë "Përdor shenjat e egra" -> Kliko "Zëvendëso të gjitha"Adresat e emailit të ndara me pikëpresje
  17. Ajo që duhet të bëni së fundi është të kopjoni këto adresa në kutinë tuaj të postës dhe të dërgoni të njëjtin informacion për të gjithë marrësit menjëherë.

Metoda 2: Përdorni kodet VBA

  1. Së pari, shtypni "Alt+F11" për të hapur redaktorin VBA.
  2. Pastaj në zonën e redaktimit, ngjitni kodet e mëposhtme:
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. Më pas shtypni butonin "Run".Ngjit kodet -> Kliko "Run"

Pastaj do të keni një dokument tjetër të ri me të gjitha adresat e email-it atje, të ndara me pikëpresje. Dhe mund të filloni t'i përdorni ato për përpunim në grup në kutinë postare.

Efekti i ekzekutimit të kodeve VBA

Kapni kohën për të tërhequr skedarët e dëmtuar

Vërtetë, gjithmonë mund të gjesh disa surpriza duke punuar me Word. Ndërsa jeni të mahnitur nga aftësitë e tij, duhet të keni kujdes nga përplasjet e mundshme që mund të pësojë Word. Nga njëra anë, ju ndalon punën. Nga ana tjetër, një kërcënim edhe më i madh mund të nxisë kur shembet Word. Dhe me kërcënim më të madh nënkuptojmë skedarët tuaj të komprometuar dhe të dhënat e pazëvendësueshme.

Prandaj, ne vazhdojmë t'ju sugjerojmë të bëni kopje rezervë dhe, më e rëndësishmja, të merrni një program për të riparimi i dëmtimit të fjalës kështu që nuk do të humbisni kohë duke u shqetësuar.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë mjet për zgjidhjen e problemeve xls pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.