আজকের পোস্টে, আমরা শব্দ গণনার পরিসংখ্যান থেকে টেবিলের লেখা বাদ দেওয়ার ২টি কার্যকরী পদ্ধতি আপনাদের সাথে শেয়ার করতে পেরে আনন্দিত।
টেবিলগুলি সাধারণত ডেটা ধরে রাখতে ব্যবহৃত হয়। এবং নথিতে কাজ করার সময় টেবিলগুলি চিত্রের পয়েন্টগুলিতে আমাদের সেরা বন্ধু। তারপরে শব্দের গণনা জড়িত থাকলে এটি কিছুটা বিশ্রী পেতে পারে। কিছু সময়, আমাদের কেবল সারণীতে থাকা সমস্ত ডেটার চেয়ে মূল পাঠ্য শব্দের সংখ্যা পাওয়া দরকার। তবুও, এটি সমস্ত জানা আছে যে ওয়ার্ডটি আপনার নথিতে সমস্ত শব্দকে ডিফল্টরূপে গণনা করে। এই কারণে, আমরা দক্ষ উপায় নিয়ে এসেছি। আরো জানতে পড়ুন।
পদ্ধতি 1: ম্যানুয়ালি টেবিলগুলি নির্বাচন করুন এবং নিজের নিজের উপর ম্যাথ করুন
যদি এটি কেবল একটি বা দুটি টেবিলযুক্ত একটি শর্ট ডকুমেন্ট হয় তবে "Ctrl" কী ধরে রেখে একের পর এক টেবিলগুলি নির্বাচন করা কোনও আপত্তিজনক নয়। এই পদ্ধতির ক্ষেত্রে, নির্বাচিত সারণীর মোট সংখ্যা স্থিতি দণ্ডে দৃশ্যমান হবে, যেমন নীচু:
আপনি দেখতে হিসাবে 2 নম্বর আছে। প্রথমটি নির্বাচিত টেবিলগুলিতে শব্দের সংখ্যা বোঝায় যখন দ্বিতীয়টি আপনার নথিতে শব্দের সংখ্যা of ফলাফল পেতে প্রথমটিকে বিয়োগ করতে দ্বিতীয় নম্বরটি ব্যবহার করুন।
পদ্ধতি 2: ভিবিএ কোডগুলি চালান
উপরে উল্লিখিত হিসাবে, পদ্ধতি 1 আপনার কাছে নথিতে প্রচুর সংখ্যক টেবিল থাকলে ক্লান্তিকর হবে। ম্যানুয়ালি তাদের নির্বাচন করা আদর্শ উপায় নয়। পরিবর্তে, আমরা আপনাকে একটি ম্যাক্রো প্রস্তাব দিচ্ছি যা সমস্ত শব্দ গণনা করবে তবে এগুলি টেবিল এবং ক্যাপশনগুলিতে বাদ দেবে।
- সর্বপ্রথম, Word-এ VBA এডিটর চালু করতে “Alt+ F11” চাপুন।
- তারপরে, "সাধারণ" ক্লিক করুন।
- পরবর্তী "সন্নিবেশ" ট্যাব ক্লিক করুন।
- এবং "সন্নিবেশ" ট্যাবের ড্রপ-ডাউন মেনুতে "মডিউল" চয়ন করুন।
- ডান পাশের কোডিং অঞ্চলটি খুলতে নতুন মডিউলটিতে ডাবল ক্লিক করুন।
- এখন নিম্নলিখিত ম্যাক্রোটি এখানে পেস্ট করুন:
Sub ExcludeTableAndCaptionWordsFromWordCount()
Dim objTable As Table
Dim objParagraph As Paragraph
Dim objDoc As Document
Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
Set objDoc = ActiveDocument
nTableWords = 0
nCaptionWords = 0
nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
With objDoc
For Each objTable In .Tables
nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
Next objTable
End With
With objDoc
For Each objParagraph In .Paragraphs
If objParagraph.Range.Style = "Caption" Then
nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
End If
Next objParagraph
End With
nWordCount = nDocWords - nTableWords - nCaptionWords
MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub
- অবশেষে, "রান" ক্লিক করুন।
ম্যাক্রো চালানো একটি বার্তা বাক্স পপ আপ করবে, গণনার ফলাফল দেখাচ্ছে।
শব্দ ক্ষতির সাথে ডিল করুন
আমরা প্রতিদিনের ভিত্তিতে কাজের প্রক্রিয়া করতে ওয়ার্ডের মতো সফ্টওয়্যারটিতে এত বেশি নির্ভর করি। ফলস্বরূপ, আমরা একটি হওয়ার অপ্রতিরোধ্য ফলাফল সম্পর্কে চিন্তা করতে পারি না শব্দ দুর্নীতি। আপনি পর্যাপ্ত নথি মেরামত করার সরঞ্জাম না পেলে হতাশ বোধ করতে পারেন।
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় xls ফিক্স এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com