วิธีการเลือกและคัดลอกไฮเปอร์ลิงก์ทั้งหมดจากเอกสาร Word
ในบางกรณีคุณมีเอกสารขนาดยาวที่มีการเชื่อมโยงหลายมิติหลายรายการและคุณจะต้องคัดลอกไฮเปอร์ลิงก์ทั้งหมดพร้อมกันจากเอกสารนี้จากนั้นจึงวางลงในเอกสารอื่น มีวิธีใดบ้างที่สามารถคัดลอกทั้งหมดได้อย่างรวดเร็วในคราวเดียวแทนที่จะคัดลอกทีละรายการ
คัดลอกไฮเปอร์ลิงก์ทั้งหมดด้วย VBA
แยกที่อยู่ไฮเปอร์ลิงก์ทั้งหมดด้วย VBA
คัดลอกไฮเปอร์ลิงก์ทั้งหมดหรือเฉพาะที่อยู่ไปยังคลิปบอร์ดด้วย Kutools for Word
คัดลอกไฮเปอร์ลิงก์ทั้งหมดด้วย VBA
1. เปิดเอกสาร Word ที่คุณต้องการคัดลอกไฮเปอร์ลิงก์แล้วกด Alt + F11 เพื่อเปิด หน้าต่างโปรแกรมประยุกต์ Microsoft Visual.
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและคัดลอก VBA ต่อไปนี้ลงในหน้าต่าง
VBA: คัดลอกไฮเปอร์ลิงก์ทั้งหมด
Sub HyperlinksExtract()
'Updateby20140214
Dim oLink As Hyperlink
Dim docCurrent As Document 'current document
Dim docNew As Document 'new document
Dim rngStory As StoryRanges
Set docCurrent = ActiveDocument
Set docNew = Documents.Add
For Each oLink In docCurrent.Hyperlinks
oLink.Range.Copy
docNew.Activate
Selection.Paste
Selection.TypeParagraph
Next
Set docNew = Nothing
Set docCurrent = Nothing
End Sub
3 คลิกที่ วิ่ง เพื่อเรียกใช้รหัส VBA จากนั้นไฮเปอร์ลิงก์ทั้งหมดจะถูกคัดลอกไปยังเอกสารใหม่ คุณสามารถบันทึกเอกสารใหม่ได้ในภายหลัง คุณสามารถดูผลลัพธ์ได้ดังนี้
 |
 |
 |
หมายเหตุ VBA นี้สามารถทำงานได้ก็ต่อเมื่อไฮเปอร์ลิงก์ทั้งหมดเชื่อมโยงกับ word หากมีรูปภาพที่มีไฮเปอร์ลิงก์โค้ด VBA นี้จะไม่สามารถใช้งานได้
แยกที่อยู่ไฮเปอร์ลิงก์ทั้งหมดด้วย VBA
1. เปิดเอกสาร Word ที่คุณต้องการแยกการเชื่อมโยงหลายมิติแล้วกด Alt + F11 เพื่อเปิด หน้าต่างโปรแกรมประยุกต์ Microsoft Visual.
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและคัดลอก VBA ต่อไปนี้ลงในหน้าต่าง
VBA: แยกที่อยู่ของไฮเปอร์ลิงก์ทั้งหมด
Function GetAllHyperlinks()
'Updateby20140214
Dim docCurrent As Document
Dim docNew As Document
Dim oLink As Hyperlink
Dim rng As Range
Application.ScreenUpdating = False
Set docCurrent = ActiveDocument
Set docNew = Documents.Add
For Each oLink In docCurrent.Hyperlinks
Set rng = docNew.Range
rng.Collapse
rng.InsertParagraph
rng.InsertAfter (oLink.Address)
Next
docNew.Activate
Application.ScreenUpdating = True
Application.ScreenRefresh
End Function
3 คลิกที่ วิ่ง เพื่อเรียกใช้รหัส VBA จากนั้นที่อยู่ไฮเปอร์ลิงก์ทั้งหมดจะถูกแยกออกมาในเอกสารใหม่คุณสามารถบันทึกได้ในภายหลัง
|
|
 |
หมายเหตุ ที่อยู่ของไฮเปอร์ลิงก์แยกไม่อยู่ในลำดับเดิม
คัดลอกไฮเปอร์ลิงก์ทั้งหมดหรือเฉพาะที่อยู่ไปยังคลิปบอร์ดด้วย Kutools for Word
หากคุณต้องการคัดลอกไฮเปอร์ลิงก์ทั้งหมดหรือเฉพาะที่อยู่ไปยังคลิปบอร์ดจากเอกสาร Word ได้อย่างง่ายดายและรวดเร็วไฟล์ คัดลอกไฮเปอร์ลิงก์ ประโยชน์ของ Kutools for Word คุณสามารถทำสิ่งนี้ได้
| Kutools for Word, ที่มีมากกว่า ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น | ||
หลังจากการติดตั้ง Kutools for Wordโปรดดำเนินการดังนี้:(ดาวน์โหลดฟรี Kutools for Word ตอนนี้!)
1 คลิก Kutools พลัส > คัดลอกไฮเปอร์ลิงก์.
2. ในกล่องโต้ตอบ popping ให้เลือกหนึ่งตัวเลือกตามที่คุณต้องการ
ตอนนี้เลือกหนึ่งตำแหน่งที่คุณต้องการวางไฮเปอร์ลิงก์กด Ctrl + V เพื่อวาง
| คัดลอกและวางไฮเปอร์ลิงก์ |
 |
| คัดลอกและวางที่อยู่ไฮเปอร์ลิงก์ |
 |
การสาธิต: คัดลอกไฮเปอร์ลิงก์
เรียกดูแบบแท็บและแก้ไขเอกสาร Word / สมุดงาน Excel หลายรายการเช่น Firefox, Chrome, Internet Explore 10! |
|
คุณอาจคุ้นเคยกับการดูหน้าเว็บหลายหน้าใน Firefox/Chrome/IE และสลับไปมาระหว่างหน้าเหล่านั้นโดยคลิกที่แท็บที่เกี่ยวข้องได้อย่างง่ายดาย ที่นี่, Office Tab รองรับการประมวลผลที่คล้ายคลึงกัน ซึ่งช่วยให้คุณสามารถเรียกดูเอกสาร Word หรือสมุดงาน Excel หลายรายการในหน้าต่าง Word หรือ Excel หน้าต่างเดียว และสลับไปมาระหว่างเอกสารเหล่านี้ได้อย่างง่ายดายโดยคลิกที่แท็บ |
 |
บทความญาติ:
- แทรกลบและแสดงรายการไฮเปอร์ลิงก์ทั้งหมดของเอกสารปัจจุบันใน Word
- แทรกการเชื่อมโยงหลายมิติลงในเอกสารใน Word
- ลบการเชื่อมโยงหลายมิติทั้งหมดใน Word
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools for Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!
เจาะลึกคุณสมบัติเด่นด้านล่างหรือ คลิกที่นี่เพื่อสำรวจพลังทั้งหมดของ Kutools for Word.
📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า / ผสานเอกสาร / ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/XLSX) / แบทช์แปลงเป็น PDF / ส่งออกเพจเป็นรูปภาพ / พิมพ์หลายไฟล์พร้อมกัน ...
✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์ / ปรับขนาดรูปภาพทั้งหมด / ย้ายแถวและคอลัมน์ของตาราง / แปลงตารางเป็นข้อความ ...
🧹 ทำความสะอาดได้อย่างง่ายดาย: กวาดออกไป พื้นที่พิเศษ / แบ่งส่วน / ส่วนหัวทั้งหมด / กล่องข้อความ / เชื่อมโยงหลายมิติ / หากต้องการทราบเครื่องมือในการถอดเพิ่มเติม โปรดไปที่ Remove Group ของเรา
➕ ส่วนแทรกโฆษณา: สิ่งที่ใส่เข้าไป ตัวคั่นหลักพัน / กล่องกาเครื่องหมาย / ปุ่มวิทยุ / คิวอาร์โค้ด / บาร์โค้ด / ตารางเส้นทแยงมุม / คำอธิบายสมการ / คำบรรยายภาพ / คำบรรยายตาราง / รูปภาพหลายภาพ / ค้นพบเพิ่มเติมในกลุ่มแทรกของเรา
🔍 การเลือกที่แม่นยำ: ระบุหน้าเฉพาะ / ตาราง / รูปร่าง / หัวเรื่องย่อหน้า / นำทางอย่างง่ายดายโดยใช้กลุ่มที่เลือกของเรา
⭐ การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ / แทรกข้อความซ้ำอัตโนมัติ / สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น / 11 เครื่องมือการแปลง ...
แปลงงาน Word ของคุณด้วย Kutools 👉 ดาวน์โหลดพร้อมทดลองใช้ 30 วันทันที 🚀.
