কীভাবে ব্যাচ আপনার ভিডিএ-র মাধ্যমে আপনার ওয়ার্ড ডকুমেন্টের সমস্ত হাইপারলিঙ্কগুলিকে বৈধ করুন

এই নিবন্ধে, আমরা আপনাকে VBA এর মাধ্যমে আপনার ওয়ার্ড ডকুমেন্টের সমস্ত হাইপারলিংক দ্রুত বৈধ করার একটি স্বয়ংক্রিয় উপায় দেখাব।

একটি ওয়ার্ড ডকুমেন্টে অনেক হাইপারলিঙ্ক, শত শত এমনকি থাকতে পারে। তাদের মধ্যে, কিছু অবৈধ লিঙ্ক যা আপনাকে সঠিক ওয়েবপৃষ্ঠায় নিয়ে যেতে ব্যর্থ করে। সুতরাং, আমরা আপনাকে VBA এর মাধ্যমে একটি নথিতে সমস্ত লিঙ্ক দ্রুত চেক করার উপায় দিতে চাই।

একটি শব্দ ম্যাক্রো ইনস্টল এবং সংরক্ষণ করুন

1. প্রথমত, "Alt+ F11" দিয়ে VBA সম্পাদক খুলুন।
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. তারপর ম্যাক্রোর জন্য একটি বোতাম বরাদ্দ করুন। বিস্তারিত তথ্যের জন্য আপনি নিম্নলিখিত নিবন্ধটি দেখতে পারেন:

আপনার শব্দে ম্যাক্রো এবং ভিবিএর সাথে আটকানো টেক্সটগুলির বিন্যাস কীভাবে সরানো যায়

একটি ব্যবহারকারী ফর্ম তৈরি করুন

একটি ব্যবহারকারীর ফর্মের সাহায্যে, আপনি বর্তমান নথিতে লিংকের মোট সংখ্যা, অবৈধ লিঙ্কের সংখ্যা এবং আরো বিস্তারিত দেখতে পাবেন।

1. প্রথমে, টুলবারে আবার "সন্নিবেশ করুন" ক্লিক করুন। কিন্তু এবার, "UserForm" নির্বাচন করুন।
2. পরবর্তী বাম কোণে "প্রোপার্টি উইন্ডো" খুলতে "F4" টিপুন। জানালার আকার নিয়মিত।
3. এখন ব্যবহারকারীর ফর্মটির নাম দিন "frmCheckURLs"।
4. "চেক ইউআরএল" হিসেবে ক্যাপশন সেট করুন।
5. তারপর সঠিকভাবে ফন্ট সেট করুন।
6. পরবর্তী টুলবারে "টুলবক্স" বোতামে ক্লিক করুন।
7. এখন টুলবক্সে "লেবেল" ক্লিক করুন। ব্যবহারকারীর ফর্মে একটি আয়তক্ষেত্র লেবেল টেনে আনতে মাউস ব্যবহার করুন।
8. লেবেলের সম্পত্তির উইন্ডোটি সক্রিয় করতে ক্লিক করুন। লেবেলের নাম "lblInvalidURLs" এবং লেবেল ক্যাপশনকে "অবৈধ URLs" হিসাবে সেট করুন।
9. পরবর্তী লেবেল ক্যাপশন পাঠ্যের জন্য সঠিক ফন্ট এবং পূর্বাভাস নির্বাচন করুন।
10. টুলবক্সে "পাঠ্য বাক্স" নির্বাচন করুন এবং ব্যবহারকারীর ফর্মে একটি পাঠ্য বাক্স সন্নিবেশ করান। এর আকার সামঞ্জস্য করুন।
11. তারপর টেক্সট বক্সের নাম "txtShowResult" হিসাবে সেট করুন।
12. ইচ্ছামত ফন্ট এবং ফোর কালার সেট করুন।
13. "মাল্টিলাইন" খুঁজুন এবং এটি "সত্য" সেট করুন।
14. "স্ক্রোলবার" খুঁজুন এবং একটি উল্লম্ব বার নির্বাচন করুন।
15. পরবর্তী আরো দুটি লেবেল এবং টেক্সট বক্স তৈরি করুন।
16. তারপরে প্রথম লেবেলটিকে "lblTotalLinks" নামে নাম দিন এবং "এই নথিতে মোট লিঙ্ক" হিসাবে ক্যাপশন সেট করুন।
17. এবং দ্বিতীয় লেবেলটিকে "lblNumberOfInvalidLinks" নামে নাম দিন এবং "অবৈধ লিঙ্কগুলির সংখ্যা" হিসাবে ক্যাপশন সেট করুন।
18. প্রথম টেক্সট বক্সের নাম দিন "txtTotalLinks" এবং দ্বিতীয়টির নাম "txtNumberOfInvalidLinks"।
19. তারপর টুলবক্সে কমান্ড বোতাম নিয়ন্ত্রণ খুঁজুন। দুটি কমান্ড বোতাম তৈরি করুন, যেমন বেলো:
20. প্রথম বোতামটির নাম দিন "cmdbtnClose" এবং এর ক্যাপশন পাঠ্যটিকে "বন্ধ করুন"।
21. দ্বিতীয় বোতামের নাম দিন "btnCloseAndHighlightInvalidURLs", এবং এর ক্যাপশন পাঠ্যকে "বন্ধ করুন এবং অবৈধ URL গুলি হাইলাইট করুন"।
22. পরবর্তীতে যথাক্রমে "বন্ধ করুন" এবং "বন্ধ করুন এবং অবৈধ URL গুলি হাইলাইট করুন" বোতামে ডাবল ক্লিক করুন। নিম্নরূপ কোড লিখুন:

ম্যাক্রো চালান

আপনি ম্যাক্রোতে বরাদ্দ বোতামটি ক্লিক করুন। এখানে চূড়ান্ত প্রভাব:

আপনি বাম বড় টেক্সট বক্সে প্রতিটি ব্যর্থ লিঙ্ক সম্পর্কে বিস্তারিত তথ্য দেখতে পারেন। এবং আপনি নথিতে সমস্ত ভাঙা লিঙ্কগুলি হাইলাইট করার সময় ব্যবহারকারী ফর্মটি সরাসরি বন্ধ করতে বা বন্ধ করতে বেছে নিতে পারেন।

শব্দ সমস্যাগুলি যত্ন সহকারে পরিচালনা করুন

শব্দ সহজেই ত্রুটির প্রবণ হয়। সুতরাং এটি চরম গুরুত্বপূর্ণ হয়ে ওঠে শব্দ ঠিক করুন সঠিকভাবে। বেশিরভাগ সময়, অন্তর্নির্মিত সরঞ্জামটি আপনাকে তেমন সাহায্য করতে পারে না। তাই, আপনার সেরা বিকল্প হলো একটি তৃতীয় পক্ষের মেরামতের সরঞ্জাম সংগ্রহ করা।

লেখকের ভূমিকা:

ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় মেরামত xlsx এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com