আজকের নিবন্ধে, আপনার নথিতে পাঠ্য বাক্স, পাদটীকা এবং প্রবন্ধগুলি সম্পর্কিত শব্দ গণনা পরিসংখ্যান পাওয়ার 3 টি দ্রুত উপায় রয়েছে।
নথিতে মোট শব্দের সংখ্যা পাওয়া শক্ত নয়। তবে আপনি যদি বিভিন্ন ধরণের পাঠ্যের শব্দের সংখ্যা পেতে চান তবে আরও ক্রিয়াকলাপের প্রয়োজন হবে। নিম্নলিখিত 3 পদ্ধতি রয়েছে। আপনি কী ব্যবহার করতে পারেন তা দেখতে পড়ুন। 
পদ্ধতি 1: পাঠ্য বাক্স, পাদটীকা এবং প্রবন্ধগুলি থেকে পাঠ্য সহ শব্দের গণনা করুন
ডিফল্টরূপে, শব্দটি ডকুমেন্টে টেক্সট বাক্সে পাঠ্য এবং পাদটীকাগুলি এবং এন্ডনোটসগুলির শব্দগুলি সহ ডকুমেন্টে উপস্থিত সমস্ত শর্ত গণনা করে।
- সর্বপ্রথম, স্ট্যাটাস বারে গিয়ে “Words”-এ ক্লিক করলে “Word Count” বক্সটি খুলবে।
- সেখানে আপনি সব ধরণের পরিসংখ্যান দেখতে পাবেন। নিশ্চিত করুন যে আপনি "পাঠ্যবাক্সগুলি, পাদটীকা এবং প্রবন্ধগুলি অন্তর্ভুক্ত করুন" বাক্সটি চেক করেছেন।
- তারপরে "বন্ধ করুন" ক্লিক করুন।
- আপনি যদি স্ট্যাটাস বারে "শব্দ" কমান্ডটি খুঁজে না পান, সেখানে ডানদিকে ক্লিক করুন।
- এরপরে "ওয়ার্ড কাউন্ট" চেক করুন।
পদ্ধতি 2: পাঠ্য বাক্সগুলি থেকে টেক্সটগুলি বাদ দিন, পাদটীকা এবং শব্দ গণনা থেকে প্রবন্ধগুলি
এটি 1 পদ্ধতির বিপরীতে So সুতরাং আপনাকে কেবল "পাঠ্যবাক্সগুলি, পাদটীকা এবং প্রবন্ধগুলি অন্তর্ভুক্ত করুন" বাক্সটি আনচেক করতে হবে।
পদ্ধতি 3: পাঠ্য বাক্স, পাদটীকা এবং প্রবন্ধগুলি থেকে পৃথক শব্দের পৃথক গণনা পেতে ওয়ার্ড ম্যাক্রো চালান
- প্রথমত, পদ্ধতি 1 এর পদ্ধতি ব্যবহার করে "ওয়ার্ড কাউন্ট" বক্সটি ট্রিগার করুন এবং বিকল্প বাক্সটি চেক করা আছে তা নিশ্চিত করুন।
- পরবর্তী ভিবিএ সম্পাদক খুলতে "Alt + F11" টিপুন।
- তারপরে প্রথমে "সাধারণ" ক্লিক করে একটি "নতুন" প্রকল্পে একটি নতুন মডিউল sertোকান।
- এবং তারপরে "sertোকান" ক্লিক করুন।
- তারপরে "মডিউল" চয়ন করুন।
- কোডিং অঞ্চলটি খোলার জন্য মডিউলটিতে ডাবল ক্লিক করুন এবং নীচের কোডগুলি এখানে পেস্ট করুন:
Sub SeparateCountNumberOfTextboxFootnoteEndnote()
Dim lTextboxWords As Long
Dim lTextboxChars As Long
Dim lDocumntWords As Long
Dim lDocumntChars As Long
Dim objTextboxShape As Shape
Dim objTemp As Dialog
Dim bDone As Boolean
Dim objRange As Range
Dim lFootnoteWords As Long
Dim lFootnoteChars As Long
Dim lEndnoteWords As Long
Dim lEndnoteChars As Long
Application.ScreenUpdating = False
Do
bDone = True
For Each objTextboxShape In ActiveDocument.Shapes
If objTextboxShape.Type = msoGroup Then
objTextboxShape.Ungroup
bDone = False
End If
Next objTextboxShape
Loop Until bDone
' Count the words and characters in the whole document.
Selection.HomeKey Unit:=wdStory
Set objTemp = Dialogs(wdDialogToolsWordCount)
objTemp.Update
objTemp.Execute
lDocumntWords = objTemp.Words
lDocumntChars = objTemp.Characters
With ActiveDocument
' Count the words and characters in all textboxes.
lTextboxWords = 0
lTextboxChars = 0
If ActiveDocument.Shapes.Count > 0 Then
For Each objTextboxShape In .Shapes
objTextboxShape.Select
objTemp.Execute
lTextboxWords = lTextboxWords + objTemp.Words
lTextboxChars = lTextboxChars + objTemp.Characters
Next objTextboxShape
Else
MsgBox ("There is no text box in this document")
End If
' Count the words and characters in all footnotes.
lFootnoteWords = 0
lFootnoteChars = 0
If ActiveDocument.Footnotes.Count > 0 Then
For Each objRange In .StoryRanges
If objRange.StoryType = wdFootnotesStory Then
objRange.Select
objTemp.Execute
lFootnoteWords = lFootnoteWords + objTemp.Words
lFootnoteChars = lFootnoteChars + objTemp.Characters
End If
Next objRange
Else
MsgBox ("There is no footnote in this document")
End If
' Count the words and characters in all endnotes.
lEndnoteWords = 0
lEndnoteChars = 0
If ActiveDocument.Endnotes.Count > 0 Then
For Each objRange In .StoryRanges
If objRange.StoryType = wdEndnotesStory Then
objRange.Select
objTemp.Execute
lEndnoteWords = lEndnoteWords + objTemp.Words
lEndnoteChars = lEndnoteChars + objTemp.Characters
End If
Next objRange
Else
MsgBox ("There is no Endnote in this document")
End If
End With
Application.ScreenUpdating = True
MsgBox (" In this document there are totally" & vbCr _
& Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
& "Including:" & vbCr _
& Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
& Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
& Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
& Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
& Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
& Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub
- শেষ পর্যন্ত, "রান" বোতামটি ক্লিক করুন।
যদি কোনও পাঠ্য বাক্স, পাদটীকা বা প্রান্তবন্ধ নেই, আপনি এই হিসাবে একটি বার্তা বাক্স পাবেন:
এগিয়ে যেতে "ঠিক আছে" ক্লিক করুন। তারপরে আপনি আর একটি বাক্স দেখতে পাবেন, শব্দ গণনার সমস্ত বিবরণ তালিকাবদ্ধ করে।
একটি পুনরুদ্ধার সরঞ্জাম পান
যেহেতু ওয়ার্ড হঠাৎ করে সমস্ত ভেঙে যেতে পারে, তাই ফিক্সিংয়ের কাজটি করার জন্য একটি উন্নত মেরামত পণ্য প্রাপ্ত করার পরামর্শ দেওয়া হচ্ছে। এই জাতীয় সরঞ্জামের জন্য একটি দুর্দান্ত সেভার হতে পারে দূষিত শব্দ। অতএব, যত তাড়াতাড়ি সম্ভব একটি পেতে সময় গ্রহণ করুন।
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় xls ঠিক করুন এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com