Në këtë artikull, ne do t'ju tregojmë një mënyrë automatike për të vërtetuar shpejt të gjitha hiperlidhjet në dokumentin tuaj Word nëpërmjet VBA.
Një dokument Word mund të përmbajë shumë hiperlidhje, madje qindra. Midis tyre, disa janë lidhje të pavlefshme që nuk arrijnë t'ju çojnë në një faqe interneti të saktë. Kështu, ne duam t'ju ofrojmë mënyrën për të kontrolluar shpejt të gjitha lidhjet në një dokument nëpërmjet VBA.
Instaloni dhe ruani një makro Word
- Para së gjithash, hapni redaktorin VBA me "Alt+ F11".
- Pastaj klikoni projektin "Normal".
- Pastaj klikoni në skedën "Fut" në menunë e shiritit të veglave.
- Dhe zgjidhni "Modul" në meny.
- Klikoni dy herë në modul për të hapur hapësirën e redaktimit dhe ngjitni kodet e mëposhtme atje:
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
- Pastaj klikoni "Ruaj".
- Pastaj caktoni një buton për makro. Ju mund t'i referoheni artikullit të mëposhtëm për informacion të detajuar:
Si të hiqni formatimin e teksteve të ngjitura me makro dhe VBA në Word
Krijo një formular përdoruesi
Me një formular përdoruesi, mund të shihni qartë numrin total të lidhjeve në dokumentin aktual, numrin e lidhjeve të pavlefshme dhe më shumë detaje.
- Së pari, klikoni përsëri "Fut" në shiritin e veglave. Por këtë herë, zgjidhni "UserForm".
- Pastaj shtypni "F4" për të hapur "Properties Window" në këndin e poshtëm majtas. Madhësia e dritares është e rregullueshme.
- Tani emërtojeni formularin e përdoruesit si "frmCheckURLs".
- Cakto titullin si "Kontrollo URL-të".
- Pastaj vendosni fontin siç duhet.
- Pastaj klikoni butonin "Toolbox" në shiritin e veglave.
- Tani klikoni "Etiketa" në kutinë e veglave. Përdorni miun për të tërhequr një etiketë drejtkëndëshe në formularin e përdoruesit.
- Klikoni në etiketë për të aktivizuar dritaren e vetive të saj. Cakto emrin e etiketës si "lblInvalidURLs" dhe titullin e etiketës si "URL të pavlefshme:".
- Më pas zgjidhni fontin e duhur dhe ngjyrën e përparme për tekstin e titullit të etiketës.
- Zgjidhni "Text Box" në kutinë e veglave dhe futni një kuti teksti në formularin e përdoruesit. Rregulloni madhësinë e saj.
- Pastaj vendosni emrin e kutisë së tekstit si "txtShowResult".
- Vendosni fontin dhe parangjyrën sipas dëshirës.
- Gjeni "MultiLine" dhe vendoseni "True".
- Gjeni "Scrollbars" dhe zgjidhni një shirit vertikal.
- Më pas krijoni dy etiketa të tjera dhe kuti teksti.
- Më pas emërtoni etiketën e parë si "lblTotalLinks" dhe vendosni titullin si "Lidhjet totale në këtë dokument".
- Dhe emërtoni etiketën e dytë si "lblNumberOfInvalidLinks" dhe vendosni titullin si "Numri i lidhjeve të pavlefshme".
- Emërtoni kutinë e parë të tekstit si "txtTotalLinks" dhe të dytën si "txtNumberOfInvalidLinks".
- Më pas gjeni kontrollin e butonit të komandës në kutinë e veglave. Krijoni dy butona komandimi, si më poshtë:
- Emërtoni butonin e parë si "cmdbtnClose" dhe tekstin e titullit të tij si "Mbyll".
- Emërtoni butonin e dytë si "btnCloseAndHighlightInvalidURLs" dhe tekstin e titullit të tij si "Mbyll & Thekso URL-të e pavlefshme".
- Pastaj klikoni dy herë në butonin "Mbyll" dhe butonin "Mbyll & Thekso URL të pavlefshme". Futni kodet si më poshtë:
Ekzekutoni Macron
Klikoni butonin që i caktoni makros. Këtu është efekti përfundimtar:
Ju mund të shihni informacion të detajuar për secilën lidhje të dështuar në kutinë e madhe të tekstit në të majtë. Dhe mund të zgjidhni të mbyllni drejtpërdrejt formularin e përdoruesit ose ta mbyllni atë duke theksuar të gjitha lidhjet e prishura në dokument.
Trajtoni me kujdes çështjet e fjalës
Fjala është lehtësisht e prirur ndaj gabimeve. Kështu bëhet jashtëzakonisht e rëndësishme për të rregulloni Word saktë. Shumicën e kohës, mjeti i integruar nuk mund t'ju ndihmojë aq shumë. Prandaj, zgjedhja juaj kryesore është të merrni një mjet riparimi nga një palë e tretë.
Hyrje e autorit:
Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim xlsx pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com