এই পোস্টে আমরা VBA ব্যবহার করে আপনার Word ডকুমেন্টের সমস্ত এক-বাক্যের প্যারাগ্রাফ খুঁজে বের করার দ্রুততম উপায়টি আপনাদের দেখাতে চাই।
এখন এবং পরে, কিছু দস্তাবেজের বিন্যাস এবং কাঠামোর জন্য খুব নির্দিষ্ট প্রয়োজনীয়তা থাকতে পারে। উদাহরণস্বরূপ, আপনাকে কেবলমাত্র একটি বাক্য সহ অনুচ্ছেদ থাকতে দেওয়া যাবে না। এই অনুচ্ছেদগুলি সনাক্ত করা শক্ত নয়, তবে এটি সময় নেয়, বিশেষত এটি একটি দীর্ঘ নথি।
আজ, আমরা আপনাকে আপনার নথিতে সমস্ত বাক্যের অনুচ্ছেদ নির্দিষ্ট করার জন্য দ্রুত উপায়ে প্রস্তাব করব।
একটি নথিতে সমস্ত এক-বাক্য অনুচ্ছেদের সন্ধান করুন
- প্রথমত, শব্দটি একটি বাক্য হিসাবে একটি পিরিয়ড গণনা করে। সুতরাং যদি "মিঃ" এর মতো শব্দ থাকে বা "মিসেস", শব্দ এটিকে একটি বাক্য হিসাবে বিবেচনা করে। এই জাতীয় ব্যাঘাত বাদ দিতে আপনার "মিঃ" প্রতিস্থাপন করতে হবে "মিঃ" সহ এবং সমাপ্তিগুলি যখন একক বাক্যের অনুচ্ছেদটি সন্ধান করে, আপনি সেগুলি আবার পরিবর্তন করতে পারেন। শব্দগুলি প্রতিস্থাপন করতে, আপনি এই লিঙ্কটি উল্লেখ করতে পারেন: আপনার ওয়ার্ড ডকুমেন্টে একাধিক আইটেমগুলি কীভাবে সন্ধান এবং প্রতিস্থাপন করা যায়
- দ্বিতীয়ত, ভিবিএ সম্পাদককে ট্রিগার করতে "Alt + F11" টিপুন।
- তারপরে "সাধারণ" প্রকল্পে ক্লিক করুন।
- মেনু বারের "সন্নিবেশ" ট্যাবে ক্লিক করুন এবং এর ড্রপ-ডাউন মেনুতে "মডিউল" চয়ন করুন।
- মডিউলটি খোলার জন্য তারপরে ডাবল ক্লিক করুন।
- মডিউলটিতে নিম্নলিখিত কোডগুলি আটকে দিন:
Sub HighlightParagraphsWithSingleSentence()
Dim nParagraphNum As Integer
Dim nCountParagraph As Integer
Dim objParagraphRange As Range
Dim nCountSentence As Integer
Dim nHighlightNum As Integer
nCountParagraph = ActiveDocument.Paragraphs.Count
nHighlightNum = 0
For nParagraphNum = 1 To nCountParagraph
Set objParagraphRange = ActiveDocument.Paragraphs(nParagraphNum).Range
nCountSentence = objParagraphRange.Sentences.Count
' Highlight all paragraphs with single-sentence.
If nCountSentence = 1 And objParagraphRange.Characters.Count > 1 Then
nHighlightNum = nHighlightNum + 1
objParagraphRange.HighlightColorIndex = wdYellow
End If
Next
If nHighlightNum > 0 Then
MsgBox ("There are " & nHighlightNum & " paragraphs with single sentence and they are highlighted.")
Else
MsgBox ("There are no paragraphs with single sentence")
End If
End Sub
- সর্বশেষে তবে সর্বনিম্ন নয়, "রান" বোতামটি ক্লিক করুন বা "F5" টিপুন।
কাজ শেষ হয়ে গেছে বলে আপনি এই জাতীয় বার্তা বাক্স পাবেন।
একাধিক নথিতে সমস্ত এক-বাক্য অনুচ্ছেদের সন্ধান করুন
- প্রথমত, আপনাকে সমস্ত কাঙ্ক্ষিত নথি একটি ফোল্ডারে রাখতে হবে।
- তারপরে বেলোইলিং ম্যাক্রো ইনস্টল করুন এবং চালনা করুন:
Sub HighlightParagraphsWithSingleSentenceInMultipleFiles()
Dim nParagraphNum As Integer
Dim nCountParagraph As Integer
Dim objParagraphRange As Range
Dim nCountSentence As Integer
Dim StrFolder As String
Dim strFile As String
Dim objDoc As Document
Dim dlgFile As FileDialog
Dim nHighlightNum As Integer
Dim strSummary As String
Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
With dlgFile
If .Show = -1 Then
StrFolder = .SelectedItems(1) & "\"
Else
MsgBox ("No Folder is selected!")
Exit Sub
End If
End With
strFile = Dir(StrFolder & "*.doc*", vbNormal)
While strFile <> ""
nHighlightNum = 0
Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
Set objDoc = ActiveDocument
nCountParagraph = ActiveDocument.Paragraphs.Count
For nParagraphNum = 1 To nCountParagraph
Set objParagraphRange = ActiveDocument.Paragraphs(nParagraphNum).Range
nCountSentence = objParagraphRange.Sentences.Count
' Highlight all paragraphs with single-sentence.
If nCountSentence = 1 And objParagraphRange.Characters.Count > 1 Then
nHighlightNum = nHighlightNum + 1
objParagraphRange.HighlightColorIndex = wdYellow
End If
Next
objDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
objDoc.Save
If nHighlightNum = 0 Then
objDoc.Close
End If
strSummary = strSummary & strFile & " : " & nHighlightNum & " paragraphs with single sentence." & vbCrLf
strFile = Dir()
Wend
MsgBox (strSummary)
End Sub
- "ব্রাউজ" উইন্ডোটি খোলে, আপনি যেখানে নথি রাখেন সে ফোল্ডারটি চয়ন করুন এবং "ওকে" ক্লিক করুন।
এরপরে ম্যাক্রো সমস্ত বাক্যের সমস্ত অনুচ্ছেদ হাইলাইট করবে এবং নথিগুলি খোলা রাখবে। যদি কোনও নথিতে এক-বাক্য অনুচ্ছেদ থাকে না তবে এটি বন্ধ হয়ে যাবে। এছাড়াও, একটি বার্তা বাক্স রয়েছে, যা প্রতিটি নথিতে এক-বাক্য অনুচ্ছেদের সংখ্যা নির্দেশ করে।
ডেটা হ্রাস ঘটনার সাথে ডিল করুন
ব্যবহারকারীর ত্রুটি এবং হঠাৎ বিদ্যুৎ বিভ্রাটের ফলে ওয়ার্ডের মৃত্যু হতে পারে। যদিও একটি ধসে পড়া শব্দটি কেবল প্রতিদিনের কাজকেই প্রভাবিত করতে পারে না, তা হতেও পারে ডক ক্ষতিডেটা বিপর্যয়ের ক্ষেত্রে এটি কোনোভাবেই সবচেয়ে বিরক্তিকর অংশ নয়। অবিলম্বে ডেটা পুনরুদ্ধারের জন্য একটি মেরামতকারী ইউটিলিটি ব্যবহার করাই শ্রেয়।
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সেল পুনরুদ্ধার এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com