2 Möglichkeiten, alle E-Mail-Adressen aus Ihrem Word-Dokument zu extrahieren und für die Stapelverarbeitung zu verketten

Jetzt teilen:

In diesem Artikel werden zwei Möglichkeiten vorgestellt, wie Sie alle E-Mail-Adressen in einem Word-Dokument extrahieren und für die Stapelverarbeitung verketten können.

Ab und zu müssen Sie möglicherweise eine E-Mail an mehrere Personen gleichzeitig senden. Es kann jedoch etwas schwierig werden, wenn sich die Adressen über ein langes Dokument auf Seiten verteilen. Es kann zeitaufwändig sein, im gesamten Dokument zu navigieren und sie einzeln zu finden. Aus diesem Grund möchten wir Ihnen den schnellen Weg zeigen, alle in einem Zug für die Stapelverarbeitung in Ihrem Postfach zu extrahieren.

Methode 1: Verwenden Sie die Option „Suchen und Ersetzen“

  1. In erster LinieostÖffnen Sie das Dokument mit den E-Mail-Adressen.
  2. Dann start Klicken Sie auf die Registerkarte „Home“.
  3. Klicken Sie anschließend auf das umgedrehte Dreieck auf dem Symbol "Suchen".
  4. Wählen Sie in der Dropdown-Liste "Erweiterte Suche".Klicken Sie auf "Home" -> Klicken Sie auf die Upside-Down-Schaltfläche hinter "Suchen" -> Klicken Sie auf "Erweiterte Suche".
  5. Jetzt wird das Dialogfeld "Suchen und Ersetzen" geöffnet. Stellen Sie sicher, dass die Registerkarte "Suchen" aktiviert ist, und geben Sie "[Az, 0-9] {1,} \ @ [Az, 0-9, \.] {1,}" in das Textfeld "Suchen nach" ein.
  6. Klicken Sie anschließend auf "Mehr", um weitere Optionen anzuzeigen.Geben Sie Strings ein -> Klicken Sie auf "Mehr".
  7. Aktivieren Sie dann das Kontrollkästchen "Platzhalter verwenden" unter "Suchoptionen".
  8. Klicken Sie auf die Schaltfläche "Suchen in" und wählen Sie "Hauptdokument".Aktivieren Sie "Platzhalter verwenden" -> Klicken Sie auf "Suchen in" -> Wählen Sie "Hauptdokument".
  9. Jetzt können Sie sehen, dass alle E-Mail-Adressen in diesem Dokument hervorgehoben wurden. Schließen Sie das Dialogfeld.
  10. Klicken Sie anschließend in der Gruppe "Zwischenablage" auf der Registerkarte "Startseite" auf "Kopieren".Klicken Sie auf "Home" -> Klicken Sie auf "Kopieren"
  11. Erstellen Sie nun ein neues Word-Dokument.
  12. Klicken Sie mit der rechten Maustaste auf die neue und wählen Sie "Nur Text behalten". Sie werden sehen, dass alle E-Mail-Adressen dort in der Spalte eingefügt sind.Wählen Sie "Nur Text behalten"
  13. Klicken Sie dann in der Gruppe "Bearbeiten" auf der Registerkarte "Startseite" auf "Ersetzen".Klicken Sie auf "Home" -> Klicken Sie auf "Ersetzen"
  14. Geben Sie auf der Registerkarte "Ersetzen" "^ p" und ";" in den Textfeldern "Suchen nach" und "Ersetzen durch".
  15. Denken Sie auch daran, das Kontrollkästchen "Platzhalter verwenden" zu deaktivieren.
  16. Klicken Sie dann auf die Schaltfläche "Alle ersetzen". In Word erfahren Sie, wie viele Ersetzungen vorgenommen wurden, und Sie können alle offenen Felder schließen. Auf dem Dokument befinden sich E-Mail-Adressen, die durch Semikolons getrennt sind.Geben Sie in "Suchen nach" und "Ersetzen durch" Textfelder ein -> Deaktivieren Sie das Feld "Platzhalter verwenden" -> Klicken Sie auf "Alle ersetzen".Durch Semikolons getrennte E-Mail-Adressen
  17. Zuletzt müssen Sie diese Adressen in Ihr Postfach kopieren und für alle Empfänger gleichzeitig die gleichen Informationen senden.

Methode 2: Verwenden Sie VBA-Codes

  1. Drücken Sie zunächst „Alt + F11“, um den VBA-Editor zu öffnen.
  2. Fügen Sie dann im Bearbeitungsbereich die folgenden Codes ein:
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. Klicken Sie anschließend auf "Ausführen".Codes einfügen -> Klicken Sie auf "Ausführen"

Sie erhalten dann ein weiteres neues Dokument mit allen E-Mail-Adressen, die durch Semikolons getrennt sind. Und du kannst start Verwenden Sie sie für die Stapelverarbeitung im Postfach.

Auswirkung der Ausführung von VBA-Codes

Nutzen Sie die Zeit, um beschädigte Dateien abzurufen

Es stimmt, Sie können immer einige Überraschungen finden, wenn Sie mit Word arbeiten. Während Sie von den Funktionen begeistert sind, sollten Sie auf mögliche Abstürze achten, die Word erleiden kann. Einerseits stoppt es Ihre Arbeit. Andererseits kann eine noch größere Bedrohung auftreten, wenn Word zusammenbricht. Und mit größerer Bedrohung meinen wir Ihre kompromittierten Dateien und unersetzlichen Daten.

Aus diesem Grund empfehlen wir Ihnen weiterhin, Backups und m zu erstellenost Wichtig ist, ein Programm zu bekommen Wortschaden reparieren So verschwenden Sie keine Zeit damit, sich zu beschäftigen.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xls Problembehebungstool und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX

Jetzt teilen:

Kommentare sind geschlossen.