2 Mga paraan upang makuha ang Lahat ng Mga Email Address mula sa Iyong Dokumento ng Salita at Pagsamahin ang mga ito para sa Pagproseso ng Batch

Ipamahagi ngayon:

Sa artikulong ito, ipakilala namin sa iyo ang 2 mga paraan upang makuha ang lahat ng mga email address sa isang dokumento ng Word at pagsamahin ang mga ito para sa pagproseso ng batch.

Ngayon at pagkatapos, maaaring kailangan mong mag-email sa maraming tao nang sabay-sabay. Gayunpaman, ang mga bagay ay maaaring makakuha ng isang maliit na nakakalito kapag ang kanilang mga address ay nagkakalat sa paligid ng isang mahabang dokumento sa mga pahina. Upang mag-navigate sa buong dokumento at hanapin ang mga ito nang paisa-isa ay maaaring maging matagal. Ito ang dahilan kung bakit nais naming ipakita sa iyo ang mabilis na paraan upang makuha ang lahat ng mga ito sa isang paglipat para sa pagproseso ng batch sa iyong mail box.

Paraan 1: Gumamit ng Opsyon na "Hanapin at Palitan"

  1. Una sa lahat, buksan ang dokumentong naglalaman ng mga email address.
  2. Pagkatapos ay magsisimula tayo sa pamamagitan ng pag-click sa tab na "Home".
  3. Susunod na piliing i-click ang nakabaligtad na tatsulok sa icon na "Hanapin".
  4. Sa drop-down list, piliin ang "Advanced Find".I-click ang "Home" -> I-click ang Upside-down Button sa likod ng "Find" -> I-click ang "Advanced Find"
  5. Ngayon ay buksan mo ang dialog box na "Hanapin at Palitan". Tiyaking nakabukas ang tab na "Hanapin" at ipasok ang "[Az, 0-9] {1,} \ @ [Az, 0-9, \.] {1,}" sa text box na "Hanapin kung ano."
  6. Susunod na pag-click sa "Higit Pa" upang matingnan ang higit pang mga pagpipilian.Type Strings -> I-click ang "Higit Pa"
  7. Pagkatapos lagyan ng tsek ang kahon na "Gumamit ng mga wildcard" sa ilalim ng "Mga Pagpipilian sa Paghahanap".
  8. I-click ang pindutang "Hanapin Sa" at piliin ang "Pangunahing Dokumento".Suriin ang "Gumamit ng mga wildcard" -> I-click ang "Maghanap Sa" -> Piliin ang "Pangunahing Dokumento"
  9. Ngayon ay makikita mo na ang lahat ng mga email address sa dokumentong ito ay nai-highlight. Isara ang kahon ng dayalogo.
  10. Susunod na pag-click sa "Kopyahin" sa pangkat na "Clipboard" sa ilalim ng tab na "Home".I-click ang "Home" -> I-click ang "Kopyahin"
  11. Lumikha ngayon ng isang bagong dokumento ng Word.
  12. Mag-right click sa bago at piliin ang "Panatilihin ang Text Lamang". Makikita mo ang lahat ng mga email address na na-paste doon sa haligi.Piliin ang "Panatilihin ang Teksto Lamang"
  13. Pagkatapos i-click ang "Palitan" sa pangkat na "Pag-edit" sa ilalim ng tab na "Home".I-click ang "Home" -> I-click ang "Palitan"
  14. Sa tab na "Sa ilalim ng" Palitan ", ipasok ang" ^ p "at"; " sa mga kahon ng teksto na "Hanapin kung ano" at "Palitan ng".
  15. At tandaan na i-clear ang kahon na "Gumamit ng mga wildcard".
  16. Pagkatapos i-click ang pindutang "Palitan Lahat". Sasabihin sa iyo ng salita kung gaano karaming mga kapalit ang ginawa nito at maaari mong isara ang lahat ng mga bukas na kahon. Sa dokumento ay may mga email address na pinaghihiwalay ng mga semicolon.Ipasok ang "Hanapin kung ano" at "Palitan ng" Mga Text Box -> I-clear "Gumamit ng mga wildcard" Kahon -> I-click ang "Palitan Lahat"Mga Email Address na Pinaghihiwalay ng mga Semicolons
  17. Ang kailangan mong gawin sa wakas ay kopyahin ang mga address na ito sa iyong mail box at ipadala ang parehong impormasyon para sa lahat ng mga tumatanggap nang sabay-sabay.

Paraan 2: Gumamit ng mga VBA Code

  1. Una, pindutin ang "Alt + F11" upang buksan ang VBA editor.
  2. Pagkatapos sa lugar ng pag-edit, i-paste ang mga sumusunod na code:
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. Susunod na pindutin ang pindutang "Run".I-paste ang Mga Code -> Pindutin ang "Run"

Pagkatapos ay magkakaroon ka ng isa pang bagong dokumento na naglalaman ng lahat ng email address doon, na pinaghihiwalay ng mga semicolon. At maaari mo nang simulang gamitin ang mga ito para sa batch processing sa mail box.

Epekto ng Pagpapatakbo ng Mga Code ng VBA

Sakupin ang oras upang makuha ang mga nasirang file

Totoo, palagi kang makakahanap ng ilang mga sorpresa sa pamamagitan ng pakikipagtulungan sa Word. Habang namamangha ka sa mga kakayahan nito, dapat mong bantayan ang mga posibleng pag-crash na maaaring magdusa ng Salita. Sa isang banda, pinahinto nito ang iyong trabaho. Sa kabilang banda, ang isang mas malaking banta ay maaaring mag-prompt kapag bumagsak ang Word. At sa pamamagitan ng mas malaking banta ibig sabihin namin ang iyong nakompromisong mga file at hindi mapapalitan na data.

Kaya naman, patuloy naming iminumungkahi na gumawa ka ng mga backup at higit sa lahat, kumuha ng programa para ayusin ang pagkasira ng salita kaya hindi mo sasayangin ang oras sa pag-abala sa paligid.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang xls tool sa pag-aayos ng problema at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa

Ipamahagi ngayon:

Mga komento ay sarado.