2 გზა ამოიღოთ ყველა ელ.ფოსტის მისამართი თქვენი Word დოკუმენტიდან და დააკავშიროთ ისინი ჯგუფური დამუშავებისთვის

გააზიარე ახლა:

ამ სტატიაში ჩვენ გაგაცნობთ 2 გზას, რომ ამოიღოთ ყველა ელ.ფოსტის მისამართი Word დოკუმენტში და დააკავშიროთ ისინი ჯგუფური დამუშავებისთვის.

ახლა და შემდეგ, შეიძლება მოგიწიოთ ელ.ფოსტის გაგზავნა რამდენიმე პირთან ერთდროულად. თუმცა, ყველაფერი შეიძლება ცოტათი გართულდეს, როდესაც მათი მისამართები გვერდებზე გრძელი დოკუმენტის ირგვლივ მიმოფანტულია. მთელი დოკუმენტის ნავიგაცია და მათი სათითაოდ პოვნა შეიძლება შრომატევადი იყოს. სწორედ ამიტომ გვინდა გაჩვენოთ ყველა მათგანის ამოღების სწრაფი გზა თქვენს საფოსტო ყუთში სერიული დამუშავებისთვის.

მეთოდი 1: გამოიყენეთ "ძებნა და ჩანაცვლება" ოფცია

  1. პირველ რიგში, გახსენით დოკუმენტი, რომელიც შეიცავს ელექტრონული ფოსტის მისამართებს.
  2. შემდეგ ვიწყებთ „მთავარი“ ჩანართის დაჭერით.
  3. შემდეგ აირჩიეთ დააწკაპუნეთ თავდაყირა სამკუთხედზე "ძებნის" ხატულაზე.
  4. ჩამოსაშლელ სიაში აირჩიეთ "Advanced Find".დააწკაპუნეთ "მთავარი"->დააწკაპუნეთ თავდაყირა ღილაკზე "ძებნის" უკან ->დააწკაპუნეთ "გაფართოებული ძებნა"
  5. ახლა თქვენ გექნებათ გახსნილი დიალოგური ფანჯარა "ძებნა და ჩანაცვლება". დარწმუნდით, რომ „იპოვე“ ჩანართი ჩართულია და შეიყვანეთ „[Az,0-9]{1,}\@[Az,0-9,\.]{1,}“ ტექსტურ ველში „იპოვე რა“.
  6. შემდეგ დააწკაპუნეთ "მეტი" მეტი პარამეტრების სანახავად.ჩაწერეთ Strings ->დააწკაპუნეთ "მეტი"
  7. შემდეგ მონიშნეთ ველი „გამოიყენე ველური ბარათები“ „ძიების ოფციების“ ქვეშ.
  8. დააჭირეთ ღილაკს "ძიება" და აირჩიეთ "მთავარი დოკუმენტი".მონიშნეთ "გამოიყენეთ wildcards"->დააწკაპუნეთ "Find In"->აირჩიეთ "მთავარი დოკუმენტი"
  9. ახლა თქვენ ხედავთ, რომ ამ დოკუმენტში ყველა ელფოსტის მისამართი მონიშნულია. დახურეთ დიალოგური ფანჯარა.
  10. შემდეგ დააწკაპუნეთ "ასლი" "Clipboard" ჯგუფში "მთავარი" ჩანართში.დააჭირეთ "მთავარი"->დააწკაპუნეთ "ასლი"
  11. ახლა შექმენით ახალი Word დოკუმენტი.
  12. დააწკაპუნეთ ახალზე მარჯვენა ღილაკით და აირჩიეთ "მხოლოდ ტექსტის შენარჩუნება". დაინახავთ, რომ ყველა ელ.ფოსტის მისამართი ჩასმულია იქ სვეტში.აირჩიეთ "მხოლოდ ტექსტის შენარჩუნება"
  13. შემდეგ დააჭირეთ "ჩანაცვლება" ჯგუფში "რედაქტირება" ჩანართში "მთავარი".დააჭირეთ "მთავარი"->დააწკაპუნეთ "ჩანაცვლება"
  14. "ჩანაცვლების" ჩანართში შეიყვანეთ "^p" და ";" ტექსტის ველებში „იპოვე რა“ და „ჩანაცვლება“ შესაბამისად.
  15. და დაიმახსოვრეთ, რომ გაასუფთავოთ ველი "გამოიყენე ველური ბარათები".
  16. შემდეგ დააჭირეთ ღილაკს "ყველას ჩანაცვლება". Word გეტყვით რამდენი ჩანაცვლება გააკეთა და შეგიძლიათ დახუროთ ყველა ღია ყუთი. დოკუმენტზე არის ელფოსტის მისამართები, რომლებიც გამოყოფილია მძიმით.შეიყვანეთ "იპოვეთ რა" და "ჩანაცვლება" ტექსტური ყუთები ->გასუფთავება "გამოიყენეთ wildcards" ველი ->დააწკაპუნეთ "ჩანაცვლება ყველა"ელფოსტის მისამართები გამოყოფილია მძიმით
  17. რაც თქვენ უნდა გააკეთოთ ბოლოს არის დააკოპირეთ ეს მისამართები თქვენს საფოსტო ყუთში და გაგზავნეთ იგივე ინფორმაცია ყველა მიმღებისთვის ერთდროულად.

მეთოდი 2: გამოიყენეთ VBA კოდები

  1. პირველ რიგში, დააჭირეთ "Alt + F11" VBA რედაქტორის გასახსნელად.
  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"

შემდეგ თქვენ გექნებათ კიდევ ერთი ახალი დოკუმენტი ყველა ელექტრონული ფოსტის მისამართით, რომლებიც წერტილ-მძიმეებით იქნება გამოყოფილი. და შეგიძლიათ დაიწყოთ მათი გამოყენება საფოსტო ყუთში პაკეტური დამუშავებისთვის.

VBA კოდების გაშვების ეფექტი

გამოიყენეთ დრო დაზიანებული ფაილების აღდგენისთვის

მართალია, ყოველთვის შეგიძლიათ იპოვოთ სიურპრიზები Word-თან მუშაობისას. მიუხედავად იმისა, რომ გაოცებული ხართ მისი შესაძლებლობებით, უნდა გაუფრთხილდეთ შესაძლო ავარიას, რომელსაც Word შეიძლება განიცადოს. ერთის მხრივ, ეს აჩერებს თქვენს მუშაობას. მეორეს მხრივ, კიდევ უფრო დიდმა საფრთხემ შეიძლება გამოიწვიოს Word-ის დაშლისას. და უფრო დიდ საფრთხეში ჩვენ ვგულისხმობთ თქვენს კომპრომეტირებულ ფაილებს და შეუცვლელ მონაცემებს.

ამიტომ, ჩვენ გირჩევთ, შექმნათ სარეზერვო ასლები და რაც მთავარია, მიიღოთ პროგრამა Word-ის დაზიანების შეკეთება ასე რომ თქვენ არ დაკარგავთ დროს აურზაურისთვის.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xls პრობლემის მოგვარების ინსტრუმენტი მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად

გააზიარე ახლა:

კომენტარები დახურულია.