Trong bài viết này, chúng tôi sẽ giới thiệu cho bạn 2 cách để trích xuất tất cả các địa chỉ email trong tài liệu Word và nối chúng để xử lý hàng loạt.
Thỉnh thoảng, bạn có thể phải gửi email cho nhiều người cùng một lúc. Tuy nhiên, mọi thứ có thể trở nên phức tạp một chút khi địa chỉ của chúng nằm rải rác xung quanh một tài liệu dài trong các trang. Để điều hướng toàn bộ tài liệu và tìm từng tài liệu một có thể tốn nhiều thời gian. Đó là lý do tại sao chúng tôi muốn chỉ cho bạn cách nhanh chóng để trích xuất tất cả chúng trong một lần di chuyển để xử lý hàng loạt trong hộp thư của bạn.
Phương pháp 1: Sử dụng tùy chọn “Tìm và thay thế”
- Trước hết, hãy mở tài liệu chứa địa chỉ email.
- Tiếp theo, chúng ta bắt đầu bằng cách nhấp vào tab “Trang chủ”.
- Tiếp theo, chọn nhấp vào hình tam giác lộn ngược trên biểu tượng “Tìm”.
- Trên danh sách thả xuống, chọn “Tìm kiếm nâng cao”.
- Bây giờ bạn sẽ mở hộp thoại “Tìm và Thay thế”. Đảm bảo tab “Tìm” được bật và nhập “[Az,0-9]{1,}\@[Az,0-9,\.]{1,}” vào hộp văn bản “Tìm gì”.
- Tiếp theo, nhấp vào “Thêm” để xem thêm các tùy chọn.
- Sau đó chọn hộp "Sử dụng ký tự đại diện" trong "Tùy chọn tìm kiếm".
- Nhấp vào nút “Tìm trong” và chọn “Tài liệu chính”.
- Bây giờ bạn có thể thấy tất cả các địa chỉ email trong tài liệu này đã được đánh dấu. Đóng hộp thoại.
- Tiếp theo, nhấp vào “Sao chép” trong nhóm “Clipboard” trong tab “Trang chủ”.
- Bây giờ hãy tạo một tài liệu Word mới.
- Nhấp chuột phải vào cái mới và chọn “Chỉ giữ văn bản”. Bạn sẽ thấy tất cả các địa chỉ email được dán ở đó trong cột.
- Sau đó nhấp vào “Thay thế” trong nhóm “Chỉnh sửa” trong tab “Trang chủ”.
- Trong “Dưới tab “Thay thế”, nhập “^p” và “;” trong hộp văn bản “Find what” và “Replace with” tương ứng.
- Và nhớ xóa hộp “Sử dụng ký tự đại diện”.
- Sau đó nhấp vào nút "Thay thế tất cả". Word sẽ cho bạn biết nó đã thực hiện bao nhiêu lần thay thế và bạn có thể đóng tất cả các hộp đang mở. Trên tài liệu là các địa chỉ email được phân tách bằng dấu chấm phẩy.
- Điều bạn cần làm cuối cùng là sao chép các địa chỉ này vào hộp thư của mình và gửi cùng một thông tin cho tất cả người nhận cùng một lúc.
Cách 2: Sử dụng mã VBA
- Đầu tiên, nhấn “Alt+F11” để mở trình chỉnh sửa VBA.
- Sau đó, trên khu vực chỉnh sửa, dán các mã sau:
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
- Tiếp theo nhấn nút "Chạy".
Sau đó, bạn sẽ có một tài liệu mới khác chứa tất cả các địa chỉ email, được phân tách bằng dấu chấm phẩy. Và bạn có thể bắt đầu sử dụng chúng để xử lý hàng loạt trong hộp thư.
Nắm bắt thời gian để truy xuất các tệp bị hỏng
Đúng vậy, bạn luôn có thể tìm thấy một số điều bất ngờ khi làm việc với Word. Trong khi bạn ngạc nhiên trước khả năng của nó, bạn nên đề phòng những sự cố có thể xảy ra mà Word có thể gặp phải. Một mặt, nó dừng công việc của bạn. Mặt khác, một mối đe dọa thậm chí còn lớn hơn có thể xuất hiện khi Word bị sập. Và bởi mối đe dọa lớn hơn, chúng tôi muốn nói đến các tệp bị xâm phạm và dữ liệu không thể thay thế của bạn.
Do đó, chúng tôi vẫn luôn khuyên bạn nên sao lưu dữ liệu và quan trọng nhất là sử dụng một chương trình để sao lưu. sửa chữa thiệt hại Word vì vậy bạn sẽ không lãng phí thời gian để loay hoay.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm công cụ sửa lỗi xls và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm