วิธีแยกที่อยู่อีเมลจากเอกสาร Word

นี่คือบทช่วยสอนในการดึงที่อยู่อีเมลทั้งหมดจากเอกสาร Word ใน Windows 11/10 หากคุณมีเอกสาร Word (DOC, DOCX) ที่มีที่อยู่อีเมลหลายที่อยู่ และคุณต้องการใช้ที่อยู่อีเมลเหล่านั้นเพื่อวัตถุประสงค์ใดๆ การค้นหาด้วยตนเองจะเหนื่อยมาก ทางออกที่ง่ายกว่าสำหรับคุณคือการดึงที่อยู่อีเมลทั้งหมดออกจากเอกสารแล้วใช้ตามที่คุณต้องการ ในตอนนี้ ในการดึงที่อยู่อีเมลจากเอกสาร Word คุณไม่จำเป็นต้องมีโซลูชันของบริษัทอื่น ในบทความนี้ ผมจะแสดงเคล็ดลับง่ายๆ สองข้อในการดึงที่อยู่อีเมลจากเอกสาร Word คุณสามารถทำได้ในแอปพลิเคชัน Microsoft Word ให้เราตรวจสอบวิธีการตอนนี้!

วิธีการแยกที่อยู่อีเมลจากเอกสาร Word

มีสองวิธีในการแยกที่อยู่อีเมลทั้งหมดจากเอกสาร Word ใน Windows 11/10:

1. แยกที่อยู่อีเมลโดยใช้ตัวเลือกการค้นหาขั้นสูงใน MS Word
2. ใช้โค้ด VBA เพื่อแยกที่อยู่อีเมลทั้งหมดจากเอกสาร Word

ให้เราพูดถึงวิธีการเหล่านี้อย่างละเอียด!

1] แยกที่อยู่อีเมลโดยใช้ตัวเลือกการค้นหาขั้นสูงใน MS Word

คุณสามารถใช้ตัวเลือกการค้นหา/ค้นหาและแทนที่ขั้นสูงใน Microsoft Word เพื่อแยกที่อยู่อีเมลทั้งหมดจากเอกสาร Word ขั้นตอนหลักในการดำเนินการมีดังนี้:

1. เปิด Microsoft Word
2. เปิดเอกสาร Word ที่มีที่อยู่อีเมล
3. ไปที่ค้นหา> ตัวเลือกการค้นหาขั้นสูง
4. ป้อนสตริงในช่อง Find what
5. เปิดใช้งานช่องทำเครื่องหมาย ใช้สัญลักษณ์แทน
6. คลิกที่ปุ่ม ค้นหาใน> เอกสารหลัก
7. กลับไปที่เอกสารหลักและใช้ตัวเลือกคัดลอก
8. สร้างเอกสารเปล่าใหม่และวางที่อยู่อีเมลที่คัดลอกไว้

มาดูรายละเอียดขั้นตอนเหล่านี้กันดีกว่า!

ขั้นแรก เรียกใช้แอปพลิเคชัน Microsoft Word บนพีซีของคุณ จากนั้นนำเข้าเอกสาร Word ที่มีที่อยู่อีเมลที่คุณต้องการแยกออก

ตอนนี้ ใน หน้าแรก ไปที่แท็บ การแก้ไข และคลิกที่ค้นหา ปุ่มแบบเลื่อนลง จากนั้นแตะที่ การค้นหาขั้นสูง ตัวเลือก. นี่จะเป็นการเปิด ค้นหาและแทนที่ กล่องโต้ตอบ

ใน ค้นหาและแทนที่ กล่องโต้ตอบ จากแท็บค้นหา ให้ป้อน [A-z,0-9]{1,}\@[A-z,0-9,\.]{1,} สตริงใน ค้นหาสิ่งที่ สนาม

หลังจากนั้นให้กดปุ่ม เพิ่มเติม ปุ่มซึ่งจะเปิดตัวเลือกต่างๆ ขึ้น

ถัดไป เปิดใช้งาน ใช้สัญลักษณ์แทน ช่องทำเครื่องหมาย

จากนั้นคลิกที่ ค้นหาใน ปุ่มแบบเลื่อนลงและเลือก เอกสารหลัก ตัวเลือก

เมื่อคุณทำเช่นนั้น ที่อยู่อีเมลทั้งหมดจะถูกเน้นและเลือกในเอกสาร Word ต้นทาง ดังที่แสดงในภาพหน้าจอด้านล่าง

ตอนนี้สิ่งที่คุณต้องทำคือคลิกที่ คัดลอก ปุ่มที่มีอยู่ใน Home แท็บ อีกวิธีหนึ่ง คุณยังสามารถใช้ปุ่มลัดคัดลอก เช่น ปุ่มลัด Ctrl +C มันจะคัดลอกที่อยู่อีเมลทั้งหมดที่มีอยู่ในเอกสาร Word ไปยังคลิปบอร์ด

จากนั้น สร้างเอกสาร Word เปล่าหรือเปิดแอป Notepad แล้ววางที่อยู่อีเมลที่คัดลอกไว้โดยใช้ตัวเลือกเฉพาะหรือปุ่มลัด Ctrl + V

ขณะนี้ คุณสามารถบันทึกเอกสารด้วยที่อยู่อีเมลที่แยกจากเอกสาร Word และใช้ที่อยู่อีเมลได้ตามต้องการ

อ่าน :วิธีปิดการใช้งาน Splash Screen ในโปรแกรม Office

2] ใช้รหัส VBA เพื่อแยกที่อยู่อีเมลทั้งหมดจากเอกสาร Word

คุณยังสามารถใช้โค้ด Visual Basic for Applications (VBA) อย่างง่ายเพื่อแยกที่อยู่อีเมลทั้งหมดออกจากเอกสาร Word ขั้นตอนหลักในการดำเนินการมีดังนี้:

1. เปิดแอป Word แล้วนำเข้าเอกสารต้นฉบับ
2. เปิดตัวแก้ไข VBA
3. แทรกโมดูลใหม่
4. ป้อนรหัส VBA สำหรับการแยกที่อยู่อีเมล
5. เรียกใช้โค้ด VBA เพื่อแยกที่อยู่อีเมลทั้งหมด

ขั้นแรก ให้เปิดแอป Word จากนั้นนำเข้าเอกสาร Word ที่ป้อนข้อมูลซึ่งคุณต้องการแยกที่อยู่อีเมลทั้งหมด

ตอนนี้ เปิดตัวแก้ไข VBA โดยใช้ Alt + F11 คีย์ผสม หากคุณเปิดใช้งาน นักพัฒนา บนแถบริบบิ้นหลัก คุณสามารถไปที่แท็บนักพัฒนาและคลิกที่ Visual Basic ตัวเลือกเพื่อเปิด VBA Editor

ถัดไป ในหน้าต่าง VBA Editor ให้ไปที่ Insert เมนูและคลิกที่ โมดูล ตัวเลือก

หลังจากนั้น ในส่วนด้านขวา ให้ป้อนโค้ด 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

จากนั้นไปที่ วิ่ง เมนูและคลิกที่ เรียกใช้มาโคร ตัวเลือกหรือเพียงแค่ปุ่ม F5 มาโคร หน้าต่างโต้ตอบจะเปิดขึ้นในตำแหน่งที่คุณต้องเลือกมาโครที่สร้างขึ้น จากนั้นคลิกปุ่มเรียกใช้

เมื่อคุณคลิกที่ปุ่ม Run เอกสาร Word ใหม่จะเปิดขึ้นพร้อมกับที่อยู่อีเมลที่แยกออกมาทั้งหมดจากเอกสาร Word

คุณสามารถบันทึกเอกสารด้วยที่อยู่อีเมลที่แยกออกมาแล้วใช้งานได้ตามต้องการ

เนื่องจาก Microsoft Word รองรับรูปแบบเอกสารที่หลากหลาย วิธีการแยกที่อยู่อีเมลเหล่านี้จึงสามารถใช้กับเอกสารที่ไม่ใช่ Word ได้เช่นกัน เช่น XML, ODT เป็นต้น

อ่านแล้ว: แยกที่อยู่อีเมลโดยใช้ Easy Email Extractor