Đây là hướng dẫn để trích xuất tất cả địa chỉ email từ tài liệu Word trong Windows 11/10. Nếu bạn có tài liệu Word (DOC, DOCX) với nhiều địa chỉ email và bạn muốn sử dụng những địa chỉ email đó cho bất kỳ mục đích nào, thì việc tìm kiếm chúng theo cách thủ công sẽ thực sự mệt mỏi. Một giải pháp dễ dàng hơn cho bạn là trích xuất tất cả các địa chỉ email từ tài liệu và sau đó sử dụng chúng như bạn muốn. Giờ đây, để trích xuất địa chỉ email từ tài liệu Word, bạn không cần bất kỳ giải pháp nào của bên thứ ba. Trong bài viết này, tôi sẽ giới thiệu hai thủ thuật đơn giản để trích xuất địa chỉ email từ tài liệu Word. Bạn có thể làm như vậy trong ứng dụng Microsoft Word. Hãy để chúng tôi kiểm tra các phương pháp ngay bây giờ!
Cách trích xuất Địa chỉ Email từ tài liệu Word
Dưới đây là hai phương pháp để trích xuất tất cả địa chỉ email từ tài liệu Word trong Windows 11/10:
- Trích xuất địa chỉ email bằng tùy chọn Tìm nâng cao trong MS Word.
- Sử dụng mã VBA để trích xuất tất cả các địa chỉ email từ tài liệu Word.
Hãy để chúng tôi nói chi tiết về các phương pháp này!
1] Trích xuất địa chỉ email bằng tùy chọn Tìm nâng cao trong MS Word
Bạn có thể sử dụng tùy chọn Tìm / Tìm và thay thế Nâng cao trong Microsoft Word để trích xuất tất cả các địa chỉ email từ tài liệu Word. Dưới đây là các bước chính để làm như vậy:
- Khởi chạy Microsoft Word.
- Mở tài liệu Word có chứa địa chỉ email.
- Chuyển đến tùy chọn Tìm> Tìm nâng cao.
- Nhập một chuỗi vào trường Tìm gì.
- Bật hộp kiểm Sử dụng ký tự đại diện.
- Nhấp vào nút Tìm trong> Tài liệu chính.
- Quay lại tài liệu chính và sử dụng tùy chọn Sao chép.
- Tạo một tài liệu trống mới và dán các địa chỉ email đã sao chép.
Bây giờ, hãy trình bày chi tiết về các bước này ngay bây giờ!
Trước tiên, hãy chạy ứng dụng Microsoft Word trên PC của bạn, sau đó nhập tài liệu Word có chứa địa chỉ email mà bạn muốn trích xuất.
Bây giờ, trong Trang chủ , chuyển đến tab Chỉnh sửa và nhấp vào nút Tìm nút thả xuống. Sau đó, nhấn vào Tìm nâng cao lựa chọn. Thao tác này sẽ mở ra Tìm và thay thế hộp thoại.
Trong phần Tìm và thay thế hộp thoại, từ tab Tìm, nhập [A-z, 0-9] {1,} \ @ [A-z, 0-9, \.] {1,} trong chuỗi Tìm gì trường.
Sau đó, nhấn nút Thêm nút này sẽ mở ra các tùy chọn khác nhau.
Tiếp theo, bật tùy chọn Sử dụng ký tự đại diện hộp kiểm.
Sau đó, nhấp vào nút Tìm trong nút thả xuống và chọn Tài liệu chính tùy chọn.
Khi bạn làm điều đó, tất cả các địa chỉ thư sẽ được đánh dấu và chọn trong tài liệu Word nguồn, như được hiển thị trong ảnh chụp màn hình bên dưới.
Bây giờ những gì bạn phải làm là nhấp vào Sao chép nút hiện diện trong Trang chủ chuyển hướng. Ngoài ra, bạn cũng có thể sử dụng phím nóng sao chép, tức là phím tắt Ctrl + C. Nó sẽ sao chép tất cả các địa chỉ email có trong tài liệu Word vào khay nhớ tạm.
Tiếp theo, tạo một tài liệu Word trống hoặc mở ứng dụng Notepad và chỉ cần dán các địa chỉ email đã sao chép bằng tùy chọn chuyên dụng hoặc phím nóng Ctrl + V.
Giờ đây, bạn có thể lưu tài liệu với các địa chỉ email được trích xuất từ tài liệu Word và sử dụng các địa chỉ email theo cách bạn muốn.
Đọc :Cách tắt Splash Screen trong các chương trình Office.
2] Sử dụng mã VBA để trích xuất tất cả các địa chỉ email từ tài liệu Word
Bạn cũng có thể sử dụng mã Visual Basic for Applications (VBA) đơn giản để trích xuất tất cả các địa chỉ email từ tài liệu Word. Dưới đây là các bước chính để làm như vậy:
- Mở ứng dụng Word, sau đó nhập tài liệu nguồn.
- Khởi chạy VBA Editor.
- Chèn một mô-đun mới.
- Nhập mã VBA để trích xuất địa chỉ email.
- Chạy mã VBA để trích xuất tất cả các địa chỉ email.
Trước tiên, hãy mở ứng dụng Word, sau đó nhập tài liệu Word đầu vào mà bạn muốn trích xuất tất cả các địa chỉ email.
Bây giờ, khởi chạy VBA Editor bằng cách sử dụng Alt + F11 tổ hợp phím. Nếu bạn đã bật Nhà phát triển trên ruy-băng chính, bạn có thể chuyển đến tab Nhà phát triển và nhấp vào Visual Basic tùy chọn để mở VBA Editor.
Tiếp theo, trong cửa sổ VBA Editor, đi tới Chèn và nhấp vào Mô-đun tùy chọn.
Sau đó, trong phần bên phải, hãy nhập mã VBA bên dưới vào cửa sổ trình chỉnh sửa:
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
Sau đó, chuyển đến Chạy và nhấp vào trình đơn Chạy Macro tùy chọn hoặc đơn giản là phím F5. A Macro cửa sổ hộp thoại sẽ mở ra nơi bạn cần chọn macro đã tạo và sau đó nhấp vào nút Chạy.
Khi bạn nhấp vào nút Run, một tài liệu Word mới sẽ mở ra với tất cả các địa chỉ email được trích xuất từ tài liệu Word.
Bạn có thể chỉ cần lưu tài liệu bằng các địa chỉ email đã trích xuất và sử dụng chúng theo yêu cầu.
Vì Microsoft Word hỗ trợ nhiều định dạng tài liệu, các phương pháp trích xuất địa chỉ email này cũng có thể được sử dụng cho tài liệu không phải Word, chẳng hạn như XML, ODT, v.v.
Bây giờ hãy đọc: Trích xuất địa chỉ email bằng Easy Email Extractor.