Kako skupno provjeriti sve hiperveze u vašem Word dokumentu putem VBA

U ovom ćemo vam članku pokazati automatski način brze skupne provjere svih hiperveza u vašem Word dokumentu putem VBA.

Word dokument može sadržavati mnoge hiperveze, čak stotine. Među njima su neke nevažeće veze koje vas ne vode na ispravnu web stranicu. Stoga vam želimo ponuditi način brze provjere svih poveznica u dokumentu putem VBA.

Instalirajte i spremite Word makronaredbu

1. Prije svega, otvorite VBA editor pomoću “Alt+ F11”.
2. Zatim kliknite "Normalni" projekt.
3. Zatim kliknite karticu "Umetni" na izborniku alatne trake.
4. I odaberite "Modul" na izborniku.
5. Dvaput kliknite na modul da biste otvorili prostor za uređivanje i tamo zalijepite sljedeće kodove:

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. Zatim kliknite "Spremi".
7. Zatim dodijelite gumb za makro. Detaljne informacije potražite u sljedećem članku:

Kako ukloniti oblikovanje zalijepljenih tekstova s ​​makronaredbom i VBA u vašem Wordu

Napravite korisnički obrazac

Pomoću korisničkog obrasca možete jasno vidjeti ukupan broj poveznica u trenutnom dokumentu, broj nevažećih veza i više detalja.

1. Najprije ponovno kliknite "Umetni" na alatnoj traci. Ali ovaj put odaberite "Korisnički obrazac".
2. Zatim pritisnite “F4” da biste otvorili “Prozor svojstava” u donjem lijevom kutu. Veličina prozora je podesiva.
3. Sada nazovite korisnički obrazac "frmCheckURLs".
4. Postavite naslov kao "Provjeri URL-ove".
5. Zatim ispravno postavite font.
6. Zatim kliknite gumb "Toolbox" na alatnoj traci.
7. Sada kliknite "Oznaka" na okviru s alatima. Pomoću miša povucite oznaku pravokutnika na korisničkom obrascu.
8. Kliknite na oznaku da biste aktivirali prozor sa svojstvima. Postavite naziv oznake na "lblInvalidURLs", a naslov oznake na "Nevažeći URL-ovi:".
9. Zatim odaberite odgovarajući font i boju za tekst naslova naljepnice.
10. Odaberite "Tekstni okvir" na okviru s alatima i umetnite tekstualni okvir u korisnički obrazac. Podesite njegovu veličinu.
11. Zatim postavite naziv tekstualnog okvira kao "txtShowResult".
12. Postavite font i boju po želji.
13. Pronađite “MultiLine” i postavite ga na “True”.
14. Pronađite "Scrollbars" i odaberite okomitu traku.
15. Zatim stvorite još dvije oznake i tekstualne okvire.
16. Zatim nazovite prvu oznaku kao "lblTotalLinks" i postavite naslov kao "Ukupan broj veza u ovom dokumentu".
17. I nazovite drugu oznaku kao "lblNumberOfInvalidLinks" i postavite naslov kao "Broj nevažećih veza".
18. Imenujte prvi tekstualni okvir kao “txtTotalLinks”, a drugi kao “txtNumberOfInvalidLinks”.
19. Zatim pronađite kontrolu naredbenog gumba na kutiji s alatima. Napravite dva naredbena gumba, kao što je dolje:
20. Imenujte prvi gumb kao "cmdbtnClose", a njegov tekst naslova kao "Zatvori".
21. Imenujte drugi gumb kao "btnCloseAndHighlightInvalidURLs", a njegov tekst naslova kao "Close & Highlight Invalid URLs".
22. Zatim dvaput kliknite gumb "Zatvori", odnosno gumb "Zatvori i označi nevažeće URL-ove". Unesite kodove na sljedeći način:

Pokrenite makronaredbu

Pritisnite gumb koji ste dodijelili makronaredbi. Evo konačnog efekta:

Možete vidjeti detaljne informacije o svakoj neuspjeloj vezi u lijevom velikom tekstualnom okviru. A možete odlučiti zatvoriti korisnički obrazac izravno ili ga zatvoriti dok označavate sve neispravne veze u dokumentu.

Pažljivo rješavajte probleme s riječima

Word je lako sklon pogreškama. Stoga postaje iznimno važno popraviti Word ispravno. Većinu vremena, ugrađeni alat vam ne može puno pomoći. Stoga je vaš najbolji izbor nabaviti alat za popravak treće strane.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak xlsx i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com