Slik batchvaliderer du alle hyperkoblinger i Word-dokumentet ditt via VBA

I denne artikkelen vil vi vise deg en automatisk måte å raskt batchvalidere alle hyperkoblinger i Word-dokumentet ditt via VBA.

Et Word-dokument kan inneholde mange hyperkoblinger, hundrevis til og med. Blant dem er noen ugyldige lenker som ikke fører deg til en riktig nettside. Derfor ønsker vi å tilby deg måten å raskt sjekke alle lenker i et dokument via VBA.

Installer og lagre en Word-makro

1. Først av alt, åpne VBA-editor med "Alt+ F11".
2. Klikk deretter på "Normal" prosjekt.
3. Klikk deretter på "Sett inn"-fanen på verktøylinjemenyen.
4. Og velg "Modul" på menyen.
5. Dobbeltklikk på modulen for å åpne redigeringsområdet og lim inn følgende koder der:

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. Klikk deretter på "Lagre".
7. Deretter tilordner du en knapp for makroen. Du kan se følgende artikkel for detaljert informasjon:

Slik fjerner du formateringen av limte tekster med makro og VBA i Word

Lag et brukerskjema

Med et brukerskjema kan du tydelig se totalt antall lenker i gjeldende dokument, antall ugyldige lenker og flere detaljer.

1. Først klikker du på "Sett inn" på verktøylinjen igjen. Men denne gangen velger du "UserForm".
2. Trykk deretter "F4" for å åpne "Egenskapsvindu" i nedre venstre hjørne. Vindusstørrelsen er justerbar.
3. Gi nå brukerskjemaet navnet "frmCheckURLs".
4. Angi bildetekst som "Sjekk nettadresser".
5. Sett deretter fonten riktig.
6. Klikk deretter på "Verktøykasse"-knappen på verktøylinjen.
7. Klikk nå på "Etikett" på verktøykassen. Bruk musen til å dra en rektangeletikett på brukerskjemaet.
8. Klikk på etiketten for å aktivere egenskapsvinduet. Angi etikettnavnet som "lblInvalidURLs", og etikettteksten som "Ugyldige URLs:".
9. Velg deretter riktig font og forfarge for etiketttekstteksten.
10. Velg "Tekstboks" på verktøykassen og sett inn en tekstboks på brukerskjemaet. Juster størrelsen.
11. Sett deretter tekstboksnavnet som "txtShowResult".
12. Still inn font og forfarge som ønsket.
13. Finn "MultiLine", og sett den til "True".
14. Finn "Rullefelt" og velg en vertikal linje.
15. Deretter oppretter du ytterligere to etiketter og tekstbokser.
16. Navngi deretter første etikett som "lblTotalLinks" og sett bildeteksten som "Total linker i dette dokumentet".
17. Og navngi den andre etiketten som "lblNumberOfInvalidLinks" og angi bildeteksten som "Antall ugyldige lenker".
18. Navngi den første tekstboksen som "txtTotalLinks", og den andre som "txtNumberOfInvalidLinks".
19. Finn deretter kommandoknappkontroll på verktøykassen. Lag to kommandoknapper, for eksempel nedenfor:
20. Navngi den første knappen som "cmdbtnClose", og dens bildetekst som "Close".
21. Navngi den andre knappen som "btnCloseAndHighlightInvalidURLs", og dens bildetekst som "Close & Highlight Invalid URLs".
22. Dobbeltklikk deretter på henholdsvis "Lukk"-knappen og "Lukk og marker ugyldige URL-er". Skriv inn koder som følger:

Kjør makroen

Klikk på knappen du tilordner makroen. Her er den endelige effekten:

Du kan se detaljert informasjon om hver mislykkede kobling i den store tekstboksen til venstre. Og du kan velge å lukke brukerskjemaet direkte eller lukke det mens du markerer alle ødelagte lenker i dokumentet.

Håndter Word-problemer forsiktig

Word er lett utsatt for feil. Dermed blir det ekstremt viktig å fikse Word riktig. Som oftest kan ikke det innebygde verktøyet hjelpe deg så mye. Derfor er det beste valget å skaffe deg et tredjeparts reparasjonsverktøy.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparer xlsx og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med