V tem članku vam bomo predstavili 2 načina za ekstrahiranje vseh e-poštnih naslovov v Wordovem dokumentu in njihovo povezovanje za paketno obdelavo.
Tu in tam boste morda morali poslati e-pošto več osebam hkrati. Vendar lahko stvari postanejo nekoliko zapletene, ko so njihovi naslovi razpršeni po dolgem dokumentu na straneh. Krmarjenje po celotnem dokumentu in iskanje enega za drugim je lahko dolgotrajno. Zato vam želimo pokazati hiter način, da jih vse izvlečete z eno potezo za paketno obdelavo v vašem poštnem predalu.
1. način: Uporabite možnost »Najdi in zamenjaj«.
- Najprej in predvsem odprite dokument, ki vsebuje e-poštne naslove.
- Nato začnemo s klikom na zavihek »Domov«.
- Nato kliknite na glavo obrnjen trikotnik na ikoni »Najdi«.
- Na spustnem seznamu izberite »Napredno iskanje«.
- Zdaj boste imeli odprto pogovorno okno »Najdi in zamenjaj«. Prepričajte se, da je zavihek »Najdi« vklopljen in v besedilno polje »Najdi kaj« vnesite »[Az,0-9]{1,}\@[Az,0-9,\.]{1,}«.
- Nato kliknite »Več« za ogled več možnosti.
- Nato potrdite polje »Uporabi nadomestne znake« pod »Možnosti iskanja«.
- Kliknite gumb »Najdi v« in izberite »Glavni dokument«.
- Zdaj lahko vidite, da so vsi e-poštni naslovi v tem dokumentu označeni. Zaprite pogovorno okno.
- Nato kliknite »Kopiraj« v skupini »Odložišče« pod zavihkom »Domov«.
- Zdaj ustvarite nov Wordov dokument.
- Z desno miškino tipko kliknite novo in izberite »Ohrani samo besedilo«. Videli boste, da so vsi e-poštni naslovi prilepljeni tja v stolpec.
- Nato kliknite »Zamenjaj« v skupini »Urejanje« pod zavihkom »Domov«.
- V »Pod zavihkom »Zamenjaj« vnesite »^p« in »;« v besedilnih poljih »Najdi kaj« oziroma »Zamenjaj z«.
- Ne pozabite počistiti polja »Uporabi nadomestne znake«.
- Nato kliknite gumb »Zamenjaj vse«. Word vam bo povedal, koliko zamenjav je izvedel in lahko zaprete vsa odprta polja. Na dokumentu so e-poštni naslovi ločeni s podpičji.
- Nazadnje morate te naslove kopirati v svoj poštni predal in poslati iste informacije vsem prejemnikom hkrati.
2. način: Uporabite kode VBA
- Najprej pritisnite “Alt+F11”, da odprete urejevalnik VBA.
- Nato v območje za urejanje prilepite naslednje kode:
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
- Nato pritisnite gumb »Zaženi«.
Nato boste imeli nov dokument z vsemi e-poštnimi naslovi, ločenimi s podpičji. In jih lahko začnete uporabljati za paketno obdelavo v poštnem nabiralniku.
Izkoristite čas za pridobivanje poškodovanih datotek
Res je, pri delu z Wordom lahko vedno najdete kakšna presenečenja. Čeprav ste presenečeni nad njegovimi zmogljivostmi, morate biti pozorni na morebitne zrušitve, ki jih lahko utrpi Word. Po eni strani ustavi vaše delo. Po drugi strani pa lahko še večja grožnja povzroči, ko se Word sesuje. Z večjo grožnjo pa mislimo na vaše ogrožene datoteke in nezamenljive podatke.
Zato vam še naprej predlagamo, da naredite varnostne kopije in, kar je najpomembneje, da si priskrbite program za popravi poškodbe Worda tako da ne boste izgubljali časa s prepirom.
Uvod avtorja:
Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xls orodje za odpravljanje težav in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com