এই নিবন্ধে, আপনার ওয়ার্ড নথির বিভাগগুলির জন্য শব্দের সংখ্যা গণনা করার জন্য 3 টি পদ্ধতি থাকবে।
নথির মোট শব্দের সংখ্যা পাওয়া সহজ। কিন্তু কোনও বিভাগের শব্দের সংখ্যা আমাদের জানাতে ওয়ার্ডে কোনও ফাংশন নেই। এবং এই বিষয়টিকে কেন্দ্র করে যে আমরা একই বিষয়ের বিষয়বস্তুগুলিকে একটি বিভাগে রাখতে পছন্দ করি, যেমন একটি বই লেখার সময় একটি অধ্যায় আয়োজন করা, বিভাগের গণনা পাওয়ার জন্য আমাদের পক্ষে কাজ করা উচিত। 
নিম্নলিখিতটি 3 টি পদ্ধতি যা আপনাকে ম্যাক্রো চালানো দরকার are
পদ্ধতি 1: বর্তমান বিভাগের জন্য শব্দ সংখ্যা গণনা করুন
- প্রথমে, লক্ষ্যবস্তু অংশের ভিতরে কার্সর রাখুন।
- তারপরে আপনাকে ওয়ার্ডে ভিবিএ সম্পাদক খুলতে হবে। "বিকাশকারী" এবং তারপরে "ভিজ্যুয়াল বেসিক" কমান্ডটি ক্লিক করুন। আপনি যদি ফিতাটিতে "বিকাশকারী" খুঁজে না পান তবে তার পরিবর্তে "Alt + F11" টিপুন।
- পরবর্তী ক্লিক করুন "সাধারণ" বাম কলামে প্রকল্প।
- তারপরে "সন্নিবেশ" ট্যাবে ক্লিক করুন।
- সেই ড্রপ-ডাউন মেনুতে, "মডিউল" নির্বাচন করুন।
- ডাবল ক্লিক করে নতুন মডিউল খুলুন।
- এখন মুক্ত মডিউলে, বেলোইলিং কোডগুলি আটকে দিন:
Sub CountWordsOfCurrentSection()
MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
& " words in current section.")
End Sub
- শেষ অবধি, কোডগুলি সম্পাদন করতে "রান" ক্লিক করুন বা "F5" টিপুন।
আপনি নীচের মত বর্তমান বিভাগের মোট সংখ্যা দেখিয়ে একটি বার্তা বাক্স পাবেন:
পদ্ধতি 2: একটি নির্দিষ্ট বিভাগের জন্য শব্দের সংখ্যা গণনা করুন
ধরা যাক আপনি একটি বইয়ের উপর কাজ করছেন এবং প্রতিটি অধ্যায়টি পৃথক বিভাগ হিসাবে সেট করেছেন। তারপরে আপনি একটি অধ্যায়ে কয়টি শব্দ লিখেছেন তা জানতে আপনি এই পদ্ধতিটি ব্যবহার করতে পারেন।
- ম্যাক্রো ইনস্টল এবং চালানোর জন্য উপরের পদক্ষেপগুলি অনুসরণ করুন।
- কেবল এইটির সাথে ম্যাক্রোটি প্রতিস্থাপন করুন:
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: একটি নথিতে সমস্ত বিভাগের শব্দের সংখ্যা গণনা করুন
উপশিরোনামটির পরামর্শ অনুসারে, এই ভাবে আপনি একটি নথিতে প্রতিটি বিভাগের মোট সংখ্যা পাবেন এবং সেগুলি বার্তা বাক্সে তালিকাভুক্ত করবেন।
- প্রথমেই, কাঙ্ক্ষিত ডকুমেন্টটি খুলুন।
- তবুও, আপনাকে ম্যাক্রো ইনস্টল করতে এবং চালানোর জন্য আপনাকে পদ্ধতি 1 এ পদক্ষেপগুলি পুনরায় করতে হবে।
- এবং এই বার এই ম্যাক্রো দিয়ে পরিবর্তন করুন:
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
এখানে সম্ভাব্য ফলাফল:
মূল্যবান ডেটা সংরক্ষণ করুন
সব ধরণের দস্তাবেজগুলির সাথে ডিল করার সময় আপনাকে সেগুলির সুরক্ষাটি মাথায় রাখতে হবে। যেহেতু আপনি কখনই বলতে পারবেন না যে পরবর্তী ডেটা ক্ষতি কখন হবে, তাই এটি গুরুত্বপূর্ণ ফাইলগুলি ব্যাক আপ করার পরামর্শ দেওয়া হচ্ছে। তদ্ব্যতীত, একটি সরঞ্জাম পাওয়া যায় যা সর্বদা ভাল পুনরুদ্ধার ডক, যদি কোন.
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় xls মেরামত এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com