Kā partijā pārbaudīt visas jūsu Word dokumentā esošās hipersaites, izmantojot VBA

Šajā rakstā mēs parādīsim automātisku veidu, kā ātri pārbaudīt visas jūsu Word dokumentā esošās hipersaites, izmantojot VBA.

Word dokumentā var būt daudzas hipersaites, simtiem pat. Dažas no tām ir nederīgas saites, kas nespēj novirzīt jūs uz pareizu vietni. Tādējādi mēs vēlamies piedāvāt jums iespēju ātri pārbaudīt visas dokumenta saites, izmantojot VBA.

Instalējiet un saglabājiet Word makro

1. Vispirms atveriet VBA redaktoru ar “Alt + F11”.
2. Pēc tam noklikšķiniet uz “Normal” projekta.
3. Pēc tam rīkjoslas izvēlnē noklikšķiniet uz cilnes “Ievietot”.
4. Izvēlnē izvēlieties “Module”.
5. Veiciet dubultklikšķi uz moduļa, lai atvērtu rediģēšanas vietu, un tur ielīmējiet šādus kodus:

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. Pēc tam noklikšķiniet uz Saglabāt.
7. Pēc tam piešķiriet makro pogu. Detalizētu informāciju varat skatīt šajā rakstā:

Kā noņemt ielīmēto tekstu formatēšanu ar makro un VBA

Izveidojiet lietotāja veidlapu

Izmantojot lietotāja veidlapu, jūs varat skaidri redzēt kopējo saišu skaitu pašreizējā dokumentā, nederīgo saišu skaitu un sīkāku informāciju.

1. Pirmkārt, rīkjoslā vēlreiz noklikšķiniet uz “Ievietot”. Bet šoreiz izvēlieties “UserForm”.
2. Pēc tam nospiediet taustiņu “F4”, lai kreisajā apakšējā stūrī atvērtu “Properties Window”. Loga izmērs ir regulējams.
3. Tagad nosauciet lietotāja veidlapu kā “frmCheckURLs”.
4. Iestatiet parakstu kā “Pārbaudīt vietrāžus URL”.
5. Pēc tam pareizi iestatiet fontu.
6. Pēc tam rīkjoslā noklikšķiniet uz pogas Rīkjosla.
7. Tagad rīkjoslā noklikšķiniet uz “Label”. Izmantojiet peli, lai lietotāja veidlapā vilktu taisnstūra etiķeti.
8. Noklikšķiniet uz etiķetes, lai aktivizētu tās rekvizītu logu. Iestatiet etiķetes nosaukumu kā “lblInvalidURLs” un etiķetes parakstu - “Nederīgi URL:”.
9. Pēc tam etiķetes parakstu tekstam izvēlieties pareizu fontu un priekškrāsu.
10. Rīkjoslā izvēlieties “Text Box” un lietotāja veidlapā ievietojiet tekstlodziņu. Pielāgojiet tā lielumu.
11. Pēc tam iestatiet tekstlodziņa nosaukumu kā “txtShowResult”.
12. Pēc vēlēšanās iestatiet fontu un priekškrāsu.
13. Atrodiet “MultiLine” un iestatiet to “True”.
14. Atrodiet “Ritjoslas” un izvēlieties vertikālu joslu.
15. Pēc tam izveidojiet vēl divas etiķetes un tekstlodziņus.
16. Pēc tam nosauciet pirmo etiķeti kā “lblTotalLinks” un iestatiet parakstu kā “Saites kopā šajā dokumentā”.
17. Nosauciet otro etiķeti kā “lblNumberOfInvalidLinks” un iestatiet parakstu kā “Nederīgu saišu skaits”.
18. Nosauciet pirmo tekstlodziņu kā “txtTotalLinks” un otro - “txtNumberOfInvalidLinks”.
19. Pēc tam rīkjoslā atrodiet komandu pogas vadību. Izveidojiet divas komandu pogas, piemēram, zemāk redzamo:
20. Nosauciet pirmo pogu kā “cmdbtnClose” un tās parakstu tekstu kā “Aizvērt”.
21. Nosauciet otro pogu kā “btnCloseAndHighlightInvalidURLs”, un tās parakstu tekstu - “Aizvērt un izcelt nederīgus URL”.
22. Pēc tam veiciet dubultklikšķi uz pogas “Aizvērt” un uz “Aizvērt un izcelt nederīgus URL”. Ievadiet kodus šādi:

Palaidiet makro

Noklikšķiniet uz pogas, kuru piešķirat makro. Šeit ir pēdējais efekts:

Kreisajā lielajā tekstlodziņā varat skatīt detalizētu informāciju par katru neizdevušos saiti. Un jūs varat izvēlēties aizvērt lietotāja veidlapu tieši vai aizvērt, vienlaikus izceļot visas salauztās saites dokumentā.

Rūpīgi rīkojieties ar vārdiem

Vārds ir viegli pakļauts kļūdām. Tādējādi tas kļūst ārkārtīgi svarīgi labot Word pareizi. Vairumā gadījumu iebūvētais rīks nevar jums tik daudz palīdzēt. Tāpēc jūsu labākā izvēle ir iegūt trešās puses remonta rīku.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp labot xlsx un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar