Word sənədinizdən bütün e-poçt ünvanlarını çıxarmağın və toplu emal üçün onları birləşdirməyin 2 yolu

İndi paylaş:

Bu yazıda sizə Word sənədindəki bütün e-poçt ünvanlarını çıxarmağın və toplu emal üçün birləşdirməyin 2 yolunu təqdim edəcəyik.

İndi və sonra, eyni anda birdən çox şəxsə e-poçt göndərməli ola bilərsiniz. Bununla belə, onların ünvanları səhifələrdə uzun bir sənədə səpələndikdə işlər bir az çətinləşə bilər. Bütün sənəddə naviqasiya etmək və onları bir-bir tapmaq çox vaxt apara bilər. Buna görə də biz sizə poçt qutunuzda toplu emal üçün hamısını bir hərəkətlə çıxarmağın sürətli yolunu göstərmək istəyirik.

Metod 1: "Tap və Dəyişdir" Seçimindən istifadə edin

  1. Əvvəlcə e-poçt ünvanlarını ehtiva edən sənədi açın.
  2. Daha sonra "Ana səhifə" sekmesini tıklayaraq başlayırıq.
  3. Sonra "Tap" ikonasında tərs üçbucağı vurmağı seçin.
  4. Açılan siyahıda "Ətraflı tap" seçin."Ana səhifə"->"Tap"-ın arxasındakı Alt-aşağı düyməni klikləyin->"Qabaqcıl Tap" üzərinə klikləyin
  5. İndi "Tap və dəyişdir" informasiya qutusu açıq olacaq. “Tap” nişanının aktiv olduğundan əmin olun və “Nəyi tapın” mətn qutusuna “[Az,0-9]{1,}\@[Az,0-9,\.]{1,}” daxil edin.
  6. Sonra daha çox seçim görmək üçün "Daha çox" düyməsini basın.Sətirləri yazın -> "Daha çox" düyməsini basın
  7. Sonra "Axtarış Seçimləri" altındakı "Jokerlərdən istifadə et" qutusunu yoxlayın.
  8. "Tap" düyməsini basın və "Əsas sənəd" seçin.Yoxlayın "Jokerlərdən istifadə edin" -> "Tap" düyməsini basın -> "Əsas Sənəd" seçin
  9. İndi bu sənəddəki bütün e-poçt ünvanlarının vurğulandığını görə bilərsiniz. Dialoq qutusunu bağlayın.
  10. Sonra "Ev" sekmesi altındakı "Pano" qrupunda "Kopyala" düyməsini basın."Ev"->"Kopyala" üzərinə klikləyin
  11. İndi yeni bir Word sənədi yaradın.
  12. Yenisini sağ vurun və "Yalnız mətni saxla" seçin. Bütün e-poçt ünvanlarının sütuna yapışdırıldığını görəcəksiniz."Yalnız mətni saxla" seçin
  13. Sonra "Ev" sekmesinin altındakı "Redaktə etmə" qrupunda "Əvəz et" düyməsini basın."Ev" düyməsini basın -> "Əvəz et" düyməsini basın
  14. “Əvəz et” sekmesinde “^p” və “;” daxil edin. müvafiq olaraq “Nəyi tap” və “Əvəz et” mətn qutularında.
  15. Və “Jokerlərdən istifadə et” qutusunu silməyi unutmayın.
  16. Sonra "Hamısını dəyişdirin" düyməsini basın. Word sizə nə qədər dəyişdirmə etdiyini söyləyəcək və bütün açıq qutuları bağlaya bilərsiniz. Sənəddə nöqtəli vergüllə ayrılmış e-poçt ünvanları var."Nəyi tapın" və "Əvəz et" Mətn Qutularına daxil edin -> "Jokerlərdən istifadə et" xanasını silin -> "Hamısını dəyişdir" üzərinə klikləyinNöqtəli vergüllə ayrılmış e-poçt ünvanları
  17. Nəhayət etməli olduğunuz bu ünvanları poçt qutunuza köçürmək və eyni məlumatı bütün qəbuledicilər üçün eyni anda göndərməkdir.

Metod 2: VBA kodlarından istifadə edin

  1. Əvvəlcə VBA redaktorunu açmaq üçün “Alt+F11” düymələrini basın.
  2. Sonra redaktə sahəsinə aşağıdakı kodları yapışdırın:
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. Sonra "Çalış" düyməsini basın.Kodları yapışdırın -> "Çalış" düyməsini basın

Daha sonra bütün e-poçt ünvanlarının nöqtəli vergüllə ayrılmış başqa bir yeni sənədiniz olacaq. Və onları poçt qutusunda toplu emal üçün istifadə etməyə başlaya bilərsiniz.

Çalışan VBA Kodlarının Təsiri

Zədələnmiş faylları bərpa etmək üçün vaxtdan istifadə edin

Düzdür, Word ilə işləyərək həmişə sürprizlər tapa bilərsiniz. Onun imkanlarına heyran olsanız da, Word-ün əziyyət çəkə biləcəyi mümkün qəzalara diqqət yetirməlisiniz. Bir tərəfdən işinizi dayandırır. Digər tərəfdən, Word çökdükdə daha da böyük təhlükə yarana bilər. Və daha böyük təhlükə dedikdə, oğurlanmış fayllarınızı və əvəzolunmaz məlumatlarınızı nəzərdə tuturuq.

Buna görə də, sizə ehtiyat nüsxələrini yaratmağı və ən əsası, bir proqram əldə etməyi məsləhət görürük Word zədəsini təmir edin ona görə də ətrafınızda təlaşa vaxt itirməyəcəksiniz.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls problem həlli vasitəsi və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com

İndi paylaş:

Şərhlər bağlıdır.