2 manieren om alle e-mailadressen uit uw Word-document te extraheren en ze samen te voegen voor batchverwerking

Word-oplossingen 28 september 2025

In dit artikel introduceren we u 2 manieren om alle e-mailadressen in een Word-document te extraheren en ze samen te voegen voor batchverwerking.

Soms moet u naar meerdere personen tegelijk e-mailen. Het kan echter een beetje lastig worden als hun adressen verspreid zijn over een lang document in pagina's. Het kan tijdrovend zijn om door het hele document te navigeren en ze één voor één te vinden. Daarom willen we u de snelle manier laten zien om ze allemaal in één beweging uit te pakken voor batchverwerking in uw mailbox.

Methode 1: Gebruik de optie "Zoeken en vervangen"

  1. Open allereerst het document met de e-mailadressen.
  2. We beginnen door op het tabblad "Home" te klikken.
  3. Kies er vervolgens voor om op het omgekeerde driehoekje op het pictogram "Zoeken" te klikken.
  4. Kies "Geavanceerd zoeken" in de vervolgkeuzelijst.Klik op "Home" ->Klik op de omgekeerde knop achter "Zoeken" ->Klik op "Geavanceerd zoeken"
  5. Nu wordt het dialoogvenster "Zoeken en vervangen" geopend. Zorg ervoor dat het tabblad "Zoeken" is ingeschakeld en typ "[Az,0-9]{1,}\@[Az,0-9,\.]{1,}" in het tekstvak "Zoeken naar".
  6. Klik vervolgens op "Meer" om meer opties te bekijken.Type Strings ->Klik op "Meer"
  7. Vink vervolgens het vakje "Gebruik wildcards" aan onder "Zoekopties".
  8. Klik op de knop "Zoeken in" en selecteer "Hoofddocument".Vink "Gebruik wildcards" aan ->Klik op "Zoeken in" ->Kies "Hoofddocument"
  9. Nu kunt u zien dat alle e-mailadressen in dit document zijn gemarkeerd. Sluit het dialoogvenster.
  10. Klik vervolgens op "Kopiëren" in de groep "Klembord" onder het tabblad "Start".Klik op "Home"->Klik op "Kopiëren"
  11. Maak nu een nieuw Word-document aan.
  12. Klik met de rechtermuisknop op de nieuwe en kies "Alleen tekst behouden". U zult zien dat alle e-mailadressen daar in de kolom zijn geplakt.Kies 'Alleen tekst behouden'
  13. Klik vervolgens op "Vervangen" in de groep "Bewerken" onder het tabblad "Start".Klik op "Home" -> Klik op "Vervangen"
  14. Voer in het tabblad "Vervangen" "^p" en ";" in respectievelijk in de tekstvakken "Zoeken naar" en "Vervangen door".
  15. En vergeet niet om het vakje "Gebruik wildcards" leeg te maken.
  16. Klik vervolgens op de knop "Alles vervangen". Word zal u vertellen hoeveel vervangingen het heeft gemaakt en u kunt alle open vakken sluiten. Op het document staan ​​e-mailadressen gescheiden door puntkomma's.Voer in "Zoeken naar" en "Vervangen door" tekstvakken -> Wis het vak "Gebruik jokertekens" -> Klik op "Alles vervangen"E-mailadressen gescheiden door puntkomma's
  17. Wat u als laatste moet doen, is deze adressen naar uw mailbox kopiëren en dezelfde informatie voor alle ontvangers tegelijk verzenden.

Methode 2: gebruik VBA-codes

  1. Druk eerst op "Alt + F11" om de VBA-editor te openen.
  2. Plak vervolgens in het bewerkingsgebied de volgende codes:
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
  1. Druk vervolgens op de knop "Uitvoeren".Plak Codes -> Druk op "Uitvoeren"

Je krijgt dan een nieuw document met alle e-mailadressen erin, gescheiden door puntkomma's. En je kunt ze vervolgens gebruiken voor batchverwerking in Mailbox.

Effect van het uitvoeren van VBA-codes

Grijp de tijd om beschadigde bestanden op te halen

Toegegeven, je kunt altijd voor verrassingen komen te staan ​​door met Word te werken. Hoewel u versteld staat van de mogelijkheden, moet u uitkijken voor de mogelijke crashes die Word kan oplopen. Aan de ene kant houdt het je werk tegen. Aan de andere kant kan een nog grotere dreiging ontstaan ​​wanneer Word instort. En met grotere dreiging bedoelen we uw gecompromitteerde bestanden en onvervangbare gegevens.

Daarom blijven we u aanraden om back-ups te maken en, nog belangrijker, een programma aan te schaffen om herstel woordschade zodat u geen tijd verspilt met gedoe.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xls-tool voor het oplossen van problemen en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com

Reacties zijn gesloten.