Այս հոդվածում մենք ձեզ ցույց կտանք VBA- ի միջոցով ձեր Word փաստաթղթում առկա բոլոր հղումների հղումները արագորեն վավերացնելու ավտոմատ եղանակ:
Word փաստաթուղթը կարող է պարունակել բազմաթիվ հիպերհղումներ, նույնիսկ հարյուրավոր: Դրանց շարքում կան անվավեր հղումներ, որոնք չեն կարող ձեզ տանել դեպի ճիշտ կայք: Այսպիսով, մենք ուզում ենք ձեզ առաջարկել միջոց VBA- ի միջոցով փաստաթղթում առկա բոլոր հղումներն արագ ստուգելու համար:
Տեղադրեք և պահեք Word մակրո
- Նախ բացեք VBA խմբագիրը «Alt + F11» - ով:
- Դրանից հետո կտտացրեք «Նորմալ» նախագիծը:
- Հաջորդը կտտացրեք «Տեղադրել» ներդիրին գործիքագոտու ընտրացանկում:
- Ընտրացանկում ընտրեք «Մոդուլ»:
- Կրկնակի կտտացրեք մոդուլին ՝ խմբագրման տարածքը բացելու և հետևյալ կոդերը այնտեղ տեղադրելու համար.
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
- Հաջորդը կտտացրեք «Պահել» կոճակին:
- Դրանից հետո մակրոի համար կոճակ նշանակեք: Մանրամասն տեղեկությունների համար կարող եք դիմել հետեւյալ հոդվածին.
Ինչպես հեռացնել տեղադրված տեքստերի ձևաչափումը մակրո և VBA- ի միջոցով ձեր Word- ում
Ստեղծեք օգտվողի ձև
Օգտագործողի ձևով դուք կարող եք հստակ տեսնել ընթացիկ փաստաթղթում առկա հղումների ընդհանուր քանակը, անվավեր հղումների քանակը և այլ մանրամասներ:
- Նախ `կրկին սեղմեք« Տեղադրել »գործիքագոտում: Բայց այս անգամ ընտրեք «UserForm»:
- Հաջորդը սեղմեք «F4» - ը ներքևի ձախ անկյունում «Հատկությունների պատուհանը» բացելու համար: Պատուհանի չափը կարգավորվում է:
- Այժմ օգտագործողի ձևը անվանեք «frmCheckURLs»:
- Վերնագիրը սահմանեք որպես «Ստուգեք URL- ները»:
- Դրանից հետո պատշաճ կերպով դրեք տառատեսակը:
- Հաջորդը կտտացրեք գործիքագոտում «Գործիքատուփ» կոճակին:
- Այժմ կտտացրեք «Պիտակը» գործիքատուփի վրա: Օգտագործեք մկնիկը ՝ օգտագործողի ձևի վրա ուղղանկյան պիտակ քաշելու համար:
- Սեղմեք պիտակի վրա `դրա հատկության պատուհանը ակտիվացնելու համար: Նշեք պիտակի անունը որպես «lblInvalidURLs», իսկ պիտակի վերնագիրը ՝ «Անվավեր URL- ներ.»:
- Հաջորդը ընտրեք պատշաճ տառատեսակը և նախաբառը պիտակի մակագրության տեքստի համար:
- Գործիքատուփի վրա ընտրեք «Տեքստային տուփ» և օգտագործողի ձևի վրա տեղադրեք տեքստային տուփ: Կարգավորեք դրա չափը:
- Դրանից հետո տեքստի տուփի անունը դնել «txtShowResult»:
- Սահմանեք տառատեսակը և նախագրերը ըստ ցանկության:
- Գտեք «MultiLine» - ը և սահմանեք «True»:
- Գտեք «Ոլորման գոտիներ» և ընտրեք ուղղահայաց ձող:
- Հաջորդը ստեղծեք ևս երկու պիտակ և տեքստային տուփ:
- Այնուհետև անվանեք առաջին պիտակը որպես «lblTotalLinks» և վերնագիրը սահմանեք որպես «Այս փաստաթղթի ընդհանուր հղումներ»:
- Եվ երկրորդ պիտակը անվանեք «lblNumberOfInvalidLinks» և վերնագիրը սահմանեք որպես «Անվավեր հղումների քանակ»:
- Առաջին տեքստի տուփը անվանեք «txtTotalLinks», իսկ երկրորդը ՝ «txtNumberOfInvalidLinks»:
- Դրանից հետո գործիքի տուփում գտեք հրամանի կոճակի կառավարումը: Ստեղծեք երկու հրամանի կոճակ, օրինակ ՝ ստորև ՝
- Առաջին կոճակն անվանեք «cmdbtn Փակել», իսկ դրա վերնագրի տեքստը ՝ «Փակել»:
- Երկրորդ կոճակը անվանել «btnCloseAndHighlightInvalidURLs», իսկ դրա վերնագրի տեքստը ՝ «Փակել և լուսաբանել անվավեր URL- ներ»:
- Հաջորդը կրկնակի կտտացրեք համապատասխանաբար «Փակել» կոճակին և «Փակել և լուսաբանել անվավեր URL- ներ» կոճակին: Մուտքագրեք կոդերը հետևյալ կերպ.
Գործարկել մակրոը
Կտտացրեք մակրոին ձեր կողմից նշանակված կոճակը: Ահա վերջնական էֆեկտը.
Յուրաքանչյուր ձախողված հղման մասին մանրամասն տեղեկատվություն կարող եք տեսնել ձախ մեծ տեքստի վանդակում: Եվ դուք կարող եք ընտրել փակել օգտվողի ձևը ուղղակիորեն կամ փակել այն ՝ միևնույն ժամանակ փաստաթղթում ընդգծելով բոլոր կոտրված հղումները:
Wordգուշորեն կարգավորեք բառերի հարցերը
Բառը հեշտությամբ հակված է սխալների: Այսպիսով, դա ծայրաստիճան կարևոր է դառնում շտկել Word- ը ճիշտ է։ Շատ դեպքերում ներկառուցված գործիքը չի կարող այդքան էլ օգնել ձեզ։ Հետևաբար, ձեր լավագույն ընտրությունը երրորդ կողմի վերանորոգման գործիք ձեռք բերելն է։
Հեղինակի ներածություն.
Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերանորոգել xlsx և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com