I denne artikkelen vil vi introdusere deg 2 måter å trekke ut alle e-postadresser i et Word-dokument og sette dem sammen for batchbehandling.
Nå og da kan det hende du må sende e-post til flere personer samtidig. Imidlertid kan ting bli litt vanskelig når adressene deres sprer seg rundt et langt dokument på sider. Det kan være tidkrevende å navigere i hele dokumentet og finne dem én etter én. Det er derfor vi ønsker å vise deg den raske måten å trekke ut alle i ett trekk for batchbehandling i postboksen din.
Metode 1: Bruk alternativet "Finn og erstatt".
- Først og fremst, åpne dokumentet som inneholder e-postadressene.
- Så starter vi med å klikke på «Hjem»-fanen.
- Velg deretter å klikke på opp-ned trekanten på "Finn"-ikonet.
- På rullegardinlisten velger du "Avansert søk".
- Nå vil du ha dialogboksen "Finn og erstatt" åpen. Sørg for at "Finn"-fanen er på, og skriv inn "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" i "Finn hva"-tekstboksen.
- Klikk deretter på "Mer" for å se flere alternativer.
- Merk deretter av for "Bruk jokertegn" under "Søkealternativer".
- Klikk på "Finn inn"-knappen og velg "Hoveddokument".
- Nå kan du se at alle e-postadressene i dette dokumentet er uthevet. Lukk dialogboksen.
- Klikk deretter på "Kopier" i "Utklippstavle"-gruppen under fanen "Hjem".
- Opprett nå et nytt Word-dokument.
- Høyreklikk på den nye og velg "Behold kun tekst". Du skal se at alle e-postadresser er limt inn der i kolonnen.
- Klikk deretter på "Erstatt" i "Redigering"-gruppen under fanen "Hjem".
- I "Under "Erstatt"-fanen skriver du inn "^p" og ";" i tekstboksene "Finn hva" og "Erstatt med".
- Og husk å fjerne "Bruk jokertegn"-boksen.
- Klikk deretter på "Erstatt alle"-knappen. Word vil fortelle deg hvor mange erstatninger den har gjort, og du kan lukke alle åpne bokser. På dokumentet er e-postadresser atskilt med semikolon.
- Det du trenger å gjøre til slutt er å kopiere disse adressene til postboksen din og sende den samme informasjonen til alle mottakerne samtidig.
Metode 2: Bruk VBA-koder
- Først, trykk "Alt+F11" for å åpne VBA-editoren.
- Deretter limer du inn følgende koder i redigeringsområdet:
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
- Trykk deretter på "Kjør"-knappen.
Du vil da ha et nytt dokument med alle e-postadressene der, atskilt med semikolon. Og du kan begynne å bruke dem til batchbehandling i postkassen.
Grip tiden til å hente skadede filer
Riktignok kan du alltid finne noen overraskelser ved å jobbe med Word. Mens du er overrasket over dens evner, bør du se opp for mulige krasj som Word kan lide. På den ene siden stopper det arbeidet ditt. På den annen side kan en enda større trussel gi beskjed når Word kollapser. Og med større trussel mener vi dine kompromitterte filer og uerstattelige data.
Derfor anbefaler vi stadig at du tar sikkerhetskopier, og viktigst av alt, at du får tak i et program for å reparere Word-skader så du slipper å kaste bort tid på å mase.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls problemløsningsverktøy og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med