Note: The other languages of the website are Google-translated. Back to English
English English

วิธีการเลือกและคัดลอกไฮเปอร์ลิงก์ทั้งหมดจากเอกสาร Word

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

คัดลอกไฮเปอร์ลิงก์ทั้งหมดด้วย VBA

แยกที่อยู่ไฮเปอร์ลิงก์ทั้งหมดด้วย VBA

คัดลอกไฮเปอร์ลิงก์ทั้งหมดหรือเฉพาะที่อยู่ไปยังคลิปบอร์ดด้วย Kutools for Wordความคิดที่ดี 3


ลูกศรสีฟ้าฟองขวา คัดลอกไฮเปอร์ลิงก์ทั้งหมดด้วย 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 สำหรับ Word คุณสามารถทำสิ่งนี้ได้

Kutools สำหรับ Word, ที่มีมากกว่า 100 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจากการติดตั้ง Kutools for Word โปรดทำดังนี้:(ดาวน์โหลด Kutools for Word ฟรีทันที!)

1 คลิก Kutools พลัส > คัดลอกไฮเปอร์ลิงก์.
doc คัดลอกไฮเปอร์ลิงก์ 1

2. ในกล่องโต้ตอบ popping ให้เลือกหนึ่งตัวเลือกตามที่คุณต้องการ
doc คัดลอกไฮเปอร์ลิงก์ 2

ตอนนี้เลือกหนึ่งตำแหน่งที่คุณต้องการวางไฮเปอร์ลิงก์กด Ctrl + V เพื่อวาง

คัดลอกและวางไฮเปอร์ลิงก์
doc คัดลอกไฮเปอร์ลิงก์ 3
คัดลอกและวางที่อยู่ไฮเปอร์ลิงก์
doc คัดลอกไฮเปอร์ลิงก์ 4

เรียกดูแบบแท็บและแก้ไขเอกสาร Word / สมุดงาน Excel หลายรายการเช่น Firefox, Chrome, Internet Explore 10!

คุณอาจคุ้นเคยกับการดูหน้าเว็บหลายหน้าใน Firefox / Chrome / IE และสลับไปมาระหว่างหน้าเว็บเหล่านั้นโดยคลิกที่แท็บที่เกี่ยวข้อง ที่นี่ Office Tab สนับสนุนการประมวลผลที่คล้ายกันซึ่งช่วยให้คุณสามารถเรียกดูเอกสาร Word หรือสมุดงาน Excel หลายรายการในหน้าต่าง Word หรือหน้าต่าง Excel และสลับไปมาระหว่างกันได้อย่างง่ายดายโดยคลิกที่แท็บ
คลิกเพื่อทดลองใช้ Office Tab ฟรี!

เรียกดูเอกสารหลายคำในหน้าต่างเดียวเป็น Firefox

บทความญาติ:


เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (16)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อมก นี่แหละของในตำนาน มีประโยชน์มาก ขอบคุณมาก! :-)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ว้าว มันเยี่ยมมาก ขอบคุณมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีข้อความแจ้งว่า "ข้อผิดพลาดในการคอมไพล์: ข้อผิดพลาดทางไวยากรณ์" โปรดช่วยฉันด้วย ฉันต้องทำงานมากโดยใช้สิ่งนี้ ตอบกลับโดยเร็ว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อย่างแท้จริง! หนึ่งปีให้หลัง ฉันเจอปัญหาคล้ายๆ กันและรู้สึกแย่กับความช่วยเหลือที่ยอดเยี่ยมของคุณ!! ขอพระเจ้าอวยพรคุณ!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ. สิ่งที่ฉันต้องการเพื่อแยกวิเคราะห์เอกสาร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยอดเยี่ยม! ช่วยฉันดึงลิงก์บางลิงก์จากไฟล์ html ที่ฉันเปิดด้วย Word (Excel ละทิ้งบางลิงก์) นี่คือรหัสที่แก้ไขเพื่อให้สามารถสร้างไฟล์ csv ที่สามารถใช้งานได้ต่อไป [อ้าง]SubGetAllHyperlinks() ' Updateby20160504 ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us<br /> 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 สำหรับแต่ละ oLink ใน docCurrent.Hyperlinks Set rng = docNew.sertRange (rng.InsertRange oLink.TextToDisplay) rng.InsertAfter (", ") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) ถัดไป docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/quote]
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับสคริปต์นี้ สิ่งนี้ช่วยให้ฉันแยกลิงก์ 5K ขอบคุณมาก.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนี้ใช้ได้ดีสำหรับฉัน ทั้งสองตัวอย่างในคำอธิบายบทความไม่ได้ ขอบคุณมากและขอแสดงความนับถือ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่คือสิ่งที่ดี! ขอบคุณมาก. ฉันต้องทำการเปลี่ยนแปลงอะไรกับ GetAllHyperlinks() สำหรับกรณีต่อไปนี้ -- เอกสารต้นฉบับมีทั้งข้อความปกติและลิงก์ -- ต้องการผลลัพธ์: เอกสารเดียวกัน แต่แต่ละลิงก์จะตามด้วยช่องว่างและ URL ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันสามารถรับสคริปต์เดียวกันเพื่อทำงานใน Outlook ได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ความสูงของตำนาน ขอบคุณล้าน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันประหลาดใจ นั่นคือทอง คุณช่วยฉันทำงานมากมาย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก! นี่คือสิ่งที่ฉันกำลังมองหา!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อิมเพรสชันนเต้! Millón de gracias.Me มี acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería impresionante. ข้อกำหนดสำหรับสูตร una que separa los links del texto.Un saludo y un millón de gracias!!!

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เราจะส่งออกไฮเปอร์ลิงก์ไฟล์ word และแสดงข้อความเป็นไฟล์ excel ได้อย่างไร 
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ข้อมูลดี! ช่วยฉันในการแยกลิงก์จากไฟล์ html ที่ฉันเปิดใน Word อ้างถึง คุกกี้ clicker เป็นแนวคิดใหม่
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ