I den här artikeln kommer vi att presentera två sätt att extrahera alla e-postadresser i ett Word-dokument och sammanfoga dem för batchbearbetning.
Då och då kan du behöva e-posta till flera personer samtidigt. Men saker och ting kan bli lite knepiga när deras adresser sprids runt ett långt dokument på sidor. Att navigera i hela dokumentet och hitta dem en efter en kan vara tidskrävande. Det är därför vi vill visa dig det snabba sättet att extrahera alla i ett drag för batchbearbetning i din postlåda.
Metod 1: Använd alternativet "Sök och ersätt"
- Först och främst, öppna dokumentet som innehåller e-postadresserna.
- Sedan börjar vi med att klicka på fliken "Hem".
- Välj sedan att klicka på den upp och nedvända triangeln på "Sök"-ikonen.
- Välj "Avancerat sökning" i rullgardinsmenyn.
- Nu kommer du att ha dialogrutan "Sök och ersätt" öppen. Se till att fliken "Sök" är på och skriv in "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" i textrutan "Hitta vad".
- Klicka sedan på "Mer" för att se fler alternativ.
- Markera sedan "Använd jokertecken" under "Sökalternativ".
- Klicka på "Hitta i"-knappen och välj "Huvuddokument".
- Nu kan du se att alla e-postadresser i detta dokument har markerats. Stäng dialogrutan.
- Klicka sedan på "Kopiera" i gruppen "Urklipp" under fliken "Hem".
- Skapa nu ett nytt Word-dokument.
- Högerklicka på den nya och välj "Behåll endast text". Du kommer att se att alla e-postadresser är inklistrade där i kolumnen.
- Klicka sedan på "Ersätt" i gruppen "Redigering" under fliken "Hem".
- I "Under "Ersätt"-fliken anger du "^p" och ";" i textrutorna "Hitta vad" och "Ersätt med".
- Och kom ihåg att rensa rutan "Använd jokertecken".
- Klicka sedan på knappen "Ersätt alla". Word kommer att berätta hur många byten den har gjort och du kan stänga alla öppna lådor. På dokumentet finns e-postadresser separerade med semikolon.
- Vad du slutligen behöver göra är att kopiera dessa adresser till din postlåda och skicka samma information till alla mottagare på en gång.
Metod 2: Använd VBA-koder
- Först, tryck på "Alt+F11" för att öppna VBA-redigeraren.
- Klistra sedan in följande 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
- Nästa tryck på "Kör"-knappen.
Du får då ett nytt dokument med alla e-postadresser, separerade med semikolon. Och du kan börja använda dem för batchbearbetning i e-postlådan.
Ta tiden för att hämta skadade filer
Det är sant att du alltid kan hitta några överraskningar genom att arbeta med Word. Även om du är förvånad över dess kapacitet, bör du se upp för eventuella krascher som Word kan drabbas av. Å ena sidan stoppar det ditt arbete. Å andra sidan kan ett ännu större hot leda till att Word kollapsar. Och med större hot menar vi dina komprometterade filer och oersättliga data.
Därför föreslår vi att du gör säkerhetskopior och, viktigast av allt, skaffar ett program för att reparera Word-skada så att du inte slösar tid på att krångla.
Författarintroduktion:
Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls problem fix verktyg och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com