শব্দ গণনা পরিসংখ্যান থেকে আপনার শব্দ নথিতে নম্বর বাদ দেওয়ার 4 উপায়

আজকের নিবন্ধে, আমরা আপনাকে 4টি কার্যকরী উপায় উপস্থাপন করব যাতে শব্দ গণনা পরিসংখ্যান থেকে আপনার Word নথিতে সংখ্যাগুলি বাদ দেওয়া যায়।

সাধারণত, Word সব ধরনের পাঠ্য গণনা করে, সেগুলি শব্দ হোক বা সংখ্যা। কিন্তু, এখন এবং তারপর, আমরা নির্দিষ্ট উপাদানগুলি বাদ দিয়ে একটি শব্দ গণনা করতে পারি, যেমন সংখ্যা। অতএব, আমরা আপনাকে এই ধরনের প্রয়োজন মেটাতে 4টি পদ্ধতি দেখাতে পেরে আনন্দিত।

সর্বোপরি, আপনাকে অবশ্যই মূল ডকুমেন্টটির একটি ব্যাকআপ নিতে হবে এবং আপনার কপিটির উপর নিচের সমস্ত পদ্ধতি প্রয়োগ করতে হবে।

পদ্ধতি 1: সমস্ত নম্বর মুছুন

1. প্রথমে, কপি ফাইল খুলুন এবং "হোম" ট্যাবের অধীনে "খুঁজুন" এ ড্রপ-ডাউন বোতামে ক্লিক করুন।
2. দ্বিতীয়ত, "Find and Replace" ডায়ালগ বক্স খুলতে "Advanced Find" বেছে নিন।
3. এরপর "কী খুঁজুন" টেক্সট বক্সে "^#" লিখুন। আপনি যদি এই স্ট্রিংটি মনে করতে না পারেন, তাহলে "কী খুঁজুন" টেক্সট বক্সে কার্সার রাখুন এবং "আরো" ক্লিক করুন তারপর "বিশেষ" বোতামে ক্লিক করুন।
4. তারপর "যেকোন সংখ্যা" নির্বাচন করুন।
5. এখন "Find In" এ ক্লিক করুন এবং "Main Document" নির্বাচন করুন।
6. আপনি সব নম্বর নির্বাচন করা হয়.
7. "মুছুন" টিপুন।
8. সংখ্যাগুলি চলে গেলে, আপনি লক্ষ্য করতে পারেন যে Word এখন শব্দ হিসাবে কিছু বিরাম চিহ্নকে বিবেচনা করে। তাই আপনাকে সব বিরাম চিহ্নও মুছে ফেলতে হবে। আবার “Find and Replace” বক্স খুলুন। এই সময় ইনপুট "[,.;:'"""/\!\*\?\\]"(উদ্ধৃতি চিহ্ন ছাড়া) "কী খুঁজুন" টেক্সট বক্সে।
9. এবং "ওয়াইল্ডকার্ড ব্যবহার করুন" বাক্সটি চেক করতে ভুলবেন না।
10. সমস্ত বিরাম চিহ্ন খুঁজে পেতে ধাপ 5 পুনরাবৃত্তি করুন।
11. তাদের মুছে ফেলুন।
12. সবশেষে, পাঠ্যের মোট সংখ্যা দেখতে "পর্যালোচনা" তারপর "শব্দ গণনা" এ ক্লিক করুন।

পদ্ধতি 2: লুকানো পাঠ্য হিসাবে সমস্ত সংখ্যা বিন্যাস করুন

শব্দ শব্দ সংখ্যায় লুকানো পাঠ্য অন্তর্ভুক্ত করে না, তাই আপনি লুকানো বিন্যাসে সংখ্যা সেট করতে বেছে নিতে পারেন।

1. প্রথমত, পদ্ধতিতে প্রথম 6টি ধাপ পুনরাবৃত্তি করুন।
2. নির্বাচিত সংখ্যাগুলি মুছে ফেলার পরিবর্তে, "ফন্ট" বক্স খুলতে "Ctrl + D" টিপুন।
3. "লুকানো" বাক্সটি চেক করুন এবং "ঠিক আছে" ক্লিক করুন।
4. সমস্ত বিরাম চিহ্ন খুঁজে পেতে পরবর্তী ধাপ 8 থেকে 9 পর্যন্ত পুনরাবৃত্তি করুন।
5. একইভাবে, লুকানো পাঠ্য হিসাবে বিরাম চিহ্নগুলি ফর্ম্যাট করতে পদক্ষেপ 2 এবং 3 অনুসরণ করুন৷
6. অবশেষে, মোট শব্দ পরীক্ষা করুন।

পদ্ধতি 3: রান ওয়ার্ড ম্যাক্রো

নিম্নলিখিত ম্যাক্রো স্বয়ংক্রিয়ভাবে উপরের পদক্ষেপগুলি করবে এবং আপনাকে একটি বার্তা বাক্স ফেরত দেবে, যেখানে সংখ্যা বাদে মোট শব্দের সংখ্যা থাকবে।

1. শুরুতে, VBA সম্পাদক খুলতে Word-এ "Alt+ F11" টিপুন।
2. এরপর বাম কলামে "সাধারণ" ক্লিক করুন।
3. তারপরে "সন্নিবেশ" ট্যাবে ক্লিক করুন এবং "মডিউল" নির্বাচন করুন।
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. "রান" ক্লিক করুন।

আপনি একটি বার্তা বাক্স পাবেন, যা আপনাকে বলবে যে আপনার নথিতে কতগুলি শব্দ আছে, যেমন নীচে:

পদ্ধতি 4: ওয়ার্ড কাউন্ট থেকে টেবিলে সংখ্যা বাদ দিন

এখানে শব্দ গণনা থেকে টেবিলে সংখ্যা বাদ দেওয়ার একটি বিশেষ প্রয়োজন। সমাধান একটি ম্যাক্রো চালানো হয়.

1. মেথড 3-তে উপরে বর্ণিত একটি ম্যাক্রো ইনস্টল করুন এবং চালান।
2. তারপরে এই ম্যাক্রোর সাথে এটি পরিবর্তন করুন:

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

এই ধরনের একটি বার্তা বক্স থাকবে:

আগে চিন্তা কর

যেহেতু ওয়ার্ড সম্পূর্ণ ত্রুটিমুক্ত নয়, তাই সবকিছু খুব দেরি হয়ে যাওয়ার আগেই আপনাকে প্রতিরোধমূলক ব্যবস্থা নিতে হবে। সবচেয়ে কার্যকর উপায় হলো আপনার ডকুমেন্টগুলোর ব্যাকআপ নেওয়া এবং যত দ্রুত সম্ভব সেগুলো ব্যাকআপ করা। একটি ডকুমেন্টের ব্যাকআপ নিতে হয়তো কয়েক মিনিট সময় লাগে, কিন্তু তা পুনরুদ্ধার করতে কয়েক ঘণ্টা, এমনকি কয়েক দিনও লেগে যেতে পারে। দূষিত ডক্স. তাই আপনার সময় এবং অর্থ উভয় বাঁচাতে এগিয়ে চিন্তা করুন.

লেখকের ভূমিকা:

ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সেল ফিক্স এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com