2 Word Count Statistics မှ ဇယားစာသားများကို ဖယ်ထုတ်ရန် နည်းလမ်းများ

ဒီနေ့ပို့စ်မှာ စကားလုံးရေတွက်စာရင်းအင်းတွေကနေ ဇယားစာသားတွေကို ဖယ်ထုတ်ဖို့ ထိရောက်တဲ့နည်းလမ်း ၂ ခုကို မျှဝေပေးရတာ ဝမ်းသာပါတယ်။

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

နည်းလမ်း 1- ဇယားများကို ကိုယ်တိုင်ရွေးချယ်ပြီး သင်ကိုယ်တိုင် သင်္ချာကို ပြုလုပ်ပါ။

ဇယားတစ်ခု (သို့) နှစ်ခုမျှသာရှိသော စာရွက်စာတမ်းအတိုဖြစ်ပါက “Ctrl” ခလုတ်ကို ဖိထားပြီး ဇယားများကို တစ်ခုပြီးတစ်ခု ရွေးချယ်ရန်မှာ စိတ်ရှုပ်စရာမရှိပါ။ ဤချဉ်းကပ်မှုတွင်၊ ရွေးချယ်ထားသောဇယားများရှိ စုစုပေါင်းအရေအတွက်ကို အောက်ပါကဲ့သို့သော အခြေအနေဘားတွင် မြင်နိုင်ပါမည်-

မြင်တဲ့အတိုင်း ဂဏန်း ၂ လုံးရှိတယ်။ ပထမတစ်ခုသည် ရွေးချယ်ထားသောဇယားများရှိ စကားလုံးအရေအတွက်ကို ရည်ညွှန်းပြီး ဒုတိယမှာ သင့်စာရွက်စာတမ်းရှိ စကားလုံးစုစုပေါင်းအရေအတွက်ဖြစ်သည်။ ရလဒ်ရရှိရန် ပထမနံပါတ်ကို နုတ်ရန် ဒုတိယနံပါတ်ကို အသုံးပြုပါ။

နည်းလမ်း 2- VBA ကုဒ်များကိုဖွင့်ပါ။

အထက်တွင်ဖော်ပြခဲ့သည့်အတိုင်း၊ စာရွက်စာတမ်းများတွင် ဇယားအများအပြားရှိနေပါက နည်းလမ်း 1 သည် ပျင်းရိလိမ့်မည်။ ၎င်းတို့ကို ကိုယ်တိုင်ရွေးချယ်ရန်မှာ စံပြနည်းလမ်းမဟုတ်သည်မှာ သေချာပါသည်။ ယင်းအစား၊ စကားလုံးအားလုံးကို ရေတွက်သော်လည်း ဇယားများနှင့် စာတန်းများတွင် ဖယ်ထုတ်မည့် မက်ခရိုတစ်ခုကို သင့်အား အကြံပြုအပ်ပါသည်။

1. Word မှာ VBA editor ကိုခေါ်ဖို့ ပထမဆုံး Alt+ F11 ကိုနှိပ်လိုက်ပါ။
2. ထို့နောက် "Normal" ကိုနှိပ်ပါ။
3. ထို့နောက် "Insert" tab ကိုနှိပ်ပါ။
4. ပြီးလျှင် "Insert" tab ၏ drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
5. ညာဘက်ခြမ်းရှိ coding ဧရိယာကိုဖွင့်ရန် module အသစ်ကို နှစ်ချက်နှိပ်ပါ။
6. ယခု အောက်ပါ macro ကို ထိုနေရာတွင် ကူးထည့်ပါ။

Sub ExcludeTableAndCaptionWordsFromWordCount()
  Dim objTable As Table
  Dim objParagraph As Paragraph
  Dim objDoc As Document
  Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
 
  Set objDoc = ActiveDocument
  nTableWords = 0
  nCaptionWords = 0
  nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
 
  With objDoc
    For Each objTable In .Tables
      nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
    Next objTable
  End With
 
  With objDoc
    For Each objParagraph In .Paragraphs
      If objParagraph.Range.Style = "Caption" Then
        nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
      End If
    Next objParagraph
  End With
 
  nWordCount = nDocWords - nTableWords - nCaptionWords
 
  MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub

7. နောက်ဆုံး Run ကိုနှိပ်ပါ။

မက်ခရိုကိုလုပ်ဆောင်ခြင်းသည် ရေတွက်ခြင်းရလဒ်ကိုပြသသည့် မက်ဆေ့ခ်ျဘောက်စ်တစ်ခု ပေါ်လာလိမ့်မည်။

Word Damages နှင့်ဖြေရှင်းပါ။

ကျွန်ုပ်တို့သည် နေ့စဉ်လုပ်ငန်းဆောင်တာများကို လုပ်ဆောင်ရန်အတွက် Word ကဲ့သို့သော ဆော့ဖ်ဝဲလ်ကို အလွန်အားကိုးပါသည်။ ရလဒ်အနေနှင့် ကျွန်ုပ်တို့သည် ကြီးကြီးမားမားရှိခြင်း၏ အကျိုးဆက်ကို တွေးတောမနေနိုင်ပါ။ စကားလုံး ဖောက်ပြန်မှု. သင့်တွင် လုံလောက်သောစာရွက်စာတမ်းပြုပြင်ရေးကိရိယာမရှိပါက စိတ်ပျက်လက်ပျက်ခံစားရနိုင်သည်။

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

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