VBA မှတစ်ဆင့် သင့် Word Document အတွင်းရှိ ဟိုက်ပါလင့်ခ်များအားလုံးကို တရားဝင်အောင်ပြုလုပ်နည်း

ဤဆောင်းပါးတွင်၊ သင်၏ Word document ရှိ ဟိုက်ပါလင့်ခ်များအားလုံးကို VBA မှတစ်ဆင့် အမြန်အသုတ်စစ်ဆေးရန် အလိုအလျောက်နည်းလမ်းကို သင့်အား ပြသပါမည်။

Word စာရွက်စာတမ်းတစ်ခုတွင် ဟိုက်ပါလင့်ခ်များစွာ ပါဝင်နိုင်ပြီး ရာနှင့်ချီ၍ပင် ရှိနိုင်သည်။ ၎င်းတို့အနက် အချို့သည် သင့်အား မှန်ကန်သော ဝဘ်စာမျက်နှာသို့ ပို့ဆောင်ရန် ပျက်ကွက်သည့် မမှန်ကန်သော လင့်ခ်များဖြစ်သည်။ ထို့ကြောင့်၊ ကျွန်ုပ်တို့သည် သင့်အား VBA မှတစ်ဆင့် စာရွက်စာတမ်းတစ်ခုရှိ လင့်ခ်အားလုံးကို အမြန်စစ်ဆေးရန် နည်းလမ်းကို ပေးဆောင်လိုပါသည်။

Word Macro ကို ထည့်သွင်းပြီး သိမ်းဆည်းပါ။

1. ပထမဆုံးအနေနဲ့ “Alt+ F11” နဲ့ VBA editor ကိုဖွင့်ပါ။
2. ထို့နောက် "ပုံမှန်" ပရောဂျက်ကိုနှိပ်ပါ။
3. ထို့နောက် toolbar menu ရှိ "Insert" tab ကိုနှိပ်ပါ။
4. မီနူးတွင် "Module" ကိုရွေးချယ်ပါ။
5. တည်းဖြတ်ရန်နေရာကိုဖွင့်ပြီး အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ရန် module ပေါ်တွင် နှစ်ချက်နှိပ်ပါ။

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. ထို့နောက် “Save” ကိုနှိပ်ပါ။
7. ထို့နောက် မက်ခရိုအတွက် ခလုတ်တစ်ခု သတ်မှတ်ပါ။ အသေးစိတ်အချက်အလက်များအတွက် အောက်ပါဆောင်းပါးကို ကိုးကားနိုင်သည်-

သင့် Word တွင် Macro နှင့် VBA ဖြင့် Pasted Text ၏ Formatting ကိုမည်သို့ဖယ်ရှားနည်း

အသုံးပြုသူဖောင်တစ်ခုဖန်တီးပါ။

အသုံးပြုသူပုံစံဖြင့်၊ လက်ရှိစာရွက်စာတမ်းရှိ လင့်ခ်စုစုပေါင်းအရေအတွက်၊ မမှန်ကန်သောလင့်ခ်အရေအတွက်နှင့် အခြားအသေးစိတ်အချက်အလက်များကို ရှင်းရှင်းလင်းလင်းမြင်နိုင်သည်။

1. ပထမဦးစွာ toolbar ရှိ "Insert" ကို ထပ်မံနှိပ်ပါ။ ဒါပေမယ့် ဒီတစ်ခါမှာတော့ “UserForm” ကို ရွေးပါ။
2. ဘယ်ဘက်အောက်ထောင့်ရှိ "Properties Window" ကိုဖွင့်ရန် "F4" ကိုနှိပ်ပါ။ ပြတင်းပေါက်အရွယ်အစားကို ချိန်ညှိနိုင်သည်။
3. ယခုအသုံးပြုသူဖောင်ကို "frmCheckURLs" အဖြစ် အမည်ပေးလိုက်ပါ။
4. စာတန်းကို "URL များကို စစ်ဆေးပါ" အဖြစ် သတ်မှတ်ပါ။
5. ထို့နောက် ဖောင့်ကို မှန်ကန်စွာ သတ်မှတ်ပါ။
6. ထို့နောက် toolbar ရှိ "Toolbox" ခလုတ်ကိုနှိပ်ပါ။
7. ယခု toolbox တွင် "Label" ကိုနှိပ်ပါ။ အသုံးပြုသူဖောင်ပေါ်တွင် ထောင့်မှန်စတုဂံအညွှန်းကို ဆွဲယူရန် မောက်စ်ကို အသုံးပြုပါ။
8. ၎င်း၏ပိုင်ဆိုင်မှုဝင်းဒိုးကိုအသက်သွင်းရန်အညွှန်းကိုနှိပ်ပါ။ အညွှန်းအမည်ကို “lblInvalidURLs” အဖြစ် သတ်မှတ်ပြီး စာတန်းကို “မမှန်ကန်သော URLsများ-” အဖြစ် သတ်မှတ်ပါ။
9. ထို့နောက် အညွှန်းစာတန်းစာသားအတွက် သင့်လျော်သော ဖောင့်နှင့် ရှေ့အရောင်ကို ရွေးချယ်ပါ။
10. ကိရိယာပုံးရှိ “စာသားသေတ္တာ” ကိုရွေးချယ်ပြီး အသုံးပြုသူဖောင်ပေါ်တွင် စာသားအကွက်တစ်ခုကို ထည့်သွင်းပါ။ ၎င်း၏အရွယ်အစားကိုချိန်ညှိပါ။
11. ထို့နောက် စာသားအကွက်အမည်ကို “txtShowResult” အဖြစ် သတ်မှတ်ပါ။
12. အလိုရှိသည့်အတိုင်း ဖောင့်နှင့် ရှေ့အရောင်ကို သတ်မှတ်ပါ။
13. “MultiLine” ကိုရှာပြီး “True” ဟု သတ်မှတ်ပါ။
14. “Scrollbars” ကိုရှာပြီး ဒေါင်လိုက်ဘားတစ်ခုကို ရွေးပါ။
15. ထို့နောက် နောက်ထပ် အညွှန်းနှစ်ခုနှင့် စာသားသေတ္တာကို ဖန်တီးပါ။
16. ထို့နောက် ပထမအညွှန်းကို “lblTotalLinks” ဟု အမည်ပေးပြီး “ဤစာရွက်စာတမ်းရှိ စုစုပေါင်းလင့်ခ်များ” အဖြစ် စာတန်းကို သတ်မှတ်ပါ။
17. ဒုတိယအညွှန်းကို “lblNumberOfInvalidLinks” အဖြစ် အမည်ပေးပြီး “မမှန်ကန်သော လင့်ခ်အရေအတွက်” အဖြစ် စာတန်းကို သတ်မှတ်ပါ။
18. ပထမစာသားအကွက်ကို “txtTotalLinks” အဖြစ်၊ ဒုတိယ “txtNumberOfInvalidLinks” အဖြစ် အမည်ပေးပါ။
19. ထို့နောက် toolbox တွင် command button control ကိုရှာပါ။ အောက်ပါကဲ့သို့ အမိန့်ပေးခလုတ်နှစ်ခု ဖန်တီးပါ။
20. ပထမခလုတ်ကို “cmdbtnClose” အဖြစ် အမည်ပေးပြီး ၎င်း၏စာတန်းစာသားကို “ပိတ်” ဟု အမည်ပေးလိုက်ပါ။
21. ဒုတိယခလုတ်ကို “btnCloseAndHighlightInvalidURLs” အဖြစ် အမည်ပေးပြီး ၎င်း၏စာတန်းစာသားကို “ပိတ်ပြီး မမှန်ကန်သော URLs” အဖြစ် အမည်ပေးပါ။
22. ထို့နောက် “ပိတ်ရန်” ခလုတ်နှင့် “ပိတ်ပြီး မမှန်ကန်သော URL များကို မီးမောင်းထိုးပြပါ” ခလုတ်ကို နှစ်ချက်နှိပ်ပါ။ အောက်ပါအတိုင်း ကုဒ်များကို ထည့်ပါ

Macro ကိုဖွင့်ပါ။

မက်ခရိုသို့ သင်သတ်မှတ်ပေးသည့် ခလုတ်ကို နှိပ်ပါ။ ဤသည်မှာ နောက်ဆုံးအကျိုးသက်ရောက်မှုဖြစ်သည်-

ဘယ်ဘက်တွင် မအောင်မြင်သော လင့်ခ်တစ်ခုစီ၏ အသေးစိတ်အချက်အလက်များကို သင်ကြည့်ရှုနိုင်သည်။ ထို့အပြင် အသုံးပြုသူဖောင်ကို တိုက်ရိုက်ပိတ်ရန် သို့မဟုတ် စာရွက်စာတမ်းရှိ ပျက်စီးနေသောလင့်ခ်အားလုံးကို မီးမောင်းထိုးပြနေချိန်တွင် ၎င်းကို ပိတ်ရန် သင်ရွေးချယ်နိုင်သည်။

စကားလုံးပြဿနာများကို ဂရုတစိုက်ကိုင်တွယ်ပါ။

စကားလုံးသည် အမှားအယွင်းများရန် လွယ်ကူသည်။ ဒါကြောင့် လွန်ကဲဖို့ အရေးကြီးတယ်။ Word ကိုပြင်ပါ။ မှန်ကန်စွာ။ အများစုမှာ၊ built-in tool က သင့်ကို သိပ်အထောက်အကူမပြုနိုင်ပါဘူး။ ထို့ကြောင့်၊ သင်၏အကောင်းဆုံးရွေးချယ်မှုမှာ ပြင်ပပြုပြင်ရေး tool တစ်ခုကို ရယူရန်ဖြစ်သည်။

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ xlsx ပြုပြင်ပါ။ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com