Πώς να εξαγάγετε τις διευθύνσεις email από το έγγραφο του Word

Ακολουθεί ένα σεμινάριο για την εξαγωγή όλων των διευθύνσεων email από έγγραφα του Word(extract all email addresses from Word documents) στα Windows 11/10 . Εάν έχετε έγγραφα του Word ( DOC , DOCX ) με πολλές διευθύνσεις email και θέλετε να χρησιμοποιήσετε αυτές τις διευθύνσεις email για οποιοδήποτε σκοπό, θα είναι πραγματικά κουραστικό να τις αναζητήσετε με μη αυτόματο τρόπο. Μια ευκολότερη λύση για εσάς είναι να εξαγάγετε όλες τις διευθύνσεις email από το έγγραφο και στη συνέχεια να τις χρησιμοποιήσετε όπως θέλετε. Τώρα, για να εξαγάγετε διευθύνσεις email από έγγραφα του Word , δεν χρειάζεστε λύση τρίτων. Σε αυτό το άρθρο, θα δείξω δύο απλά κόλπα για την εξαγωγή διευθύνσεων email από έγγραφα του Word . Μπορείτε να το κάνετε στο Microsoft Wordεφαρμογή. Ας δούμε τώρα τις μεθόδους!

Πώς να εξαγάγετε τις διευθύνσεις email(Email Addresses) από το έγγραφο του Word

Ακολουθούν οι δύο μέθοδοι για να εξαγάγετε όλες τις διευθύνσεις email από ένα έγγραφο του Word στα Windows 11/10 :

  1. Εξαγάγετε(Extract) διευθύνσεις email χρησιμοποιώντας την επιλογή Advanced Find στο MS Word .
  2. Χρησιμοποιήστε(Use VBA) τον κώδικα VBA για να εξαγάγετε όλες τις διευθύνσεις email από ένα έγγραφο του Word .

Ας μιλήσουμε για αυτές τις μεθόδους λεπτομερώς!

1] Εξαγωγή(Extract) διευθύνσεων email χρησιμοποιώντας την επιλογή Advanced Find στο MS Word

Μπορείτε να χρησιμοποιήσετε την επιλογή Advanced Find/ Find και αντικατάσταση στο Microsoft Word για να εξαγάγετε όλες τις διευθύνσεις email από έγγραφα του Word . Εδώ είναι τα κύρια βήματα για να το κάνετε:

  1. Εκκινήστε το Microsoft Word.
  2. Ανοίξτε ένα έγγραφο του Word που περιέχει διευθύνσεις email.
  3. Μεταβείτε στην επιλογή Find > Advanced Find .
  4. Εισαγάγετε μια συμβολοσειρά στο πεδίο Find what.
  5. Ενεργοποιήστε το πλαίσιο ελέγχου Χρήση χαρακτήρων μπαλαντέρ.
  6. Κάντε κλικ(Click) στο κουμπί Εύρεση(Find) σε > Main Document .
  7. Επιστρέψτε στο κύριο έγγραφο και χρησιμοποιήστε την επιλογή Αντιγραφή(Copy) .
  8. Δημιουργήστε ένα νέο κενό έγγραφο και επικολλήστε τις αντιγραμμένες διευθύνσεις email.

Τώρα, ας αναλύσουμε αυτά τα βήματα τώρα!

Αρχικά, εκτελέστε την εφαρμογή Microsoft Word στον υπολογιστή σας και, στη συνέχεια, εισαγάγετε ένα έγγραφο του Word που περιέχει τις διευθύνσεις email που θέλετε να εξαγάγετε.

Τώρα, στην καρτέλα Αρχική(Home) σελίδα, μεταβείτε στην ενότητα Επεξεργασία(Editing) και κάντε κλικ στο αναπτυσσόμενο κουμπί Εύρεση . ( Find)Στη συνέχεια, πατήστε στην επιλογή Advanced Find . Αυτό θα ανοίξει ένα παράθυρο διαλόγου Εύρεση και αντικατάσταση .(Find and Replace)

Πώς να εξαγάγετε τις διευθύνσεις email από το έγγραφο του Word

Στο πλαίσιο διαλόγου Εύρεση και αντικατάσταση(Find and Replace) , από την καρτέλα Εύρεση , πληκτρολογήστε τη συμβολοσειρά (Find)[A-z,0-9]{1,}\@[A-z,0-9,\.]{1,} στο πεδίο Εύρεση τι(Find what) .

Μετά από αυτό, πατήστε το κουμπί Περισσότερα(More) , το οποίο θα ανοίξει διάφορες επιλογές.

Στη συνέχεια, ενεργοποιήστε το πλαίσιο ελέγχου Χρήση χαρακτήρων μπαλαντέρ(Use wildcards) .

Στη συνέχεια, κάντε κλικ στο αναπτυσσόμενο κουμπί Εύρεση σε και επιλέξτε την επιλογή (Find In)Κύριο έγγραφο(Main Document) .

Καθώς το κάνετε αυτό, όλες οι διευθύνσεις αλληλογραφίας θα επισημανθούν και θα επιλεγούν στο έγγραφο προέλευσης του Word , όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.

Τώρα αυτό που πρέπει να κάνετε είναι να κάνετε κλικ στο κουμπί Αντιγραφή(Copy) που υπάρχει στην καρτέλα Αρχική(Home) σελίδα. Εναλλακτικά, μπορείτε επίσης να χρησιμοποιήσετε το πλήκτρο συντόμευσης αντιγραφής, δηλαδή το πλήκτρο συντόμευσης Ctrl +CΘα αντιγράψει όλες τις διευθύνσεις email που υπάρχουν στο έγγραφο του Word στο πρόχειρο.

Στη συνέχεια, δημιουργήστε ένα κενό έγγραφο του Word ή ανοίξτε την εφαρμογή Σημειωματάριο(Notepad) και απλώς επικολλήστε τις αντιγραμμένες διευθύνσεις email χρησιμοποιώντας την αποκλειστική επιλογή ή το πλήκτρο πρόσβασης Ctrl + V

Τρόπος εξαγωγής διευθύνσεων email από έγγραφο του Word στα Windows 11/10

Τώρα μπορείτε να αποθηκεύσετε το έγγραφο με τις εξαγόμενες διευθύνσεις email από το έγγραφο του Word και να χρησιμοποιήσετε τις διευθύνσεις email όπως θέλετε.

Διαβάστε(Read) : Πώς να απενεργοποιήσετε το Splash Screen σε προγράμματα του Office .

2] Χρησιμοποιήστε(Use VBA) τον κώδικα VBA για να εξαγάγετε όλες τις διευθύνσεις email από ένα έγγραφο του Word

Μπορείτε επίσης να χρησιμοποιήσετε έναν απλό κώδικα της Visual Basic for Applications ( VBA ) για να εξαγάγετε όλες τις διευθύνσεις email από έγγραφα του Word . Εδώ είναι τα κύρια βήματα για να το κάνετε:

  1. Ανοίξτε την εφαρμογή Word και, στη συνέχεια, εισαγάγετε το έγγραφο προέλευσης.
  2. Εκκινήστε το VBA Editor.
  3. Εισαγάγετε μια νέα μονάδα.
  4. Εισαγάγετε(Enter) τον κωδικό VBA για εξαγωγή διεύθυνσης email.(VBA)
  5. Εκτελέστε τον κώδικα VBA για να εξαγάγετε όλες τις διευθύνσεις email.

Αρχικά, ανοίξτε την εφαρμογή Word και, στη συνέχεια, εισαγάγετε το έγγραφο εισόδου του Word από το οποίο θέλετε να εξαγάγετε όλες τις διευθύνσεις email.

Τώρα, εκκινήστε το πρόγραμμα επεξεργασίας VBA(VBA Editor) χρησιμοποιώντας το συνδυασμό Alt + F11 . Εάν έχετε ενεργοποιήσει την καρτέλα Developers στην κύρια κορδέλα, μπορείτε να μεταβείτε στην καρτέλα Developer και να κάνετε κλικ στην επιλογή Visual Basic για να ανοίξετε το VBA Editor.

Στη συνέχεια, στο παράθυρο VBA Editor , μεταβείτε στο μενού Εισαγωγή και κάντε κλικ στην επιλογή ( Insert)Module .

Στη συνέχεια, στη δεξιά ενότητα, εισαγάγετε τον παρακάτω κωδικό VBA στο παράθυρο του προγράμματος επεξεργασίας:

Sub ExtractAllEmailAddressesFromDocument()
Dim strEmailAddresses As String

' Extract all email addresses in a document.
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

Στη συνέχεια, μεταβείτε στο μενού Εκτέλεση και κάντε κλικ στην επιλογή (Run)Εκτέλεση μακροεντολών(Run Macros) ή απλώς στο πλήκτρο F5. Θα ανοίξει ένα παράθυρο διαλόγου Μακροεντολές όπου πρέπει να επιλέξετε τη μακροεντολή που δημιουργήσατε και, στη συνέχεια, κάντε κλικ στο κουμπί (Macros)Εκτέλεση(Run) .

Καθώς κάνετε κλικ στο κουμπί Εκτέλεση(Run) , θα ανοίξει ένα νέο έγγραφο του Word με όλες τις εξαγόμενες διευθύνσεις email από το έγγραφο του (Word)Word .

Μπορείτε απλώς να αποθηκεύσετε το έγγραφο με εξαγόμενες διευθύνσεις email και να τις χρησιμοποιήσετε όπως απαιτείται.

Καθώς το Microsoft Word(Microsoft Word) υποστηρίζει μια ποικιλία μορφών εγγράφων, αυτές οι μέθοδοι εξαγωγής διευθύνσεων email μπορούν να χρησιμοποιηθούν και για έγγραφα που δεν ανήκουν στο Word, όπως XML , ODT κ.λπ.

Διαβάστε τώρα: (Now read:) Εξαγωγή διευθύνσεων email χρησιμοποιώντας το Easy Email Extractor.(Extract email addresses using Easy Email Extractor.)



About the author

Είμαι μηχανικός λογισμικού με περισσότερα από 10 χρόνια εμπειρίας στα προϊόντα Windows, Office και Google. Είμαι ειδικός στο Word, το Excel και το PowerPoint και έχω γράψει αρκετά βιβλία για το θέμα. Στον ελεύθερο χρόνο μου, μου αρέσει να παίζω βιντεοπαιχνίδια, να διαβάζω βιβλία και να βλέπω ταινίες.



Related posts