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

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

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

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

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

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

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

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

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

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

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

ตอนนี้ใน แท็บ หน้าแรก(Home)ไปที่ส่วนการแก้ไข(Editing)แล้วคลิกปุ่มค้นหา( Find)แบบเลื่อนลง จากนั้นแตะที่ตัวเลือกการค้นหาขั้นสูง (Advanced Find)ซึ่งจะเป็นการเปิดกล่องโต้ตอบค้นหาและแทนที่(Find and Replace)

วิธีแยกที่อยู่อีเมลจากเอกสาร 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มันจะคัดลอกที่อยู่อีเมลทั้งหมดที่มีอยู่ใน เอกสาร Wordไปยังคลิปบอร์ด

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

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

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

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

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

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

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

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

ตอนนี้ เปิดตัวแก้ไข VBA(VBA Editor)โดยใช้คีย์ผสมAlt + F11หากคุณเปิดใช้งาน แท็บ Developersบน Ribbon หลัก คุณสามารถไปที่ แท็บ 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 เอกสาร (Run)Wordใหม่จะเปิดขึ้นพร้อมกับที่อยู่อีเมลที่แยกออกมาทั้งหมดจากเอกสารWord

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

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

อ่านแล้ว: (Now read:) แยกที่อยู่อีเมลโดยใช้ Easy Email Extractor(Extract email addresses using Easy Email Extractor.)



About the author

ฉันเป็นวิศวกรซอฟต์แวร์ที่มีประสบการณ์มากกว่า 10 ปีในการพัฒนาและบำรุงรักษาแอปพลิเคชัน Windows 11 หรือ 10 ฉันยังมีประสบการณ์ในการทำงานกับ Google Docs และ Microsoft Edge ทักษะของฉันในด้านเหล่านี้ทำให้ฉันเป็นผู้สมัครที่ยอดเยี่ยมสำหรับบทบาทวิศวกรรมซอฟต์แวร์ในอนาคต



Related posts