วิธีแยกที่อยู่อีเมลจากเอกสาร 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 :
- แยก(Extract)ที่อยู่อีเมลโดยใช้ ตัวเลือก การค้นหาขั้นสูง(Advanced Find)ในMS Word(MS Word)
- ใช้รหัส VBA(Use VBA)เพื่อแยกที่อยู่อีเมลทั้งหมดจากเอกสารWord
ให้เราพูดถึงวิธีการเหล่านี้โดยละเอียด!
1] แยก(Extract)ที่อยู่อีเมลโดยใช้ ตัวเลือก การค้นหาขั้นสูง(Advanced Find)ในMS Word
คุณสามารถใช้ตัวเลือกAdvanced Find/ Findและแทนที่ขั้นสูงในMicrosoft Wordเพื่อแยกที่อยู่อีเมลทั้งหมดจากเอกสารWord นี่คือขั้นตอนหลักในการดำเนินการดังกล่าว:
- เปิดตัว Microsoft Word
- เปิด เอกสาร Wordที่มีที่อยู่อีเมล
- ไปที่Find > Advanced Findตัวเลือก
- ป้อนสตริงในช่องค้นหา(Find)สิ่งที่
- เปิดใช้งานช่องทำเครื่องหมายใช้สัญลักษณ์แทน
- คลิก(Click)ที่ปุ่มค้นหา(Find)ใน> Main Document
- กลับไปที่เอกสารหลักและใช้ตัวเลือกคัดลอก(Copy)
- สร้างเอกสารเปล่าใหม่และวางที่อยู่อีเมลที่คัดลอกไว้
มาดูรายละเอียดขั้นตอนเหล่านี้กันตอนนี้เลย!
ขั้นแรก เรียกใช้ แอปพลิเคชัน Microsoft Wordบนพีซีของคุณ จากนั้นนำเข้า เอกสาร Wordที่มีที่อยู่อีเมลที่คุณต้องการแยก
ตอนนี้ใน แท็บ หน้าแรก(Home)ไปที่ส่วนการแก้ไข(Editing)แล้วคลิกปุ่มค้นหา( Find)แบบเลื่อนลง จากนั้นแตะที่ตัวเลือกการค้นหาขั้นสูง (Advanced Find)ซึ่งจะเป็นการเปิดกล่องโต้ตอบค้นหาและแทนที่(Find and Replace)
ในกล่องโต้ตอบค้นหาและแทนที่ จากแท็บ (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และใช้ที่อยู่อีเมลตามที่คุณต้องการ
อ่าน(Read) : วิธี ปิดการใช้ งานSplash Screen ในโปรแกรม Office
2] ใช้รหัส VBA(Use VBA)เพื่อแยกที่อยู่อีเมลทั้งหมดจากเอกสารWord
คุณยังสามารถใช้ โค้ด Visual Basic for Applications ( VBA ) อย่างง่าย เพื่อแยกที่อยู่อีเมลทั้งหมดออกจากเอกสารWord นี่คือขั้นตอนหลักในการดำเนินการดังกล่าว:
- เปิด แอป Wordแล้วนำเข้าเอกสารต้นทาง
- เปิดตัวแก้ไข VBA
- ใส่โมดูลใหม่
- ป้อน(Enter)รหัสVBAสำหรับการแยกที่อยู่อีเมล
- เรียกใช้ รหัส 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.)
Related posts
วิธีการสร้าง Temporary Email Addresses กับ YOPmail
วิธีใช้ Rewrite Suggestions ใน Word สำหรับ Web application
Excel, Word or PowerPoint เริ่มต้นไม่ได้ครั้งสุดท้าย
วิธีการสร้าง Booklet or Book ด้วย Microsoft Word
วิธีปิดเครื่องหมาย Paragraph ใน Microsoft Word
วิธีการเปลี่ยนค่าเริ่มต้น File Format สำหรับการบันทึกใน Word, Excel, PowerPoint
วิธีการใส่ Text จาก Word file เป็น Publisher publication
วิธีการใส่ลายน้ำใน Word document
วิธีการซ้อนทับรูปภาพใน Word
วิธีการแสดง Spelling and Grammar tool บน Quick Access Toolbar ใน Word
ไม่สามารถเปิดไฟล์ได้เนื่องจากมีปัญหากับเนื้อหา
Keyboard Shortcuts ไม่ทำงานใน Word
วิธีทำใบปลิวใน Microsoft Word
วิธีใช้ Mail Merge สำหรับ Letters ใน Word
บันทึก Word document ไม่แสดงใน print preview or printing
Jarte เป็นแบบพกพาที่อุดมไปด้วยคุณสมบัติที่หลากหลาย Word Processor สำหรับ Windows PC
Fix Error, Bookmark ไม่ได้กำหนดไว้ใน Microsoft Word
วิธีการค้นหา Online Templates ใน Microsoft Word
วิธีการวาดใน Microsoft Word โดยใช้เครื่องมือ Draw Tab
วิธีการทำ page landscape ใน Word