Word баримт дээрх бүх гипер холбоосыг VBA-аар хэрхэн багцаар баталгаажуулах вэ

Энэ нийтлэлд бид Word баримт бичигт байгаа бүх холбоосыг VBA-ээр дамжуулан хурдан баталгаажуулах автомат аргыг харуулах болно.

Word баримт бичиг нь олон, бүр хэдэн зуун холбоос агуулсан байж болно. Тэдгээрийн зарим нь таныг зөв вэб хуудас руу хөтөлж чадахгүй хүчингүй холбоосууд юм. Тиймээс бид танд VBA-ээр баримт бичигт байгаа бүх холбоосыг хурдан шалгах аргыг санал болгохыг хүсч байна.

Word макро суулгаж хадгал

1. Юуны өмнө VBA засварлагчийг "Alt+ F11" ашиглан нээнэ үү.
2. Дараа нь “Normal” төслийг дарна уу.
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 ашиглан наасан текстийн форматыг хэрхэн яаж устгах вэ?

Хэрэглэгчийн маягт үүсгэх

Хэрэглэгчийн маягтын тусламжтайгаар та одоогийн баримт бичигт байгаа холбоосын нийт тоо, хүчингүй холбоосын тоо болон бусад дэлгэрэнгүй мэдээллийг тодорхой харж болно.

1. Эхлээд багаж самбар дээрх "Оруулах" дээр дарна уу. Гэхдээ энэ удаад "UserForm"-ийг сонгоно уу.
2. Дараа нь "F4" товчийг дарж зүүн доод буланд байгаа "Properties цонх"-ыг нээнэ үү. Цонхны хэмжээг тохируулах боломжтой.
3. Одоо хэрэглэгчийн маягтыг "frmCheckURLs" гэж нэрлэнэ үү.
4. Тайлбарыг "URL шалгах" гэж тохируулна уу.
5. Дараа нь фонтыг зөв тохируулна уу.
6. Дараа нь багаж самбар дээрх "Хэрэгслийн хайрцаг" товчийг дарна уу.
7. Одоо хэрэгслийн хайрцаг дээрх "Шошго" дээр дарна уу. Хэрэглэгчийн маягт дээрх тэгш өнцөгт шошгыг хулганаар чирнэ үү.
8. Шошго дээр дарж өмчийн цонхыг идэвхжүүлнэ. Шошгоны нэрийг “lblInvalidURLs”, шошгоны тайлбарыг “Хүчингүй URL:” гэж тохируулна уу.
9. Дараа нь шошгоны тайлбарт тохирох фонт болон урд өнгийг сонгоно уу.
10. Хэрэгслийн хайрцаг дээрх "Текст хайрцаг" -ыг сонгоод хэрэглэгчийн маягт дээр текстийн хайрцаг оруулна уу. Түүний хэмжээг тохируулна уу.
11. Дараа нь текстийн хайрцгийн нэрийг "txtShowResult" гэж тохируулна уу.
12. Фонт болон урд өнгийг хүссэнээр тохируулна уу.
13. "MultiLine"-г олоод "Үнэн" гэж тохируулна уу.
14. "Scrollbars"-ийг олоод босоо шугамыг сонгоно уу.
15. Дараа нь өөр хоёр шошго, текст хайрцаг үүсгэ.
16. Дараа нь эхний шошгыг "lblTotalLinks" гэж нэрлээд тайлбарыг "Энэ баримт бичиг дэх нийт холбоосууд" гэж тохируул.
17. Хоёрдахь шошгыг "lblNumberOfInvalidLinks" гэж нэрлээд тайлбарыг "Хүчингүй холбоосын тоо" гэж тохируулна уу.
18. Эхний текст хайрцгийг "txtTotalLinks", хоёр дахь хэсгийг "txtNumberOfInvalidLinks" гэж нэрлэнэ үү.
19. Дараа нь багажны хайрцаг дээрх командын товчлуурын удирдлагыг олоорой. Доорх гэх мэт хоёр тушаалын товчлуур үүсгэ.
20. Эхний товчлуурыг "cmdbtnClose", тайлбар текстийг "Close" гэж нэрлэнэ үү.
21. Хоёрдахь товчлуурыг "btnCloseAndHighlightInvalidURLs" гэж нэрлэх ба тайлбарын текстийг "Хүчингүй URL-уудыг хааж, тодруулах" гэж нэрлэнэ үү.
22. Дараа нь "Хаах" товч болон "Хүчингүй URL-уудыг хааж, тодруулах" товчийг давхар товшино уу. Кодыг дараах байдлаар оруулна уу:

Макро ажиллуул

Макронд зааж өгсөн товчлуур дээр дарна уу. Эцсийн үр нөлөө нь энд байна:

Та бүтэлгүйтсэн холбоос бүрийн талаарх дэлгэрэнгүй мэдээллийг зүүн талын том текст хайрцагт харж болно. Мөн та хэрэглэгчийн маягтыг шууд хаах эсвэл баримтын бүх эвдэрсэн холбоосыг тодруулж хаах боломжтой.

Үгтэй холбоотой асуудалд болгоомжтой ханд

Word нь алдаа гаргахад амархан байдаг. Тиймээс энэ нь туйлын чухал болж байна Word засах зөв. Ихэнх тохиолдолд, суурилуулсан хэрэгсэл танд тийм ч их тус болж чадахгүй. Тиймээс таны хамгийн сайн сонголт бол гуравдагч талын засварын хэрэгсэл авах явдал юм.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xlsx засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com