VBA vasitəsilə Word sənədinizdəki bütün hiperlinkləri toplu şəkildə necə təsdiqləmək olar

Bu yazıda biz sizə Word sənədinizdəki bütün hiperlinkləri VBA vasitəsilə tez bir zamanda toplu şəkildə təsdiq etməyin avtomatik yolunu göstərəcəyik.

Word sənədində çoxlu, hətta yüzlərlə hiperlink ola bilər. Onların arasında bəziləri sizi düzgün veb səhifəyə apara bilməyən etibarsız bağlantılardır. Beləliklə, biz sizə VBA vasitəsilə sənəddəki bütün keçidləri tez yoxlamağın yolunu təklif etmək istəyirik.

Word makrosunu quraşdırın və yadda saxlayın

1. Əvvəlcə VBA redaktorunu “Alt+ F11” ilə açın.
2. Sonra "Normal" layihəsinə klikləyin.
3. Sonra alətlər paneli menyusundakı "Daxil et" sekmesini vurun.
4. Və menyudan "Modul" seçin.
5. Redaktə sahəsini açmaq üçün modulun üzərinə iki dəfə klikləyin və ora aşağıdakı kodları yapışdırın:

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. Sonra "Saxla" düyməsini basın.
7. Sonra makro üçün bir düymə təyin edin. Ətraflı məlumat üçün aşağıdakı məqaləyə müraciət edə bilərsiniz:

Word-də Makro və VBA ilə yapışdırılmış mətnlərin formatını necə çıxarmaq olar

İstifadəçi Forması yaradın

İstifadəçi forması ilə siz cari sənəddəki keçidlərin ümumi sayını, etibarsız keçidlərin sayını və daha çox təfərrüatları aydın görə bilərsiniz.

1. Əvvəlcə alətlər panelində yenidən "Daxil et" düyməsini basın. Ancaq bu dəfə "UserForm" seçin.
2. Sonra aşağı sol küncdə "Xüsusiyyətlər Pəncərəsini" açmaq üçün "F4" düyməsini basın. Pəncərənin ölçüsü tənzimlənir.
3. İndi istifadəçi formasını “frmCheckURLs” adlandırın.
4. Başlığı "URL-ləri yoxlayın" olaraq təyin edin.
5. Sonra şrifti düzgün təyin edin.
6. Sonra alətlər panelində "Alətlər qutusu" düyməsini basın.
7. İndi alətlər qutusunda "Etiket" düyməsini basın. İstifadəçi formasında düzbucaqlı etiketi dartmaq üçün siçandan istifadə edin.
8. Mülkiyyət pəncərəsini aktivləşdirmək üçün etiketə klikləyin. Etiket adını “lblInvalidURLs” və etiket başlığını “Yanlış URL-lər:” kimi təyin edin.
9. Sonra etiket başlığı mətni üçün düzgün şrift və ön rəng seçin.
10. Alətlər qutusunda "Mətn qutusu" seçin və istifadəçi formasına mətn qutusu daxil edin. Onun ölçüsünü tənzimləyin.
11. Sonra mətn qutusunun adını “txtShowResult” olaraq təyin edin.
12. Şrift və ön rəngi istədiyiniz kimi təyin edin.
13. "MultiLine" tapın və onu "Doğru" olaraq təyin edin.
14. "Scrollbars" tapın və şaquli çubuq seçin.
15. Sonra daha iki etiket və mətn qutusu yaradın.
16. Sonra ilk etiketi "lblTotalLinks" adlandırın və başlığı "Bu sənəddəki ümumi bağlantılar" olaraq təyin edin.
17. İkinci etiketi "lblNumberOfInvalidLinks" adlandırın və başlığı "Etibarsız bağlantıların sayı" olaraq təyin edin.
18. Birinci mətn qutusunu “txtTotalLinks”, ikincisini isə “txtNumberOfInvalidLinks” adlandırın.
19. Sonra alətlər qutusunda əmr düyməsinə nəzarəti tapın. Aşağıdakı kimi iki əmr düyməsi yaradın:
20. Birinci düyməni “cmdbtnClose”, başlıq mətnini isə “Bağlamaq” adlandırın.
21. İkinci düyməni “btnCloseAndHighlightInvalidURLs” və başlıq mətnini “Etibarsız URL-ləri Bağlayın və Vurğulayın” kimi adlandırın.
22. Sonra müvafiq olaraq “Bağla” və “Etibarsız URL-ləri bağla və vurğula” düyməsini iki dəfə klikləyin. Kodları aşağıdakı kimi daxil edin:

Makronu işə salın

Makroya təyin etdiyiniz düyməni basın. Budur son effekt:

Siz sol böyük mətn qutusunda hər bir uğursuz keçid haqqında ətraflı məlumat görə bilərsiniz. Və siz istifadəçi formasını birbaşa bağlamağı və ya sənəddəki bütün pozulmuş keçidləri vurğulayaraq bağlamağı seçə bilərsiniz.

Söz məsələlərini diqqətlə idarə edin

Word asanlıqla səhvlərə meyllidir. Beləliklə, son dərəcə vacib olur Word düzəldin düzgün. Əksər hallarda, daxili alət sizə o qədər də kömək edə bilmir. Buna görə də, ən yaxşı seçiminiz üçüncü tərəf təmir aləti almaqdır.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir xlsx və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com