I denne artikel vil vi introducere dig 2 måder at udtrække alle e-mailadresser i et Word-dokument og sammenkæde dem til batchbehandling.
Nu og da skal du muligvis sende e-mail til flere personer på én gang. Men tingene kan blive lidt vanskelige, når deres adresser spreder sig rundt i et langt dokument på sider. Det kan være tidskrævende at navigere i hele dokumentet og finde dem én efter én. Det er derfor, vi ønsker at vise dig den hurtige måde at udtrække dem alle i ét træk til batchbehandling i din postkasse.
Metode 1: Brug indstillingen "Find og erstat"
- Først og fremmest skal du åbne dokumentet, der indeholder e-mailadresserne.
- Så starter vi med at klikke på fanen "Hjem".
- Vælg derefter at klikke på trekanten på hovedet på "Find"-ikonet.
- Vælg "Avanceret søgning" på rullelisten.
- Nu vil du have dialogboksen "Find og erstat" åben. Sørg for, at fanen "Find" er aktiveret, og indtast "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" i tekstboksen "Find hvad".
- Klik derefter på "Mere" for at se flere muligheder.
- Marker derefter boksen "Brug jokertegn" under "Søgeindstillinger".
- Klik på knappen "Find i", og vælg "Hoveddokument".
- Nu kan du se, at alle e-mailadresserne i dette dokument er fremhævet. Luk dialogboksen.
- Klik derefter på "Kopier" i "Udklipsholder"-gruppen under fanen "Hjem".
- Opret nu et nyt Word-dokument.
- Højreklik på den nye og vælg "Behold kun tekst". Du vil se, at alle e-mailadresser er indsat der i kolonnen.
- Klik derefter på "Erstat" i "Redigering"-gruppen under fanen "Hjem".
- Indtast "^p" og ";" under fanen "Erstat" i henholdsvis "Find hvad" og "Erstat med" tekstbokse.
- Og husk at rydde feltet "Brug jokertegn".
- Klik derefter på knappen "Erstat alle". Word vil fortælle dig, hvor mange udskiftninger den har foretaget, og du kan lukke alle åbne kasser. På dokumentet er e-mailadresser adskilt af semikolon.
- Hvad du skal gøre til sidst er at kopiere disse adresser til din postkasse og sende de samme oplysninger til alle modtagere på én gang.
Metode 2: Brug VBA-koder
- Først skal du trykke på "Alt+F11" for at åbne VBA-editoren.
- Indsæt derefter 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
- Tryk derefter på "Kør"-knappen.
Du vil derefter have et nyt dokument med alle e-mailadresserne der, adskilt af semikolon. Og du kan begynde at bruge dem til batchbehandling i postkassen.
Grib tiden til at hente beskadigede filer
Sandt nok kan du altid finde nogle overraskelser ved at arbejde med Word. Mens du er forbløffet over dens muligheder, bør du passe på de mulige nedbrud, som Word kan lide. På den ene side stopper det dit arbejde. På den anden side kan en endnu større trussel give besked, når Word kollapser. Og med større trussel mener vi dine kompromitterede filer og uerstattelige data.
Derfor foreslår vi fortsat, at du laver sikkerhedskopier og vigtigst af alt, at du får fat i et program til at reparere Word-skader så du ikke spilder tid med at rode rundt.
Forfatter Introduktion:
Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xls problem fix værktøj og pdf produkter til reparation af software. For mere information besøg www.datanumen.com