2 Cara Mengekstrak Semua Alamat E-mel dari Dokumen Word Anda dan Gabungkannya untuk Pemprosesan Kumpulan

Kongsi Sekarang:

Dalam artikel ini, kami akan memperkenalkan anda 2 cara untuk mengekstrak semua alamat e-mel dalam dokumen Word dan menggabungkannya untuk pemprosesan kelompok.

Sekarang dan kemudian, anda mungkin perlu menghantar e-mel kepada berbilang orang pada satu masa. Walau bagaimanapun, perkara boleh menjadi sedikit rumit apabila alamat mereka berselerak di sekitar dokumen panjang dalam halaman. Untuk menavigasi keseluruhan dokumen dan mencarinya satu demi satu boleh memakan masa. Itulah sebabnya kami ingin menunjukkan kepada anda cara cepat untuk mengekstrak kesemuanya dalam satu langkah untuk pemprosesan kelompok dalam peti mel anda.

Kaedah 1: Gunakan Pilihan "Cari dan Ganti"

  1. Pertama sekali, buka dokumen yang mengandungi alamat e-mel.
  2. Kemudian kita mulakan dengan mengklik tab "Laman Utama".
  3. Seterusnya pilih untuk mengklik segi tiga terbalik pada ikon "Cari".
  4. Pada senarai juntai bawah, pilih "Cari Terperinci".Klik "Rumah"->Klik Butang Terbalik di belakang "Cari"->Klik "Cari Lanjutan"
  5. Kini anda akan membuka kotak dialog "Cari dan Ganti". Pastikan tab "Cari" dihidupkan dan masukkan "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" ke dalam kotak teks "Cari apa".
  6. Seterusnya klik "Lagi" untuk melihat lebih banyak pilihan.Taip Rentetan ->Klik "Lagi"
  7. Kemudian tandai kotak "Gunakan kad bebas" di bawah "Pilihan Carian".
  8. Klik butang "Cari Dalam" dan pilih "Dokumen Utama".Semak "Gunakan kad bebas"->Klik "Cari Dalam"->Pilih "Dokumen Utama"
  9. Kini anda boleh melihat semua alamat e-mel dalam dokumen ini telah diserlahkan. Tutup kotak dialog.
  10. Seterusnya klik "Salin" dalam kumpulan "Papan Klip" di bawah tab "Laman Utama".Klik "Rumah" -> Klik "Salin"
  11. Sekarang buat dokumen Word baharu.
  12. Klik kanan pada yang baharu dan pilih "Keep Text Only". Anda akan melihat semua alamat e-mel ditampal di sana dalam lajur.Pilih "Simpan Teks Sahaja"
  13. Kemudian klik "Ganti" dalam kumpulan "Mengedit" di bawah tab "Laman Utama".Klik "Laman Utama" -> Klik "Ganti"
  14. Dalam "Di bawah tab "Ganti", masukkan "^p" dan ";" dalam kotak teks "Cari apa" dan "Ganti dengan" masing-masing.
  15. Dan ingat untuk mengosongkan kotak "Gunakan kad bebas".
  16. Kemudian klik butang "Ganti Semua". Word akan memberitahu anda berapa banyak penggantian yang telah dibuat dan anda boleh menutup semua kotak yang terbuka. Pada dokumen tersebut terdapat alamat e-mel yang dipisahkan dengan koma bertitik.Masukkan dalam "Cari apa" dan "Ganti dengan" Kotak Teks -> Kosongkan Kotak "Gunakan kad bebas" -> Klik "Ganti Semua"Alamat E-mel Dipisahkan oleh Titik Bertitik
  17. Apa yang anda perlu lakukan terakhir ialah menyalin alamat ini ke peti mel anda dan menghantar maklumat yang sama untuk semua penerima sekaligus.

Kaedah 2: Gunakan Kod VBA

  1. Pertama, tekan "Alt+F11" untuk membuka editor VBA.
  2. Kemudian pada kawasan pengeditan, tampalkan kod berikut:
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. Seterusnya tekan butang "Jalankan".Tampal Kod -> Tekan "Jalankan"

Anda kemudian akan mempunyai satu lagi dokumen baharu dengan semua alamat e-mel di sana, dipisahkan oleh titik koma. Dan anda boleh mula menggunakannya untuk pemprosesan kelompok dalam kotak mel.

Kesan Menjalankan Kod VBA

Rebutlah Masa untuk Mengambil Fail Yang Rosak

Benar, anda sentiasa boleh menemui beberapa kejutan melalui bekerja dengan Word. Walaupun anda kagum dengan keupayaannya, anda harus berhati-hati dengan kemungkinan ranap yang boleh dialami oleh Word. Di satu pihak, ia menghentikan kerja anda. Sebaliknya, ancaman yang lebih besar boleh digesa apabila Word runtuh. Dan dengan ancaman yang lebih besar yang kami maksudkan ialah fail anda yang terjejas dan data yang tidak boleh ditukar ganti.

Oleh itu, kami terus mencadangkan anda untuk membuat sandaran dan yang paling penting, mendapatkan program untuk membaiki kerosakan Word jadi anda tidak akan membuang masa membebel.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat penyelesaian masalah xls dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com

Kongsi Sekarang:

Ruangan komen telah ditutup.