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:

Funkcija CheckURL (strURL kā virkne) Kā Būla Dim objDemand As Object Dim varResult As Variant On Error Kļūdā GoTo ErrorHandler Set objDemand = CreateObject ("WinHttp.WinHttpRequest.5.1") Ar objDemand. Atveriet "GET", strURL, False = Nosūtīt varRult. StatusText beigas ar iestatītu objDemand = Nekas, ja varResult = "Labi", tad CheckURL = Patiešām cits CheckURL = Nepareizs gals, ja ErrorHandler: Beigas Funkcija Sub ReturnURLCheck () Dim objLink Kā Hipersaite Dim strLinkText Kā String Dim strLinkAddress Kā String Dim strResult As String Dim nInvalid Integer, nTotalLinks As Integer Dim objDoc kā dokumenta lietojumprogramma.ScreenUpdating = False Set objDoc = ActiveDocument nTotalLinks = objDoc.Hyperlinks.Count nInvalidLink = 0 With objDoc katram objLink iekš. CheckURL (strLinkAddress) Tad nInvalidLink = nInvalidLink + 1 strResult = frmCheckURLs.txtShowResult.Text frmCheckURLs.txtShowResult.Text = strResult & nInvalidLink & ". Nederīga līnija k Informācija: "& vbNewLine & _" Parādītais teksts: "& strLinkText & vbNewLine & _" Adrese: "& strLinkAddress & vbNewLine & vbNewLine Beigt Ja Nākamais objLink frmCheckURLs.txtTotalLinks.Text = nTotalLinks Modālā beigas ar Application.ScreenUpdating = True End Sub Sub HighlightInvalidLinks () Dim objLink As Hipersaite Dim strLinkAddress As String Dim strResult As String Dim objDoc As Document Set objDoc = ActiveDocument With objDoc Katram objLink iekšā .Hyperlinks strLinkAddress = objLink.Address [strLinkAddress] Tad objLink.Range.HighlightColorIndex = wdDzeltens beigas, ja nākamais objLink beigsies ar beigu apakšdaļu

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. Most tā laika iebūvētais rīks nevar jums tik ļoti palīdzēt. Tāpēc vislabākā izvēle ir iegūt trešās puses labošanas 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