3 သင့် Word Document ရှိ အပိုင်းများအတွက် စကားလုံးအရေအတွက်ကို ရေတွက်ရန် နည်းလမ်းများ

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

စာရွက်စာတမ်းတစ်ခု၏ စုစုပေါင်းစကားလုံးအရေအတွက်ကို ရရန် လွယ်ကူသည်။ သို့သော် ကဏ္ဍတစ်ခု၏ စကားလုံးအရေအတွက်ကို ပြောပြရန် Word တွင် လုပ်ဆောင်ချက်မရှိပါ။ စာအုပ်တစ်အုပ်ရေးနေစဉ် အခန်းတစ်ခန်းစီစဉ်ခြင်းကဲ့သို့သော ကဏ္ဍတစ်ခုတွင် တူညီသောအကြောင်းအရာများ၏ အကြောင်းအရာများကို ထည့်လိုသည်ဟူသောအချက်ကြောင့် အပိုင်းရေတွက်ရန် အဖြေရှာရန် ကျွန်ုပ်တို့အတွက် လိုအပ်ပါသည်။   အောက်တွင်ဖော်ပြထားသောနည်းလမ်း 3 ခုသည် သင့်အား macro တစ်ခုလည်ပတ်ရန် လိုအပ်သည်။

နည်းလမ်း 1- လက်ရှိကဏ္ဍအတွက် စကားလုံးအရေအတွက်ကို ရေတွက်ပါ။

1. ပထမဦးစွာ cursor ကို target section ထဲမှာထားပါ။
2. ထို့နောက် Word တွင် VBA editor ကိုဖွင့်ရန်လိုအပ်သည်။ “Developer” ကိုနှိပ်ပြီး “Visual Basic” command ကိုနှိပ်ပါ။ Ribbon တွင် “Developer” ကို ရှာမတွေ့ပါက၊ ထို့နောက် “Alt+ F11” ကိုနှိပ်ပါ။
3. ထို့နောက် ဘယ်ဘက်ကော်လံရှိ "ပုံမှန်" ပရောဂျက်ကို နှိပ်ပါ။
4. ထို့နောက် "Insert" tab ကိုနှိပ်ပါ။
5. ထို drop-down menu တွင် "Module" ကိုရွေးချယ်ပါ။
6. နှစ်ချက်ကလစ်ဖြင့် module အသစ်ကိုဖွင့်ပါ။
7. ယခုဖွင့်ထားသော module တွင်၊ အောက်ပါကုဒ်များကို ကူးထည့်ပါ-

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. နောက်ဆုံးအနေဖြင့်၊ ကုဒ်များကိုလုပ်ဆောင်ရန် "Run" သို့မဟုတ် "F5" ကိုနှိပ်ပါ။

အောက်ပါကဲ့သို့သော လက်ရှိကဏ္ဍ စုစုပေါင်းအရေအတွက်ကို ပြသသည့် မက်ဆေ့ဘောက်စ်ကို သင်လက်ခံရရှိလိမ့်မည်-

နည်းလမ်း 2- သီးခြားကဏ္ဍတစ်ခုအတွက် စကားလုံးအရေအတွက်ကို ရေတွက်ပါ။

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

1. မက်ခရိုကို ထည့်သွင်းပြီး လုပ်ဆောင်ရန် အထက်ဖော်ပြပါ အဆင့်များကို လိုက်နာပါ။
2. Macro ကို ဒီတစ်ခုနဲ့ အစားထိုးလိုက်ပါ-

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. ၎င်းကို run ပါက input box တစ်ခုရှိလိမ့်မည်။ “ကဏ္ဍနံပါတ်ထည့်ပါ” အကွက်တွင် အပိုင်းနံပါတ်ကို ရိုက်ထည့်ကာ ဆက်လက်လုပ်ဆောင်ရန် “OK” ကိုနှိပ်ပါ။

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

နည်းလမ်း 3- စာရွက်စာတမ်းတစ်ခုတွင် ကဏ္ဍအားလုံးအတွက် စကားလုံးအရေအတွက်ကို ရေတွက်ပါ။

စာတန်းထိုးအကြံပြုထားသည့်အတိုင်း၊ ဤနည်းဖြင့် စာတမ်းတစ်ခုစီရှိ ကဏ္ဍတစ်ခုစီ၏ စုစုပေါင်းစကားလုံးအရေအတွက်ကို သင့်အား ရရှိစေပြီး ၎င်းတို့ကို မက်ဆေ့ဘောက်စ်တစ်ခုတွင် စာရင်းပြုစုပေးမည်ဖြစ်သည်။

1. အရင်ဆုံး target document ကိုဖွင့်ပါ။
2. သို့တိုင်၊ သင်သည် macro ကို install လုပ်ပြီး run ရန် method 1 တွင် အဆင့်များကို ထပ်လုပ်ရမည်ဖြစ်ပါသည်။
3. ယခုတစ်ကြိမ်၊ ဤ macro ဖြင့် ပြောင်းလဲပါ။

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

ဤသည်မှာ ဖြစ်နိုင်ခြေရှိသော ရလဒ်ဖြစ်သည်။

အဖိုးတန်ဒေတာကို သိမ်းဆည်းပါ။

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

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

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