Ushbu maqolada biz sizga Word hujjatidagi barcha elektron pochta manzillarini ajratib olish va ularni ommaviy qayta ishlash uchun birlashtirishning 2 usuli bilan tanishamiz.
Vaqti-vaqti bilan siz bir vaqtning o'zida bir nechta odamga elektron pochta xabarlarini yuborishingiz kerak bo'lishi mumkin. Biroq, ularning manzillari sahifalarda uzun hujjat atrofida tarqalib ketganda, ishlar biroz qiyinlashishi mumkin. Butun hujjat bo'ylab harakatlanish va ularni birma-bir topish ko'p vaqt talab qilishi mumkin. Shuning uchun biz sizga pochta qutingizda ommaviy qayta ishlash uchun ularning barchasini bir harakatda chiqarishning tezkor usulini ko'rsatmoqchimiz.
1-usul: "Topish va almashtirish" variantidan foydalaning
- Avvalo, elektron pochta manzillarini o'z ichiga olgan hujjatni oching.
- Keyin biz "Bosh sahifa" yorlig'ini bosishdan boshlaymiz.
- Keyin "Topish" belgisidagi teskari uchburchakni bosishni tanlang.
- Ochiladigan ro'yxatda "Kengaytirilgan qidiruv" ni tanlang.
- Endi sizda "Topish va almashtirish" dialog oynasi ochiladi. “Topish” yorlig‘i yoqilganligiga ishonch hosil qiling va “Nimasini toping” matn maydoniga “[Az,0-9]{1,}\@[Az,0-9,\.]{1,}” kiriting.
- Keyin qo'shimcha variantlarni ko'rish uchun "Ko'proq" tugmasini bosing.
- Keyin "Qidiruv parametrlari" ostidagi "Joker belgilardan foydalanish" katagiga belgi qo'ying.
- "Topish" tugmasini bosing va "Asosiy hujjat" ni tanlang.
- Endi siz ushbu hujjatdagi barcha elektron pochta manzillari ta'kidlanganligini ko'rishingiz mumkin. Muloqot oynasini yoping.
- Keyin "Uy" yorlig'i ostidagi "Clipboard" guruhidagi "Nusxalash" tugmasini bosing.
- Endi yangi Word hujjatini yarating.
- Yangisini o'ng tugmasini bosing va "Faqat matnni saqlash" -ni tanlang. Siz barcha elektron pochta manzillari ustunga yopishtirilganligini ko'rasiz.
- Keyin "Uy" yorlig'i ostidagi "Tahrirlash" guruhidagi "O'zgartirish" tugmasini bosing.
- "Almashtirish" yorlig'ida "^p" va ";" ni kiriting. mos ravishda "Nima top" va "Almashtirish" matn maydonlarida.
- Va "Joyyor belgilardan foydalanish" oynasini tozalashni unutmang.
- Keyin "Hammasini almashtirish" tugmasini bosing. Word sizga qancha almashtirilganligini aytib beradi va siz barcha ochiq qutilarni yopishingiz mumkin. Hujjatda nuqta-vergul bilan ajratilgan elektron pochta manzillari mavjud.
- Nihoyat qilish kerak bo'lgan narsa bu manzillarni pochta qutingizga nusxalash va bir vaqtning o'zida barcha qabul qiluvchilar uchun bir xil ma'lumotlarni yuborishdir.
2-usul: VBA kodlaridan foydalaning
- Birinchidan, VBA muharririni ochish uchun "Alt + F11" tugmasini bosing.
- Keyin tahrirlash maydoniga quyidagi kodlarni joylashtiring:
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
- Keyin "Ishga tushirish" tugmasini bosing.
Keyin sizda barcha elektron pochta manzillari nuqta-vergul bilan ajratilgan yana bir yangi hujjat bo'ladi. Va siz ulardan pochta qutisida ommaviy ishlov berish uchun foydalanishni boshlashingiz mumkin.
Zararlangan fayllarni olish uchun vaqt ajrating
To'g'ri, Word bilan ishlash orqali har doim kutilmagan hodisalar topishingiz mumkin. Uning imkoniyatlari sizni hayratda qoldirayotgan bo'lsa-da, Word-da yuzaga kelishi mumkin bo'lgan nosozliklardan ehtiyot bo'lishingiz kerak. Bir tomondan, bu sizning ishingizni to'xtatadi. Boshqa tomondan, Word ishlamay qolganda yanada kattaroq tahdid paydo bo'lishi mumkin. Kattaroq tahdid deganda biz sizning buzilgan fayllaringiz va almashtirib bo'lmaydigan ma'lumotlaringizni nazarda tutamiz.
Shuning uchun, biz sizga zaxira nusxalarini yaratishni va eng muhimi, dasturni qo'lga kiritishni taklif qilamiz Word zararini tuzatish shuning uchun vaqtingizni behuda sarflamaysiz.
Muallif kirish:
Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls muammolarni hal qilish vositasi va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com