Word құжатындағы барлық гиперсілтемелерді VBA арқылы пакеттік тексеру әдісі

Бұл мақалада біз сізге Word құжатындағы барлық гиперсілтемелерді VBA арқылы жылдам пакеттік тексерудің автоматты әдісін көрсетеміз.

Word құжатында көптеген, тіпті жүздеген гиперсілтемелер болуы мүмкін. Олардың арасында дұрыс веб-бетке апара алмайтын жарамсыз сілтемелер бар. Осылайша, біз сізге VBA арқылы құжаттағы барлық сілтемелерді жылдам тексеру жолын ұсынғымыз келеді.

Word макросын орнату және сақтау

1. Ең алдымен, VBA редакторын «Alt+ F11» көмегімен ашыңыз.
2. Содан кейін «Қалыпты» жобасын басыңыз.
3. Содан кейін құралдар тақтасының мәзіріндегі «Кірістіру» қойындысын басыңыз.
4. Мәзірден «Модуль» таңдаңыз.
5. Өңдеу кеңістігін ашу үшін модульді екі рет басыңыз және сол жерге келесі кодтарды қойыңыз:

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. Әрі қарай «Сақтау» батырмасын басыңыз.
7. Содан кейін макрос үшін түймені тағайындаңыз. Толық ақпарат алу үшін келесі мақалаға жүгінуге болады:

Өзіңіздің сөзіңізде макро және VBA көмегімен жапсырылған мәтіндердің пішімін қалай алып тастауға болады

Пайдаланушы формасын жасаңыз

Пайдаланушы пішіні арқылы ағымдағы құжаттағы сілтемелердің жалпы санын, жарамсыз сілтемелер санын және қосымша мәліметтерді анық көруге болады.

1. Алдымен құралдар тақтасындағы «Кірістіру» түймесін қайтадан басыңыз. Бірақ бұл жолы «UserForm» таңдаңыз.
2. Содан кейін төменгі сол жақ бұрышта «Сипаттар терезесін» ашу үшін «F4» пернесін басыңыз. Терезе өлшемі реттеледі.
3. Енді пайдаланушы пішінін «frmCheckURLs» деп атаңыз.
4. Жазуды «URL мекенжайларын тексеру» ретінде орнатыңыз.
5. Содан кейін қаріпті дұрыс орнатыңыз.
6. Содан кейін құралдар тақтасындағы «Құралдар жинағы» түймесін басыңыз.
7. Енді құралдар тақтасындағы «Жапсырма» түймесін басыңыз. Пайдаланушы пішініндегі тіктөртбұрыш белгісін сүйреу үшін тінтуірді пайдаланыңыз.
8. Сипат терезесін белсендіру үшін белгіні басыңыз. Белгі атауын “lblInvalidURLs” және жапсырма тақырыбын “Жарамсыз URL мекенжайлары:” ретінде орнатыңыз.
9. Одан кейін жапсырма тақырыбы мәтіні үшін дұрыс қаріп пен алдыңғы бояуды таңдаңыз.
10. Құралдар жәшігіндегі «Мәтіндік жолақ» тармағын таңдап, пайдаланушы пішініне мәтін ұясын кірістіріңіз. Оның өлшемін реттеңіз.
11. Содан кейін мәтіндік жолақ атауын «txtShowResult» ретінде орнатыңыз.
12. Шрифт пен алдыңғы бояуды қалауыңызша орнатыңыз.
13. “MultiLine” параметрін тауып, оны “True” етіп орнатыңыз.
14. «Айналдыру жолақтарын» тауып, тік жолақты таңдаңыз.
15. Содан кейін тағы екі белгі мен мәтін ұясын жасаңыз.
16. Содан кейін бірінші белгіні «lblTotalLinks» деп атаңыз және тақырыпты «Осы құжаттағы жалпы сілтемелер» ретінде орнатыңыз.
17. Екінші белгіні «lblNumberOfInvalidLinks» деп атаңыз және тақырыпты «Жарамсыз сілтемелер саны» ретінде орнатыңыз.
18. Бірінші мәтін жолағын «txtTotalLinks», ал екіншісін «txtNumberOfInvalidLinks» деп атаңыз.
19. Содан кейін құралдар тақтасында пәрмен түймешігін басқару элементін табыңыз. Төмендегі сияқты екі пәрмен түймелерін жасаңыз:
20. Бірінші түймені «cmdbtnClose» деп атаңыз, ал оның мәтінін «Жабу» деп атаңыз.
21. Екінші түймені «btnCloseAndHighlightInvalidURLs» деп атаңыз және оның мәтінін «Жарамсыз URL мекенжайларын жабу және бөлектеу» деп атаңыз.
22. Келесі «Жабу» және «Жарамсыз URL мекенжайларын жабу және бөлектеу» түймесін екі рет басыңыз. Кодтарды келесідей енгізіңіз:

Макросты іске қосыңыз

Макросқа тағайындалған түймені басыңыз. Міне, соңғы әсер:

Әрбір сәтсіз сілтемелер туралы толық ақпаратты сол жақтағы үлкен мәтін жолағында көре аласыз. Сондай-ақ құжаттағы барлық сынған сілтемелерді бөлектеу кезінде пайдаланушы пішінін тікелей жабуды немесе жабуды таңдауға болады.

Word мәселелерін мұқият өңдеңіз

Word қателерге оңай бейім. Осылайша, ол өте маңызды болады сөзді түзету дұрыс. Көп жағдайда кіріктірілген құрал сізге көп көмектесе алмайды. Сондықтан, сіздің ең жақсы таңдауыңыз - үшінші тарап жөндеу құралын алу.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. xlsx жөндеу және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com