Kuidas kinnitada VBA kaudu kõik Wordi dokumendi hüperlingid

Selles artiklis näitame teile automaatset viisi, kuidas VBA kaudu kiiresti pakettvalideerida kõik Wordi dokumendis olevad hüperlingid.

Wordi dokument võib sisaldada palju hüperlinke, isegi sadu. Mõned neist on kehtetud lingid, mis ei vii teid õigele veebilehele. Seetõttu tahame teile pakkuda võimalust kiiresti kontrollida kõiki dokumendi linke VBA kaudu.

Installige ja salvestage Wordi makro

1. Kõigepealt avage VBA redaktor, vajutades "Alt + F11".
2. Seejärel klõpsake "Tavaline" projekt.
3. Järgmisena klõpsake tööriistariba menüüs vahekaarti "Lisa".
4. Ja valige menüüst "Moodul".
5. Redigeerimisruumi avamiseks topeltklõpsake moodulil ja kleepige sinna järgmised koodid:

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. Järgmisena klõpsake nuppu "Salvesta".
7. Seejärel määrake makro jaoks nupp. Üksikasjaliku teabe saamiseks võite vaadata järgmist artiklit:

Kuidas eemaldada Wordis makro ja VBA abil kleebitud tekstide vorming

Loo kasutajavorm

Kasutajavormiga näete selgelt aktiivses dokumendis olevate linkide koguarvu, kehtetute linkide arvu ja rohkem üksikasju.

1. Esiteks klõpsake tööriistaribal uuesti nuppu "Lisa". Kuid seekord valige "Kasutajavorm".
2. Järgmisena vajutage nuppu F4, et avada vasakpoolses allnurgas "Atribuutide aken". Akna suurus on reguleeritav.
3. Nüüd nimetage kasutajavorm "frmCheckURLs".
4. Määrake pealdisteks "Kontrolli URL-e".
5. Seejärel määrake font õigesti.
6. Järgmisena klõpsake tööriistaribal nuppu "Tööriistakast".
7. Nüüd klõpsake tööriistakastis nuppu "Silt". Kasutage hiirt ristküliku sildi lohistamiseks kasutajavormil.
8. Selle atribuutide akna aktiveerimiseks klõpsake sildil. Määrake sildi nimeks "lblInvalidURLs" ja sildi pealkirjaks "Valed URL-id:".
9. Järgmisena valige sildi pealkirja teksti jaoks õige font ja esivärv.
10. Valige tööriistakastis "Tekstikast" ja sisestage kasutajavormi tekstikast. Reguleerige selle suurust.
11. Seejärel määrake tekstikasti nimeks "txtShowResult".
12. Määrake font ja esivärv vastavalt soovile.
13. Otsige üles "MultiLine" ja määrake see "True".
14. Otsige üles "kerimisribad" ja valige vertikaalne riba.
15. Järgmisena looge veel kaks silti ja tekstikasti.
16. Seejärel pange esimene silt nimeks "lblTotalLinks" ja määrake pealkirjaks "Selle dokumendi linke kokku".
17. Ja nimetage teisele sildile "lblNumberOfInvalidLinks" ja määrake pealkirjaks "Kehtetute linkide arv".
18. Nimetage esimene tekstikast nimega "txtTotalLinks" ja teine ​​"txtNumberOfInvalidLinks".
19. Seejärel leidke tööriistakastist käsunupu juhtelement. Looge kaks käsunuppu, näiteks allpool:
20. Nimetage esimene nupp kui "cmdbtnClose" ja selle pealkirja tekst "Close".
21. Nimetage teine ​​nupp kui "btnCloseAndHighlightInvalidURLs" ja selle pealkirja tekst "Close & Highlight Invalid URLs".
22. Järgmisena topeltklõpsake nuppu "Sule" ja nuppu "Sule ja tõstke esile kehtetud URL-id". Sisestage koodid järgmiselt:

Käivitage makro

Klõpsake makrole määratud nuppu. Siin on lõplik efekt:

Üksikasjalikku teavet kõigi ebaõnnestunud linkide kohta näete vasakpoolses suures tekstikastis. Ja saate valida, kas sulgeda kasutajavorm otse või sulgeda see, tõstes esile kõik dokumendis olevad katkised lingid.

Käsitlege Wordi probleeme ettevaatlikult

Wordis esineb kergesti vigu. Seega muutub see äärmiselt oluliseks parandage Word õigesti. Most sageli ei saa sisseehitatud tööriist teid nii palju aidata. Seetõttu on teie parim valik hankida kolmanda osapoole remonditööriist.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont xlsx ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom