วิธี Batch ตรวจสอบการเชื่อมโยงหลายมิติทั้งหมดในเอกสาร Word ของคุณผ่าน VBA

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

เอกสาร Word สามารถมีการเชื่อมโยงหลายมิติหลายร้อยรายการ ในจำนวนนี้มีบางลิงก์ที่ไม่ถูกต้องซึ่งไม่สามารถนำคุณไปสู่หน้าเว็บที่ถูกต้องได้ ดังนั้นเราจึงต้องการเสนอวิธีตรวจสอบลิงก์ทั้งหมดในเอกสารผ่าน VBA อย่างรวดเร็ว

ติดตั้งและบันทึกแมโคร Word

1. ก่อนอื่นให้เปิดโปรแกรมแก้ไข VBA ด้วย“ Alt + F11”
2. จากนั้นคลิกโครงการ "ปกติ"
3. จากนั้นคลิกแท็บ“ แทรก” บนเมนูแถบเครื่องมือ
4. และเลือก“ โมดูล” ในเมนู
5. ดับเบิลคลิกที่โมดูลเพื่อเปิดพื้นที่แก้ไขและวางรหัสต่อไปนี้:

Function CheckURL(strURL As String) As Boolean
  Dim objDemand As Object
  Dim varResult As Variant
 
  On Error GoTo ErrorHandler
  Set objDemand = CreateObject("WinHttp.WinHttpRequest.5.1")
 
  With objDemand
    .Open "GET", strURL, False
    .Send
    varResult = .StatusText
  End With
 
  Set objDemand = Nothing
 
  If varResult = "OK" Then
    CheckURL = True
  Else
    CheckURL = False
  End If
 
ErrorHandler:
End Function

Sub ReturnURLCheck()
  Dim objLink As Hyperlink
  Dim strLinkText As String
  Dim strLinkAddress As String
  Dim strResult As String
  Dim nInvalidLink As Integer, nTotalLinks As Integer
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nTotalLinks = objDoc.Hyperlinks.Count
  nInvalidLink = 0
 
  With objDoc
    For Each objLink In .Hyperlinks
      strLinkText = objLink.Range.Text
      strLinkAddress = objLink.Address
 
      If Not CheckURL(strLinkAddress) Then
        nInvalidLink = nInvalidLink + 1
        strResult = frmCheckURLs.txtShowResult.Text
        frmCheckURLs.txtShowResult.Text = strResult & nInvalidLink & ". Invalid Link Information:" & vbNewLine & _
                                          "Displayed Text: " & strLinkText & vbNewLine & _
                                           "Address: " & strLinkAddress & vbNewLine & vbNewLine
      End If
    Next objLink
 
    frmCheckURLs.txtTotalLinks.Text = nTotalLinks 
    frmCheckURLs.txtNumberOfInvalidLinks.Text = nInvalidLink
    frmCheckURLs.Show Modal
 
  End With
  Application.ScreenUpdating = True
End Sub

Sub HighlightInvalidLinks()
  Dim objLink As Hyperlink
  Dim strLinkAddress As String
  Dim strResult As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objLink In .Hyperlinks
      strLinkAddress = objLink.Address
 
      If Not CheckURL(strLinkAddress) Then
        objLink.Range.HighlightColorIndex = wdYellow
      End If
    Next objLink
  End With
End Sub

6. จากนั้นคลิก "บันทึก"
7. จากนั้นกำหนดปุ่มสำหรับมาโคร คุณสามารถดูบทความต่อไปนี้สำหรับข้อมูลโดยละเอียด:

วิธีลบการจัดรูปแบบของข้อความที่วางด้วยมาโครและ VBA ใน Word ของคุณ

สร้างแบบฟอร์มผู้ใช้

ด้วยแบบฟอร์มผู้ใช้คุณจะเห็นจำนวนลิงก์ทั้งหมดในเอกสารปัจจุบันจำนวนลิงก์ที่ไม่ถูกต้องและรายละเอียดเพิ่มเติมได้อย่างชัดเจน

1. ขั้นแรกให้คลิก“ แทรก” ที่แถบเครื่องมืออีกครั้ง แต่คราวนี้เลือก“ UserForm”
2. จากนั้นกด“ F4” เพื่อเปิด“ หน้าต่างคุณสมบัติ” ที่มุมล่างซ้าย ขนาดหน้าต่างสามารถปรับได้
3. ตอนนี้ตั้งชื่อแบบฟอร์มผู้ใช้เป็น“ frmCheckURLs”
4. ตั้งคำบรรยายเป็น "ตรวจสอบ URL"
5. จากนั้นตั้งค่าแบบอักษรให้ถูกต้อง
6. จากนั้นคลิกปุ่ม "กล่องเครื่องมือ" ที่แถบเครื่องมือ
7. ตอนนี้คลิก "ป้ายกำกับ" บนกล่องเครื่องมือ ใช้เมาส์ลากป้ายชื่อสี่เหลี่ยมผืนผ้าบนแบบฟอร์มผู้ใช้
8. คลิกที่ฉลากเพื่อเปิดใช้งานหน้าต่างคุณสมบัติ ตั้งชื่อป้ายกำกับเป็น“ lblInvalidURLs” และติดป้ายคำบรรยายเป็น“ URL ไม่ถูกต้อง:”
9. จากนั้นเลือกแบบอักษรและสีที่เหมาะสมสำหรับข้อความคำบรรยายป้ายกำกับ
10. เลือก“ กล่องข้อความ” บนกล่องเครื่องมือและแทรกกล่องข้อความในแบบฟอร์มผู้ใช้ ปรับขนาด
11. จากนั้นตั้งชื่อกล่องข้อความเป็น "txtShowResult"
12. ตั้งค่าแบบอักษรและสีตามต้องการ
13. ค้นหา“ MultiLine” และตั้งค่าเป็น“ True”
14. ค้นหา“ แถบเลื่อน” และเลือกแถบแนวตั้ง
15. จากนั้นสร้างป้ายกำกับและกล่องข้อความอีกสองกล่อง
16. จากนั้นตั้งชื่อป้ายกำกับแรกเป็น“ lblTotalLinks” และตั้งคำบรรยายเป็น“ ลิงก์ทั้งหมดในเอกสารนี้”
17. และตั้งชื่อป้ายกำกับที่สองเป็น“ lblNumberOfInvalidLinks” และตั้งคำอธิบายภาพเป็น“ จำนวนลิงก์ที่ไม่ถูกต้อง”
18. ตั้งชื่อกล่องข้อความแรกเป็น“ txtTotalLinks” และช่องที่สองเป็น“ txtNumberOfInvalidLinks”
19. จากนั้นค้นหาปุ่มคำสั่งควบคุมบนกล่องเครื่องมือ สร้างปุ่มคำสั่งสองปุ่มเช่นร้อง:
20. ตั้งชื่อปุ่มแรกว่า“ cmdbtnClose” และข้อความคำอธิบายภาพเป็น“ ปิด”
21. ตั้งชื่อปุ่มที่สองว่า "btnCloseAndHighlightInvalidURLs" และข้อความคำอธิบายภาพเป็น "ปิดและไฮไลต์ URL ที่ไม่ถูกต้อง"
22. ดับเบิลคลิกถัดไปที่ปุ่ม "ปิด" และปุ่ม "ปิดและไฮไลต์ URL ที่ไม่ถูกต้อง" ตามลำดับ ป้อนรหัสดังนี้:

เรียกใช้ Macro

คลิกปุ่มที่คุณกำหนดให้กับมาโคร นี่คือผลสุดท้าย:

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

จัดการปัญหาเกี่ยวกับคำอย่างระมัดระวัง

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

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อม xlsx และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.