Үгийн баримт бичгээс бүх имэйл хаягийг гаргаж авах, тэдгээрийг багцлан боловсруулах 2 арга

Одоо хуваалцах:

Энэ нийтлэлд бид Word баримт бичигт бүх имэйл хаягуудыг задлах, тэдгээрийг багцлан боловсруулах 2 аргыг танилцуулах болно.

Одоо та дараа нь олон хүн рүү нэг дор имэйл илгээх шаардлагатай болж магадгүй юм. Гэсэн хэдий ч, хаяг нь хуудсан дээр урт баримт бичгийн эргэн тойронд тархаж байх үед зүйлүүд бага зэрэг төвөгтэй байдаг. Баримтыг бүхэлд нь чиглүүлж, тэдгээрийг нэг нэгээр нь олох нь цаг хугацаа их шаарддаг. Тиймээс бид таны шуудангийн хайрцагт багц боловсруулалт хийхэд зориулж бүгдийг нь нэг алхамаар задлах хурдан аргыг танд харуулахыг хүсч байна.

Арга 1: "Хайх, солих" сонголтыг ашиглана уу

  1. Юуны өмнө имэйл хаяг агуулсан баримт бичгийг нээнэ үү.
  2. Дараа нь бид "Нүүр хуудас" таб дээр дарж эхэлнэ.
  3. Дараа нь "Хайх" дүрс дээр дээш доош нь харуулсан гурвалжин дээр дарна уу.
  4. Унтраах жагсаалтаас "Нарийвчилсан хайлт" -ыг сонгоно уу."Нүүр" дээр дарна уу - "Хайх" -ын ард талд байгаа товчлуур дээр дарна -> "Нарийвчилсан хайлт" дээр дарна уу.
  5. Одоо та "Олоод солих" харилцах цонхыг нээх болно. “Хайх” таб асаалттай байгаа эсэхийг шалгаад “Юу олох” текст хайрцагт “[Az, 0-9] {1,} \ @ [Az, 0-9, \.] {1,}” - г оруулна уу.
  6. Дараа нь бусад сонголтыг харахын тулд "Илүү" дээр дарна уу.Мөрүүдийг бичнэ үү -> "Илүү" дээр дарна уу
  7. Дараа нь "Хайлтын сонголтууд" -ын доор "Орлуулах тэмдэг ашиглах" хайрцгийг шалгана уу.
  8. "Find In" товчийг дарж "Үндсэн баримт бичиг" -ийг сонгоно уу."Ашиглах тэмдэгтийг шалгах" -> "Хайх" дээр дарна уу -> "Үндсэн баримт бичиг" -ийг сонгоно уу
  9. Одоо та энэ баримт бичигт байгаа бүх имэйл хаягийг тодруулж харах боломжтой болно. Харилцах цонхыг хаа.
  10. Дараа нь "Нүүр хуудас" цонхны "Clipboard" бүлгийн "Хуулах" дээр дарна уу."Нүүр" дээр дарна уу -> "Хуулах" дээр дарна уу
  11. Одоо Word-ийн шинэ баримт бичгийг үүсгээрэй.
  12. Шинэ дээр хулганы баруун товчийг дараад "Зөвхөн текстийг хадгалах" -ыг сонгоно уу. Баганд бүх имэйл хаягийг наасан байхыг харах болно."Зөвхөн текст хадгалах" -ыг сонгоно уу
  13. Дараа нь "Нүүр хуудас" таб дээрх "Засварлах" бүлэгт байгаа "Солих" дээр дарна уу."Нүүр" дээр дарна уу -> "Орлуулах" дээр дарна уу
  14. “Солих” табын доор “^ p” ба “;” гэж оруулна уу. "Юу олох", "Орлуулах" текст хайрцгуудад тус тус орно уу.
  15. Мөн "орлуулах тэмдэг ашиглах" хайрцгийг цэвэрлэхээ мартуузай.
  16. Дараа нь "Бүгдийг солих" товчийг дарна уу. Үг хичнээн солигдсоныг танд хэлэх бөгөөд та бүх нээлттэй хайрцгийг хааж болно. Баримт бичигт цэг таслалаар тусгаарласан имэйл хаягууд байна."Юу олох", "Орлуулах" гэсэн текстийн хайрцагт оруулна уу -> Тэмдэгт "орлуулалтыг ашиглана уу" гэсэн хайрцагт оруулна -> "Бүгдийг солих" дээр дарна ууЦэг таслалаар тусгаарласан имэйл хаягууд
  17. Хамгийн сүүлд танд хэрэгтэй зүйл бол эдгээр хаягийг шуудангийн хайрцгандаа хуулж, бүх хүлээн авагчдад ижил мэдээллийг нэг дор илгээх явдал юм.

Арга 2: VBA код ашиглах

  1. Нэгдүгээрт, VBA редакторыг нээхийн тулд “Alt + F11” товчийг дарна уу.
  2. Дараа нь засах хэсэгт дараахь кодыг наа.
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. Дараа нь "Run" товчийг дарна уу.Кодыг буулгах -> "Run" дээр дарна уу

Дараа нь та цэг таслалаар тусгаарлагдсан бүх имэйл хаягуудтай өөр нэг шинэ баримт бичигтэй болно. Мөн та тэдгээрийг шуудангийн хайрцагт багцаар боловсруулахад ашиглаж эхлэх боломжтой.

VBA код ажиллуулахад үзүүлэх нөлөө

Гэмтсэн файлуудыг олж авах цаг хугацааг ашигла

Үгтэй ажиллах замаар та гэнэтийн гэнэтийн зүйлээ үргэлж олж чаддаг нь үнэн. Та түүний чадавхид гайхаж байгаа ч гэсэн Word-т учирч болзошгүй ослыг анхаарч үзэх хэрэгтэй. Энэ нь нэг талаар таны ажлыг зогсоодог. Нөгөө талаас, Word нурахад илүү их аюул заналхийлж болно. Илүү их аюул заналхийллээр бид таны эвдэрсэн файлууд, орлуулшгүй өгөгдлийг хэлнэ.

Тиймээс бид танд нөөцлөлт хийхийг, хамгийн чухал нь програм хангамж авахыг санал болгож байна Үг гэмтлийг засах Тиймээс та шуугиан дэгдээгээд цаг хугацаа алдахгүй байх болно.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls асуудлыг засах хэрэгсэл болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com

Одоо хуваалцах:

Тайлбарууд нь хаалттай байна.