Бұл мақалада біз сізге Word құжатындағы барлық электрондық пошта мекенжайларын шығарудың және оларды пакеттік өңдеу үшін біріктірудің 2 әдісін ұсынамыз.
Енді сізге бір уақытта бірнеше адамға электрондық пошта жіберу қажет болуы мүмкін. Алайда, олардың мекен-жайлары парақтардағы ұзын құжаттың айналасында шашырап тұрған кезде, заттар біраз қиынға соғуы мүмкін. Құжатты толығымен шарлау және оларды бір-бірлеп табу көп уақытты қажет етеді. Сондықтан біз сіздің пошта жәшігіңізде пакеттік өңдеу үшін олардың барлығын бір жүрісте алудың жылдам әдісін көрсеткіміз келеді.
1-әдіс: «Табу және ауыстыру» опциясын қолдану
- Ең алдымен, электрондық пошта мекенжайлары бар құжатты ашыңыз.
- Содан кейін біз «Басты бет» қойындысын басу арқылы бастаймыз.
- Әрі қарай «Іздеу» белгішесінде төңкерілген үшбұрышты басыңыз.
- Ашылмалы тізімде «Қосымша іздеу» тармағын таңдаңыз.
- Енді сізде «Табу және ауыстыру» диалогтық терезесі ашылады. «Табу» қойындысы қосулы екеніне көз жеткізіп, «Нені табу» мәтін жолына «[Az, 0-9] {1,} \ @ [Az, 0-9, \.] {1,}» енгізіңіз.
- Одан кейін қосымша параметрлерді көру үшін «Қосымша» батырмасын басыңыз.
- Содан кейін «Іздеу параметрлері» астындағы «таңбалы белгілерді пайдалану» құсбелгісін қойыңыз.
- «Іздеу» батырмасын басыңыз және «Негізгі құжатты» таңдаңыз.
- Енді сіз осы құжаттағы барлық электрондық пошта мекенжайларының ерекшеленгенін көре аласыз. Диалогтық терезені жабыңыз.
- Әрі қарай «Басты бет» қойындысындағы «Аралық сақтағыш» тобындағы «Көшіру» батырмасын басыңыз.
- Енді жаңа Word құжатын жасаңыз.
- Жаңасын тінтуірдің оң жағымен басып, «Тек мәтінді сақтау» таңдаңыз. Сіз барлық электрондық пошта мекенжайларын бағанға жапсырылғанын көресіз.
- Содан кейін «Үй» қойындысының астындағы «Өңдеу» тобындағы «Ауыстыру» батырмасын басыңыз.
- «Ауыстыру» қойындысының астына «^ p» және «;» енгізіңіз «Нені табу» және «Ауыстыру» мәтін жолақтарында.
- «Қойылмалы таңбаларды пайдалану» өрісін тазалауды ұмытпаңыз.
- Содан кейін «Барлығын ауыстыру» батырмасын басыңыз. Сөз сізге қанша ауыстыру енгізгенін айтады және сіз барлық ашық ұяшықтарды жаба аласыз. Құжатта үтірлермен бөлінген электрондық пошта мекенжайлары бар.
- Ақыр соңында сізге бұл мекен-жайларды пошта жәшігіңізге көшіру және барлық алушыларға бірдей ақпаратты жіберу қажет.
2-әдіс: VBA кодтарын қолданыңыз
- Біріншіден, VBA редакторын ашу үшін «Alt + F11» пернелерін басыңыз.
- Содан кейін редакциялау аймағына келесі кодтарды қойыңыз:
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
- Келесі «Іске қосу» батырмасын басыңыз.
Содан кейін сізде барлық электрондық пошта мекенжайлары нүктелі үтірмен бөлінген тағы бір жаңа құжат болады. Және сіз оларды пошта жәшігінде топтық өңдеу үшін пайдалана бастай аласыз.
Зақымдалған файлдарды шығарып алу уақытын пайдаланыңыз
Сөзбен жұмыс жасау арқылы сіз әрқашан тосын сыйлар таба аласыз. Сіз оның мүмкіндіктеріне қайран қалсаңыз да, Word-та болуы мүмкін апаттардың сақ болуын қадағалауыңыз керек. Бір жағынан, бұл сіздің жұмысыңызды тоқтатады. Екінші жағынан, Word жойылған кезде одан да үлкен қауіп туындауы мүмкін. Біз үлкен қатер деп сіздің бұзылған файлдарыңыз бен алмастырылмайтын деректеріңізді айтамыз.
Сондықтан біз сізге сақтық көшірмелерді жасауды және ең бастысы, бағдарламаны алуды ұсынамыз Word зақымын жою сондықтан сіз айналаңызды әбігерге салып, уақытты жоғалтпайсыз.
Автордың кіріспесі:
Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xls ақауларын түзету құралы және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com