როგორ გადავამოწმოთ ყველა ჰიპერბმულის ჯგუფური გადამოწმება თქვენს 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-ით თქვენს Word-ში

შექმენით მომხმარებლის ფორმა

მომხმარებლის ფორმის საშუალებით შეგიძლიათ ნათლად ნახოთ მიმდინარე დოკუმენტში არსებული ბმულების რაოდენობა, არასწორი ბმულების რაოდენობა და მეტი დეტალი.

1. პირველ რიგში, კვლავ დააწკაპუნეთ "ჩასმა" ინსტრუმენტთა პანელზე. მაგრამ ამჯერად აირჩიეთ "UserForm".
2. შემდეგ დააჭირეთ "F4"-ს, რათა გახსნათ "თვისებების ფანჯარა" ქვედა მარცხენა კუთხეში. ფანჯრის ზომა რეგულირდება.
3. ახლა დაასახელეთ მომხმარებლის ფორმა, როგორც "frmCheckURLs".
4. დააყენეთ წარწერა, როგორც „შეამოწმეთ URL-ები“.
5. შემდეგ დააყენეთ შრიფტი სწორად.
6. შემდეგ დააწკაპუნეთ ღილაკზე "Toolbox" ინსტრუმენტთა პანელზე.
7. ახლა დააწკაპუნეთ "ეტიკეტზე" ხელსაწყოთა ყუთში. გამოიყენეთ მაუსი მომხმარებლის ფორმაზე მართკუთხედის ეტიკეტის გადასატანად.
8. დააწკაპუნეთ ეტიკეტზე მისი თვისებების ფანჯრის გასააქტიურებლად. დააყენეთ ლეიბლის სახელი, როგორც „lblInvalidURLs“, და ლეიბლის წარწერა, როგორც „არასწორი URL:“.
9. შემდეგ აირჩიეთ შესაბამისი შრიფტი და წინა ფერი ეტიკეტის წარწერის ტექსტისთვის.
10. აირჩიეთ „ტექსტის ყუთი“ ხელსაწყოთა ყუთში და ჩადეთ ტექსტური ყუთი მომხმარებლის ფორმაში. დაარეგულირეთ მისი ზომა.
11. შემდეგ დააყენეთ ტექსტური ყუთის სახელი, როგორც "txtShowResult".
12. დააყენეთ შრიფტი და წინა ფერი სურვილისამებრ.
13. იპოვეთ „მრავალხაზოვანი“ და დააყენეთ „True“.
14. იპოვეთ „გადახვევის ზოლები“ ​​და აირჩიეთ ვერტიკალური ზოლი.
15. შემდეგ შექმენით კიდევ ორი ​​ლეიბლი და ტექსტური ყუთი.
16. შემდეგ დაასახელეთ პირველი ლეიბლი, როგორც "lblTotalLinks" და დააყენეთ წარწერა, როგორც "სულ ბმულები ამ დოკუმენტში".
17. და დაასახელეთ მეორე ლეიბლი, როგორც "lblNumberOfInvalidLinks" და დააყენეთ წარწერა, როგორც "არასწორი ბმულების რაოდენობა".
18. დაასახელეთ პირველი ტექსტური ველი, როგორც „txtTotalLinks“, ხოლო მეორე, როგორც „txtNumberOfInvalidLinks“.
19. შემდეგ იპოვნეთ ბრძანების ღილაკის კონტროლი ხელსაწყოთა ყუთში. შექმენით ორი ბრძანების ღილაკი, როგორიცაა ქვემოთ:
20. დაასახელეთ პირველი ღილაკი, როგორც „cmdbtnClose“ და მისი სათაურის ტექსტი „დახურვა“.
21. დაასახელეთ მეორე ღილაკი, როგორც „btnCloseAndHighlightInvalidURLs“, ხოლო სათაურის ტექსტი, როგორც „დახურვა და მონიშნეთ არასწორი URL-ები“.
22. შემდეგ ორჯერ დააწკაპუნეთ ღილაკზე "დახურვა" და "დახურვა და მონიშნეთ არასწორი URL" ღილაკები შესაბამისად. შეიყვანეთ კოდები შემდეგნაირად:

გაუშვით მაკრო

დააჭირეთ ღილაკს, რომელსაც ანიჭებთ მაკროს. აქ არის საბოლოო ეფექტი:

თქვენ შეგიძლიათ ნახოთ დეტალური ინფორმაცია თითოეული წარუმატებელი ბმულის შესახებ მარცხენა დიდ ტექსტურ ველში. თქვენ შეგიძლიათ აირჩიოთ მომხმარებლის ფორმის პირდაპირ დახურვა ან დახურვა დოკუმენტში ყველა გატეხილი ბმულის მონიშვნისას.

გაუმკლავდეთ Word-ის საკითხებს ყურადღებით

Word ადვილად მიდრეკილია შეცდომებისკენ. ამრიგად, ის უკიდურესად მნიშვნელოვანი ხდება Word-ის შესწორება სწორად. უმეტეს შემთხვევაში, ჩაშენებული ინსტრუმენტი დიდად ვერ დაგეხმარებათ. ამიტომ, თქვენი საუკეთესო არჩევანია მესამე მხარის შეკეთების ინსტრუმენტის შეძენა.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის შეკეთება xlsx მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად