এই নিবন্ধে, আমরা আপনাকে একাধিক ওয়ার্ড ডকুমেন্টের জন্য পৃষ্ঠা এবং শব্দের মোট সংখ্যা গণনা করার 2 দ্রুত এবং কার্যকর উপায় দেখাব।
এখন এবং তারপরে, একটি দীর্ঘ নথিতে কাজ করার সময়, আমরা একাধিক ডকুমেন্টগুলিতে বিভিন্ন অধ্যায় স্থাপন করার মতো বিষয়গুলি বিভিন্ন ওয়ার্ড ফাইলগুলিতে বিভক্ত করে থাকি। তারপরে যখন এটি পৃষ্ঠা এবং শব্দের মোট সংখ্যা গণনা করার জন্য আসে তখন এটি কিছুটা ক্লান্তিকর হতে পারে, যেহেতু আপনাকে প্রতিটি স্বতন্ত্র নথি খুলতে হবে এবং তথ্যটি পরীক্ষা করতে হবে।
অতএব, আমরা আপনার মূল্যবান সময় বাঁচাতে সহায়তার জন্য 2 টি দ্রুত পদ্ধতির তালিকাবদ্ধ করি।
পদ্ধতি 1: ফাইল ফোল্ডারে বিশদটি পরীক্ষা করুন
পাঠ্যে, আমরা উইন্ডোজ 7 এর পরিবেশের অধীনে একটি উদাহরণ দেব।
- প্রথমে এক ফাইল ফোল্ডারে যাচাই করার জন্য সমস্ত দস্তাবেজগুলি সংগঠিত করুন।
- তারপরে ফাইল ফোল্ডারটি খুলুন এবং "আপনার দৃষ্টিভঙ্গি পরিবর্তন করুন" এর পাশের "আরও বিকল্পগুলি" বোতামটি ক্লিক করুন।
- পরবর্তী "বিবরণ" ক্লিক করুন।
- এখন হেডার সারিটিতে ডান ক্লিক করুন এবং "আরও" নির্বাচন করুন।
- "বিশদ চয়ন করুন" ডায়ালগ বাক্সে, "পৃষ্ঠাগুলি" এবং "শব্দের গণনা" বাক্সগুলিতে চেক করুন।
- তারপরে "ওকে" ক্লিক করুন।
এখন 2 টি নতুন কলাম থাকবে, প্রতিটি নথির পৃষ্ঠা এবং শব্দ প্রদর্শন করবে words আপনাকে কেবল এই সংখ্যাগুলি একসাথে যুক্ত করতে হবে।
তবে, এই পদ্ধতিটি আপনাকে প্রতিটি ফাইলে কেবলমাত্র আনুমানিক সংখ্যা সরবরাহ করে। সুতরাং, আরও সঠিক চিত্র পেতে, আপনি পদ্ধতি 2 চয়ন করতে পারেন।
পদ্ধতি 2: একটি ম্যাক্রো তৈরি করুন
- একইভাবে, প্রথমে সমস্ত কাঙ্ক্ষিত নথি একটি ফাইল ফোল্ডারে রাখুন।
- তারপরে ওয়ার্ডটি খুলুন এবং "বিকাশকারী" ট্যাবে ক্লিক করুন।
- এরপরে ভিবিএ সম্পাদক খুলতে "ভিজ্যুয়াল বেসিক" ক্লিক করুন। অথবা আপনি কেবল "Alt + F11" টিপতে পারেন।
- এখন "সাধারণ" এবং "sertোকান" ক্লিক করুন।
- তারপরে "মডিউল" নির্বাচন করুন।
- পরবর্তী নতুন মডিউলে ডাবল ক্লিক করুন এবং সম্পাদনা অঞ্চলে নিম্নলিখিত কোডগুলি পেস্ট করুন:
Sub GetAllPageNumbers()
Dim objWordApplication As Word.Application
Dim nPageNumber As Long
Dim nWordNumber As Long
Dim objFile As Variant
Dim objFileSystem As Object
Dim objFolders As Object
nPageNumber = 0
Set objWordApplication = New Word.Application
Set objFileSystem = CreateObject("scripting.filesystemobject")
Set objFolders = objFileSystem.getfolder("C:\Users\Test\Desktop\files")
For Each objFile In objFolders.Files
' Only process non-hidden files
If (objFile.Attributes And 2) = 0 Then
With objWordApplication
.Documents.Open (objFile)
nPageNumber = nPageNumber + .ActiveDocument.ComputeStatistics(wdStatisticPages)
nWordNumber = nWordNumber + .ActiveDocument.ComputeStatistics(wdStatisticWords)
.ActiveDocument.Close (False)
End With
End If
Next objFile
MsgBox ("pages:" & nPageNumber & " " & "words:" & nWordNumber)
Set objFile = Nothing
Set objFileSystem = Nothing
Set objFolders = Nothing
Set objWordApplication = Nothing
End Sub
- শেষ অবধি, "রান" ক্লিক করুন। তারপরে পৃষ্ঠা বার্তা এবং মোট শব্দ যেমন নীচের মত নির্দেশ করে আপনাকে বার্তা বাক্স দ্বারা স্বাগত জানানো হবে:
দ্রষ্টব্য: "সি: \ ব্যবহারকারীগণের পরীক্ষা \ ডেস্কটপ \ ফাইলগুলি" ফাইল ফোল্ডারের অবস্থান বোঝায়।
দস্তাবেজ দুর্নীতি দেখুন
যেহেতু আমাদের প্রতিদিন সকল ধরণের প্রতিবেদন মোকাবেলা করতে হয়, তাই কিছু সমালোচনামূলক ফাইলগুলি দূষিত হওয়ার ক্ষেত্রে ব্যাক আপ করা বাঞ্ছনীয় কারণ ব্যাকআপ সর্বদা ফাইলের অখণ্ডতা রক্ষার জন্য সুরক্ষার জালের একটি গুরুত্বপূর্ণ অঙ্গ। তবে, আসল বিষয়টি হ'ল ব্যাকআপগুলি দুর্নীতির শিকারও হতে পারে। এবং যখন আপনি একটি প্রধান সময় প্রয়োজন হবে দূষিত ওয়ার্ড ফাইল পুনরুদ্ধার সরঞ্জাম
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় xlsx ডেটা সমস্যা মেরামতের সরঞ্জাম এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com