V tomto článku vám představíme dva způsoby, jak extrahovat všechny e-mailové adresy v dokumentu Word a zřetězit je pro dávkové zpracování.
Občas možná budete muset poslat e-mail více osobám najednou. Věci však mohou být trochu složitější, když se jejich adresy rozptýlí po dlouhém dokumentu na stránkách. Navigovat v celém dokumentu a najít je jeden po druhém může být časově náročné. Proto vám chceme ukázat rychlý způsob, jak je všechny extrahovat jedním tahem pro dávkové zpracování ve vaší poštovní schránce.
Metoda 1: Použijte možnost „Najít a nahradit“
- Nejprve otevřete dokument obsahující e-mailové adresy.
- Pak začneme kliknutím na kartu „Domů“.
- Dále klikněte na ikonu obráceného trojúhelníku na ikonu „Najít“.
- V rozevíracím seznamu vyberte možnost „Rozšířené hledání“.
- Nyní budete mít otevřeno dialogové okno „Najít a nahradit“. Ujistěte se, že je karta „Najít“, a do textového pole „Najít co“ zadejte „[Az, 0-9] {1,} \ @ [Az, 0-9, \.] {1,}“.
- Poté klikněte na „Více“ a zobrazte další možnosti.
- Poté zaškrtněte políčko „Použít zástupné znaky“ v části „Možnosti vyhledávání“.
- Klikněte na tlačítko „Najít v“ a vyberte „Hlavní dokument“.
- Nyní můžete vidět, že byly zvýrazněny všechny e-mailové adresy v tomto dokumentu. Zavřete dialogové okno.
- Dále klikněte na „Kopírovat“ ve skupině „Schránka“ na kartě „Domů“.
- Nyní vytvořte nový dokument aplikace Word.
- Klikněte pravým tlačítkem na nový a vyberte možnost „Ponechat pouze text“. Ve sloupci uvidíte, že jsou zde vloženy všechny e-mailové adresy.
- Poté klikněte na „Nahradit“ ve skupině „Úpravy“ na kartě „Domov“.
- Na kartě „Nahradit“ zadejte „^ p“ a „;“ v textových polích „Najít co“ a „Nahradit za“.
- A nezapomeňte zrušit zaškrtnutí políčka „Použít zástupné znaky“.
- Poté klikněte na tlačítko „Nahradit vše“. Word vám řekne, kolik nahrazení provedl, a můžete zavřít všechna otevřená pole. Na dokumentu jsou e-mailové adresy oddělené středníky.
- Nakonec musíte tyto adresy zkopírovat do své poštovní schránky a odeslat stejné informace všem příjemcům najednou.
Metoda 2: Použijte kódy VBA
- Nejprve stisknutím kombinace kláves „Alt + F11“ otevřete editor VBA.
- Potom do editační oblasti vložte následující kódy:
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
- Dále stiskněte tlačítko „Spustit“.
Pak budete mít další nový dokument se všemi e-mailovými adresami oddělenými středníky. A můžete je začít používat pro dávkové zpracování v poštovní schránce.
Využijte čas na načtení poškozených souborů
Je pravda, že při práci s Wordem vždy najdete nějaká překvapení. I když jste ohromeni jeho schopnostmi, měli byste si dávat pozor na možná selhání, která Word může utrpět. Na jedné straně to zastaví vaši práci. Na druhou stranu, ještě větší hrozba může být výzva, když se Word zhroutí. A větší hrozbou máme na mysli vaše kompromitované soubory a nenahraditelná data.
Proto vám stále doporučujeme vytvářet zálohy a co je nejdůležitější, pořídit si program, který opravit poškození Wordu takže nebudete ztrácet čas fušováním.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xls problém opravit nástroj a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com