Tässä artikkelissa esittelemme sinulle kaksi tapaa purkaa kaikki sähköpostiosoitteet Word-asiakirjassa ja ketjuttaa ne eräkäsittelyä varten.
Silloin tällöin saatat joutua lähettämään sähköpostia useille henkilöille kerralla. Asiat voivat kuitenkin olla hieman hankalia, kun niiden osoitteet ovat hajallaan pitkässä asiakirjassa sivuilla. Koko asiakirjassa liikkuminen ja niiden löytäminen yksitellen voi olla aikaa vievää. Siksi haluamme näyttää sinulle nopean tavan poimia ne kaikki yhdellä siirrolla postilaatikkosi eräkäsittelyä varten.
Tapa 1: Käytä Etsi ja korvaa -vaihtoehtoa
- Ensinnäkin, avaa sähköpostiosoitteita sisältävä asiakirja.
- Sitten aloitamme napsauttamalla "Etusivu"-välilehteä.
- Napsauta seuraavaksi ylösalaisin olevaa kolmiota "Etsi" -kuvakkeessa.
- Valitse avattavasta luettelosta "Lisähaku".
- Nyt sinulla on "Etsi ja korvaa" -valintaikkuna auki. Varmista, että Etsi-välilehti on päällä ja kirjoita Etsi mitä -tekstikenttään "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}".
- Napsauta seuraavaksi "Lisää" nähdäksesi lisää vaihtoehtoja.
- Valitse sitten "Käytä jokerimerkkejä" -ruutu "Hakuasetukset" -kohdasta.
- Napsauta "Etsi" -painiketta ja valitse "Pääasiakirja".
- Nyt näet, että kaikki tämän asiakirjan sähköpostiosoitteet on korostettu. Sulje valintaikkuna.
- Napsauta seuraavaksi "Kopioi" "Koti"-välilehden "Leikepöytä" -ryhmässä.
- Luo nyt uusi Word-asiakirja.
- Napsauta hiiren kakkospainikkeella uutta ja valitse "Säilytä vain teksti". Näet, että kaikki sähköpostiosoitteet on liitetty sinne sarakkeeseen.
- Napsauta sitten "Kohdin"-välilehden "Muokkaaminen" -ryhmässä "Korvaa".
- Kirjoita "Korvaa"-välilehdelle "^p" ja ";" "Etsi mitä" ja "Korvaa" -tekstikentissä.
- Muista myös tyhjentää Käytä yleismerkkejä -valintaruutu.
- Napsauta sitten "Korvaa kaikki" -painiketta. Word kertoo, kuinka monta vaihtoa se on tehnyt, ja voit sulkea kaikki avoimet laatikot. Asiakirjassa on sähköpostiosoitteet erotettuina puolipisteillä.
- Lopuksi sinun on kopioitava nämä osoitteet postilaatikkoosi ja lähetettävä samat tiedot kaikille vastaanottajille kerralla.
Tapa 2: Käytä VBA-koodeja
- Paina ensin Alt+F11 avataksesi VBA-editorin.
- Liitä sitten muokkausalueelle seuraavat koodit:
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
- Paina seuraavaksi "Suorita" -painiketta.
Saat sitten uuden dokumentin, jossa kaikki sähköpostiosoitteet ovat puolipisteillä erotettuina. Voit sitten aloittaa niiden käytön eräajossa postilaatikossa.
Tartu vaurioituneiden tiedostojen palauttamiseen
Totta, voit aina löytää yllätyksiä työskentelemällä Wordin kanssa. Vaikka olet hämmästynyt sen ominaisuuksista, sinun tulee varoa mahdollisia kaatumisia, joita Word voi kärsiä. Toisaalta se pysäyttää työsi. Toisaalta vielä suurempi uhka voi ilmaantua, kun Word romahtaa. Ja suuremmalla uhalla tarkoitamme vaarantuneita tiedostojasi ja korvaamattomia tietojasi.
Siksi suosittelemme jatkuvasti varmuuskopioiden tekemistä ja mikä tärkeintä, ohjelman hankkimista korjata Word-vauriot joten et tuhlaa aikaa hölmöilyyn.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xls ongelmankorjaustyökalu ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com