2 ဘာသာစကားပေါင်းစုံ စာရွက်စာတမ်းတစ်ခုတွင် ဘာသာစကားတစ်ခု၏ စုစုပေါင်းစကားလုံးများကို ရေတွက်ရန် နည်းလမ်းများ

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

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

ထို့နောက် ယင်းပြဿနာကို ဖြေရှင်းရန် အသုံးဝင်သော ဖြေရှင်းနည်း ၂ ခုကို ပေးဆောင်ရန် ရည်ရွယ်ပါသည်။

နည်းလမ်း 1- “Advanced Find” ရွေးချယ်မှုကို အသုံးပြုပါ။

1. ပထမဦးစွာ၊ "ပင်မ" တက်ဘ်အောက်ရှိ "တည်းဖြတ်ခြင်း" အုပ်စုရှိ "ရှာဖွေ" နောက်ကွယ်ရှိ ဇောက်ထိုးတြိဂံခလုတ်ကို နှိပ်ပါ။     
2. ယခု "ရှာဖွေပြီး အစားထိုးရန်" ဒိုင်ယာလော့ဂ်အကွက်တွင် "နောက်ထပ်" ခလုတ်ကို နှိပ်ပါ။
3. ပြီးလျှင် “စကားလုံးအားလုံးကို ရှာဖွေရန်” အကွက်ကို စစ်ဆေးပါ။
4. ထို့နောက် "Format" ခလုတ်ကိုနှိပ်ပါ။
5. ထို့နောက် "ဘာသာစကား" ကိုရွေးချယ်ပါ။
6. “ဘာသာစကားရှာဖွေရန်” ဒိုင်ယာလော့ဘောက်စ်တွင်၊ ပစ်မှတ်ဘာသာစကားကို ရှာဖွေရွေးချယ်ပြီး “OK” ကိုနှိပ်ပါ။
7. ယခု “Find and Replace” အကွက်သို့ ပြန်သွားပြီး “Find In” ကိုနှိပ်ပြီး “Main Document” ကို ရွေးချယ်ပါ။
8. ထို့နောက် အင်္ဂလိပ်စကားလုံးအားလုံးကို ရွေးချယ်ပြီး စခရင်၏ ဘယ်ဘက်အောက်ထောင့်ရှိ စကားလုံးရေတွက်မှုကို စစ်ဆေးရန် သွားပါ။ နံပါတ်က 93 ကိုတွေ့နိုင်တယ်။

နည်းလမ်း 2: Word Macro ကိုဖွင့်ပါ။

1. စတင်ရန်အတွက် “Developer” tab ကိုနှိပ်ပါ။
2. ထို့နောက် VBA တည်းဖြတ်မှုကို စတင်ရန် "Visual Basic" ကိုနှိပ်ပါ။ သင့်တွင် “Developer” တက်ဘ်ကို မဖွင့်ရသေးပါက၊ ထိုအစား “Alt+ F11” ကိုနှိပ်ပါ။
3. ထို့နောက် "Normal" ကိုနှိပ်ပြီး "Insert" ကိုနှိပ်ပါ။
4. "Module" ကိုရွေးချယ်ပါ။
5. coding space ကိုဖွင့်ရန် module အသစ်ကို double click လုပ်ပါ။
6. ထို့နောက် အောက်ပါကုဒ်များကို ထိုနေရာတွင် ကူးထည့်ပါ။

Sub CountTotalWordsOfOneLanguage()
  Dim objRange As Range
  Dim nWords As Long
 
  ' Initialization
  Set objRange = ActiveDocument.Range
  nWords = 0
 
  ' Find all English words and do word count.
  With objRange.Find
    .LanguageID = wdFrench
    Do While .Execute
      nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
    Loop
  End With
 
  MsgBox nWords
End Sub

7. နောက်ဆုံးအနေနဲ့ "Run" ခလုတ်ကိုနှိပ်ပါ။

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

မှတ်စု:

ကုဒ်လိုင်းမှာ ".LanguageID=wdFrench"the"wdFrench" ပြင်သစ်ဘာသာစကားကိုဆိုလိုသည်။ ပိုမိုတိကျသောအသုံးပြုမှုအတွက် ကုဒ်များကို စိတ်ကြိုက်ပြင်ဆင်ရန်၊ သင်သည် ဘာသာစကား ID ကို သင်အလိုရှိသော ဘာသာစကားအတိအကျဖြင့် အစားထိုးနိုင်ပါသည်။ နောက်ထပ် ဘာသာစကား ID အတွက်၊ သင်သည် ဝင်ရောက်ကြည့်ရှုနိုင်သည်- https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

ပျက်စီးနေသော Word ဖိုင်များကို စနစ်တကျ ကိုင်တွယ်ပါ။

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

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

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