Word Count Statistics မှ သင့် Word Document တွင် နံပါတ်များကို ဖယ်ထုတ်ရန် နည်းလမ်း 4 ခု

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

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

အားလုံးမစခင်မှာ target document ရဲ့ backup ကိုယူပြီး အောက်က method အားလုံးကို operate လုပ်ရပါမယ်။

နည်းလမ်း 1- နံပါတ်များအားလုံးကို ဖျက်ပါ။

1. ပထမဦးစွာ၊ ကော်ပီဖိုင်ကိုဖွင့်ပြီး “Home” တက်ဘ်အောက်ရှိ “Find” ရှိ drop-down ခလုတ်ကို နှိပ်ပါ။
2. ဒုတိယအနေဖြင့်၊ "ရှာဖွေပြီး အစားထိုးရန်" dialog box ကိုဖွင့်ရန် "Advanced Find" ကိုရွေးချယ်ပါ။
3. ထို့နောက် “Find what” စာသားအကွက်တွင် “^#” ကို ရိုက်ထည့်ပါ။ ဤစာကြောင်းကို သင်မမှတ်မိပါက၊ “Find what” စာသားအကွက်တွင် ကာဆာကိုထည့်ကာ “နောက်ထပ်” ကိုနှိပ်ပြီးနောက် “အထူး” ခလုတ်ကို နှိပ်ပါ။
4. ထို့နောက် "မည်သည့်ဂဏန်း" ကိုရွေးချယ်ပါ။
5. ယခု "Find In" ကိုနှိပ်ပြီး "Main Document" ကိုရွေးချယ်ပါ။
6. ရွေးချယ်မှုတွင် နံပါတ်များအားလုံးကို သင်တွေ့လိမ့်မည်။
7. “Delete” ကိုနှိပ်ပါ။
8. ဂဏန်းတွေ မရှိတော့တာနဲ့၊ Word မှာ သတ်ပုံအမှတ်အသားတချို့ကို စကားလုံးတွေအဖြစ် အခုပဲ မှတ်ယူနိုင်ပါတယ်။ ဒါကြောင့် ပုဒ်ဖြတ်အမှတ်အသားအားလုံးကို ဖယ်ရှားဖို့ လိုပါတယ်။ “Find and Replace” အကွက်ကို ထပ်မံဖွင့်ပါ။ ဒီတစ်ခါ သွင်းလိုက်တဲ့ "[,.;:'”””/\!\*\?\\]“ဘာကိုရှာပါ” စာသားအကွက်တွင် (ကိုးကားအမှတ်များမပါဘဲ)။
9. ပြီးလျှင် “Use wildcards” အကွက်ကို အမှတ်ခြစ်ရန် မမေ့ပါနှင့်။
10. ပုဒ်ဖြတ်အမှတ်အသားအားလုံးကို ရှာရန် အဆင့် ၅ ကို ပြန်လုပ်ပါ။
11. သူတို့ကို ဖျက်လိုက်ပါ။
12. နောက်ဆုံးအနေဖြင့်၊ စာသားစုစုပေါင်းကိုကြည့်ရှုရန် "Review" ထို့နောက် "Word Count" ကိုနှိပ်ပါ။

နည်းလမ်း 2- နံပါတ်များအားလုံးကို Hidden Texts အဖြစ် ဖော်မတ်ပါ။

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

1. ပထမဦးစွာ နည်းလမ်းတွင် ပထမအဆင့် 6 အဆင့်ကို ပြန်လုပ်ပါ။
2. ရွေးချယ်ထားသော နံပါတ်များကို ဖျက်မည့်အစား “Font” အကွက်ကိုဖွင့်ရန် “Ctrl+D” ကိုနှိပ်ပါ။
3. "Hidden" box ကိုစစ်ဆေးပြီး "OK" ကိုနှိပ်ပါ။
4. ပုဒ်ဖြတ်အမှတ်အသားအားလုံးကို ရှာရန် အဆင့် ၈ မှ ၉ မှ နောက်သို့ ထပ်လုပ်ပါ။
5. အလားတူ၊ ဝှက်ထားသောစာသားများအဖြစ် သတ်ပုံအမှတ်အသားများကိုဖော်မတ်လုပ်ရန် အဆင့် 2 နှင့် 3 ကိုလိုက်နာပါ။
6. နောက်ဆုံးတွင် စုစုပေါင်းစကားလုံးများကို စစ်ဆေးပါ။

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

အောက်ပါ macro သည် အထက်ဖော်ပြပါ အဆင့်များကို အလိုအလျောက် လုပ်ဆောင်ပြီး နံပါတ်များ အပါအဝင် စကားလုံး စုစုပေါင်း အရေအတွက် ပါဝင်သော မက်ဆေ့ဘောက်စ်ကို သင့်ထံ ပြန်ပေးပါမည်။

1. စတင်ရန်၊ VBA တည်းဖြတ်မှုကိုဖွင့်ရန် Word ရှိ “Alt+ F11” ကိုနှိပ်ပါ။
2. ဘယ်ဘက်ကော်လံရှိ “Normal” ကိုနှိပ်ပါ။
3. ထို့နောက် "Insert" tab ကိုနှိပ်ပြီး "Module" ကိုရွေးချယ်ပါ။
4. ၎င်းကိုဖွင့်ရန် မော်ဂျူးပေါ်တွင် နှစ်ချက်နှိပ်ပြီး အောက်ပါကုဒ်များကို ကူးထည့်ပါ-

Sub ExcludeNumbersFromWordCount()
  Dim objDoc As Document
  Dim nWord As Integer
 
  Set objDoc = ActiveDocument
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  MsgBox ("There are " & nWord & " words in this document.")
End Sub

5. “Run” ကိုနှိပ်ပါ။

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

နည်းလမ်း 4- Word Count မှ ဇယားများရှိ နံပါတ်များကို ဖယ်ထုတ်ပါ။

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

1. နည်းလမ်း 3 တွင် အထက်ဖော်ပြပါအတိုင်း မက်ခရိုကို ထည့်သွင်းပြီး လုပ်ဆောင်ပါ။
2. ထို့နောက် အဆိုပါ macro ကို ဤတစ်ခုနှင့် အစားထိုးပါ။

Sub ExcludeNumbersInTablesFromWordCount()
  Dim objDoc As Document, objNewDoc As Document
  Dim nWord As Integer, nWordInNewDoc As Integer, nWordInNewDocWithoutNum As Integer, nNumber As Integer
  Dim objTable As Table
  Dim objRange As Range
  Dim objParagraph As Paragraph
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    Set objRange = objNewDoc.Range
 
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
  objNewDoc.Activate
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.Style = "Caption" Then
      objParagraph.Range.Delete
    End If
  Next objParagraph
 
  nWordInNewDoc = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWordInNewDocWithoutNum = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
  nNumber = nWordInNewDoc - nWordInNewDocWithoutNum
  objDoc.Activate
  MsgBox ("There are " & nWord - nNumber & " words in this document, excluding numbers in tables.")
End Sub

ဤကဲ့သို့သော မက်ဆေ့ချ်ဘောက်စ်တစ်ခု ရှိလာလိမ့်မည် ။

ရှေ့ဆက်စဉ်းစားပါ

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

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

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