Ձեր Word փաստաթղթից բոլոր էլփոստի հասցեները հանելու 2 տարբերակ և դրանք խմբաքանակի մշակման համար

Կիսվել հիմա ՝

Այս հոդվածում մենք ձեզ կներկայացնենք Word- ի փաստաթղթում բոլոր էլփոստի հասցեները հանելու և դրանք խմբակցելու համար միացնելու երկու եղանակ:

Հիմա և հետո, գուցե ստիպված լինեք միանգամից մի քանի անձի էլ. Այնուամենայնիվ, ամեն ինչ կարող է մի փոքր բարդանալ, երբ նրանց հասցեները ցրվում են էջերում երկար փաստաթղթի շուրջ: Ամբողջ փաստաթղթում նավարկելու և դրանք մեկ առ մեկ գտնելու համար դա կարող է ժամանակատար լինել: Ահա թե ինչու մենք ուզում ենք ձեզ ցույց տալ բոլորին մեկ եղանակով արդյունահանելու արագ եղանակը `ձեր փոստարկղում խմբաքանակի մշակման համար:

Մեթոդ 1. Օգտագործեք «Գտեք և փոխարինեք» տարբերակը

  1. Նախևառաջ բացեք էլեկտրոնային փոստի հասցեները պարունակող փաստաթուղթը։
  2. Այնուհետև մենք սկսում ենք սեղմելով «Գլխավոր էջ» ներդիրը։
  3. Հաջորդը ընտրեք կտտացնել «Գտիր» պատկերակի շրջված եռանկյունուն:
  4. Բացվող ցուցակում ընտրեք «Ընդլայնված որոնում»:Կտտացրեք «Տուն» -> Սեղմեք «Գտեք» –ի ետևում գտնվող ներքևի կոճակին -> Սեղմեք «Ընդլայնված որոնում»
  5. Այժմ դուք բաց կունենաք «Գտեք և փոխարինեք» երկխոսության տուփը: Համոզվեք, որ «Գտեք» ներդիրը միացված է և «Գտեք ինչ» տեքստային դաշտում մուտքագրեք «[Az, 0-9] {1,} \ @ [Az, 0-9, \.] {1,}»:
  6. Հաջորդը կտտացրեք «Ավելին» ՝ ավելի շատ ընտրանքներ դիտելու համար:Տողեր մուտքագրեք -> Կտտացրեք «Ավելին»
  7. Դրանից հետո նշեք «Օգտագործել վայրի քարտեր» վանդակը «Որոնման ընտրանքներ» բաժնում:
  8. Կտտացրեք «Գտիր» կոճակին և ընտրիր «Հիմնական փաստաթուղթ»:Ստուգեք «Օգտագործել վայրի քարտեր» -> Սեղմել «Գտել» -> Ընտրել «Հիմնական փաստաթուղթ»
  9. Այժմ դուք կարող եք տեսնել, որ այս փաստաթղթում նշված բոլոր էլփոստի հասցեները ընդգծված են: Փակեք երկխոսության տուփը:
  10. Հաջորդը կտտացրեք «Պատճենել» «Clipboard» խմբում «Տուն» ներդիրի տակ:Սեղմեք «Տուն» -> Սեղմեք «Պատճենել»
  11. Այժմ ստեղծեք նոր Word փաստաթուղթ:
  12. Աջ կտտացրեք նորին և ընտրեք «Պահել միայն տեքստը»: Դուք կտեսնեք, որ բոլոր էլ. Փոստի հասցեները տեղադրված են սյունակում:Ընտրեք «Միայն տեքստը պահելը»
  13. Դրանից հետո կտտացրեք «Փոխարինել» «Խմբագրում» խմբում «Տուն» ներդիրի տակ:Սեղմեք «Տուն» -> Սեղմեք «Փոխարինել»
  14. «Փոխարինել» ներդիրում մուտքագրեք «^ p» և «;» համապատասխանաբար «Գտիր ինչ» և «Փոխարինիր» տեքստերում:
  15. Եվ հիշեք, որ պետք է մաքրել «Օգտագործեք վայրի քարտեր» վանդակը:
  16. Դրանից հետո կտտացրեք «Փոխարինել բոլորը» կոճակին: Բառը ձեզ կասի, թե քանի փոխարինում է կատարել, և կարող եք փակել բոլոր բաց տուփերը: Փաստաթղթի վրա կան էլ.հասցեներ, որոնք բաժանված են կետանիշներով:Մուտքագրեք «Գտեք ինչ» և «Փոխարինեք» տեքստային տուփերով -> Մաքրել «Օգտագործեք վայրի քարտեր» տուփ -> Սեղմեք «Փոխարինել բոլորը»Էլեկտրոնային հասցեները, որոնք բաժանված են կետանիշներով
  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» կոճակը:Կպցնել ծածկագրերը -> Հիթ «Run»

Այնուհետև դուք կունենաք մեկ այլ նոր փաստաթուղթ՝ բոլոր էլփոստի հասցեներով, որոնք բաժանված են կետ-ստորակետերով։ Եվ դուք կարող եք սկսել օգտագործել դրանք փոստարկղում խմբային մշակման համար։

VBA կոդերի գործարկման էֆեկտ

Օգտագործեք վնասված ֆայլերը հետ բերելու ժամանակը

Trիշտ է, Word- ի հետ աշխատելու միջոցով դուք միշտ կարող եք գտնել որոշ անակնկալներ: Չնայած զարմացած եք դրա հնարավորություններից, պետք է զգույշ լինել Word- ի հնարավոր վթարների մասին: Մի կողմից, դա դադարեցնում է ձեր աշխատանքը: Մյուս կողմից, էլ ավելի մեծ սպառնալիք կարող է հուշել, երբ Word- ը փլուզվում է: Եվ ավելի մեծ սպառնալիք ասելով ՝ մենք նկատի ունենք ձեր վնասված ֆայլերը և անփոխարինելի տվյալները:

Հետևաբար, մենք շարունակում ենք խորհուրդ տալ ձեզ կատարել պահուստային պատճեններ և, ամենակարևորը, ձեռք բերել ծրագիր՝ վերականգնել բառի վնասը այնպես որ ժամանակ չեք վատնի շուրջբոլորը աղմկելու համար:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xls խնդիրը շտկելու գործիք և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: