သင့် Word Document မှ အီးမေးလ်လိပ်စာများအားလုံးကို ထုတ်ယူပြီး Batch Processing အတွက် ၎င်းတို့ကို ပေါင်းစပ်ရန် နည်းလမ်း 2 ခု

ယခုမျှဝေပါ-

ဤဆောင်းပါးတွင်၊ သင့်အား Word document တစ်ခုတွင် အီးမေးလ်လိပ်စာအားလုံးကို ထုတ်ယူရန်နှင့် batch processing အတွက် ၎င်းတို့ကို ပေါင်းစပ်ရန် နည်းလမ်း 2 ခုကို မိတ်ဆက်ပေးပါမည်။

ယခုနှင့်ထို့နောက်၊ သင်သည် လူများစွာထံ တစ်ကြိမ်တည်း အီးမေးလ်ပို့ရပေမည်။ သို့သော်၊ ၎င်းတို့၏လိပ်စာများသည် စာမျက်နှာရှည်ကြီးတစ်ခုတွင် စာရွက်စာတမ်းရှည်များ ပြန့်ကျဲနေသောအခါတွင် အရာများသည် အနည်းငယ်ရှုပ်ထွေးနိုင်သည်။ စာရွက်စာတမ်းတစ်ခုလုံးကို ရှာဖွေပြီး ၎င်းတို့ကို တစ်ခုပြီးတစ်ခုရှာရန် အချိန်ကုန်နိုင်သည်။ ထို့ကြောင့် သင့်မေးလ်ဘောက်စ်ရှိ အသုတ်လိုက်လုပ်ဆောင်ခြင်းအတွက် ၎င်းတို့အားလုံးကို တစ်ချက်တည်းထုတ်ရန် အမြန်နည်းလမ်းကို သင့်အား ပြသလိုခြင်းဖြစ်ပါသည်။

နည်းလမ်း 1- "ရှာဖွေပြီး အစားထိုးရန်" ရွေးချယ်မှုကို အသုံးပြုပါ။

  1. ပထမဦးစွာ အီးမေးလ်လိပ်စာများပါရှိသော စာရွက်စာတမ်းကိုဖွင့်ပါ။
  2. ထို့နောက် “Home” tab ကို နှိပ်ခြင်းဖြင့် စတင်ပါ။
  3. ထို့နောက် “Find” အိုင်ကွန်ရှိ ဇောက်ထိုးတြိဂံကို နှိပ်ရန် ရွေးချယ်ပါ။
  4. drop-down list တွင် “Advanced Find” ကို ရွေးပါ။"Home"->"Find" နောက်ကွယ်ရှိ ဇောက်ထိုးခလုတ်ကို နှိပ်ပါ -> "Advanced Find" ကိုနှိပ်ပါ။
  5. ယခုတွင် သင်သည် "Find and Replace" dialog box ကိုဖွင့်ရပါမည်။ “Find” တက်ဘ်ကို ဖွင့်ထားကြောင်း သေချာစေပြီး “[Az,0-9]{1,}\@[Az,0-9,\.]{1,}” ကို “Find what” စာသားအကွက်ထဲသို့ ထည့်ပါ။
  6. နောက်ထပ်ရွေးချယ်စရာများကိုကြည့်ရှုရန် "နောက်ထပ်" ကိုနှိပ်ပါ။စာကြောင်းများရိုက်ထည့်ပါ -> "နောက်ထပ်" ကိုနှိပ်ပါ။
  7. ထို့နောက် “Search Options” အောက်ရှိ “Use wildcards” အကွက်ကို အမှန်ခြစ်ပါ။
  8. “Find In” ခလုတ်ကိုနှိပ်ပြီး “Main Document” ကိုရွေးချယ်ပါ။"Use wildcards"-> "Find In" ကိုနှိပ်ပါ-> "Main Document" ကို ရွေးပါ
  9. ယခု ဤစာရွက်စာတမ်းရှိ အီးမေးလ်လိပ်စာများအားလုံးကို မီးမောင်းထိုးပြထားသည်ကို သင်တွေ့မြင်နိုင်ပါပြီ။ dialog box ကိုပိတ်ပါ။
  10. ထို့နောက် “Home” တက်ဘ်အောက်ရှိ “ကလစ်ဘုတ်” အုပ်စုရှိ “ကော်ပီ” ကို နှိပ်ပါ။"Home"->"Copy" ကိုနှိပ်ပါ။
  11. ယခု Word document အသစ်တစ်ခုကို ဖန်တီးလိုက်ပါ။
  12. အသစ်ပေါ်တွင် right click နှိပ်ပြီး "Keep Text Only" ကိုရွေးချယ်ပါ။ အီးမေးလ်လိပ်စာအားလုံးကို ကော်လံတွင် ကူးထည့်ထားသည်ကို တွေ့ရပါမည်။"Keep Text only" ကို ရွေးပါ
  13. ထို့နောက် "ပင်မ" တက်ဘ်အောက်ရှိ "တည်းဖြတ်ခြင်း" အုပ်စုရှိ "အစားထိုး" ကိုနှိပ်ပါ။"Home"->"Replace" ကိုနှိပ်ပါ။
  14. “Replace” တက်ဘ်အောက်တွင် “^p” နှင့် “;” ဟု ရိုက်ထည့်ပါ။ “Find what” နှင့် “Replace with” စာသားအကွက်များတွင် အသီးသီး။
  15. ပြီးလျှင် “Use wildcards” အကွက်ကို ရှင်းလင်းရန် မမေ့ပါနှင့်။
  16. ထို့နောက် "Replace All" ခလုတ်ကိုနှိပ်ပါ။ Word သည် ၎င်းတွင် အစားထိုးမှု မည်မျှပြုလုပ်ထားသည်ကို ပြောပြမည်ဖြစ်ပြီး သင်ဖွင့်ထားသော သေတ္တာအားလုံးကို ပိတ်နိုင်သည်။ စာရွက်စာတမ်းပေါ်တွင် semicolon များဖြင့် ခြားထားသော အီးမေးလ်လိပ်စာများရှိသည်။"Find what" နှင့် "Replace with" Text Boxes -> Clear "Use wildcards" Box -> "Replace All" ကိုနှိပ်ပါ။Semicolons များဖြင့် ခြားထားသော အီးမေးလ်လိပ်စာများ
  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" ကိုနှိပ်ပါ

ထို့နောက် semicolons များဖြင့် ခွဲထားသော အီးမေးလ်လိပ်စာအားလုံးပါသည့် နောက်ထပ်စာရွက်စာတမ်းအသစ်တစ်ခု ရရှိမည်ဖြစ်သည်။ ထို့နောက် ၎င်းတို့ကို မေးလ်ဘောက်စ်တွင် batch processing အတွက် စတင်အသုံးပြုနိုင်ပါပြီ။

VBA ကုဒ်များလုပ်ဆောင်ခြင်း၏အကျိုးသက်ရောက်မှု

ပျက်စီးနေသောဖိုင်များကိုပြန်လည်ရယူရန်အချိန်ကိုယူပါ။

မှန်ပါသည်၊ သင်သည် Word နှင့်လုပ်ဆောင်ခြင်းဖြင့် အံ့အားသင့်စရာအချို့ကို အမြဲတွေ့နိုင်သည်။ ၎င်း၏စွမ်းရည်များကြောင့် သင်အံ့အားသင့်နေချိန်တွင် Word သည် ထိခိုက်နိုင်ချေရှိသော ပျက်စီးမှုများအတွက် သတိထားသင့်သည်။ တစ်ဖက်မှာက မင်းရဲ့အလုပ်တွေကို ရပ်တန့်စေတယ်။ အခြားတစ်ဖက်တွင်၊ Word ပြိုကျသည့်အခါ ပို၍ကြီးမားသောခြိမ်းခြောက်မှုတစ်ခုက လှုံ့ဆော်ပေးနိုင်သည်။ ပိုမိုကြီးမားသော ခြိမ်းခြောက်မှုဖြင့် ကျွန်ုပ်တို့သည် သင်၏ ပျက်စီးသွားသော ဖိုင်များနှင့် အစားထိုး၍မရသော ဒေတာများကို ဆိုလိုပါသည်။

ထို့ကြောင့်၊ backup များပြုလုပ်ရန်နှင့် အရေးကြီးဆုံးမှာ program တစ်ခုရယူရန် ကျွန်ုပ်တို့ အကြံပြုအပ်ပါသည်။ Word ပျက်စီးမှုကို ပြုပြင်ပါ။ ဒါမှ ရှုပ်ပွနေမှာမဟုတ်ဘူး။

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ xls ပြဿနာဖြေရှင်းရေးကိရိယာ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com

ယခုမျှဝေပါ-

မှတ်ချက်များကိုပိတ်ထားကြသည်။