এই নিবন্ধে, আমরা আপনাকে একটি ওয়ার্ড ডকুমেন্ট থেকে অপরটিতে দুটি নির্দিষ্ট শব্দের মধ্যে সামগ্রী আহরণের উপায় দেখাব।
এখন এবং তারপরে, আপনাকে কিছু অনুষ্ঠানে নির্দিষ্ট শব্দগুলির মধ্যে সামগ্রী বের করতে হবে। নিম্নলিখিত 2 সম্ভাব্য কেসগুলি আপনি চালাতে পারেন:
- প্রথমত, একটি ওয়ার্ড সারণীতে, একটি কলামের সমস্ত কক্ষের জন্য এবং একই 2 টি শব্দের সাথে সমাপ্ত হওয়ার জন্য, আপনাকে কেবল ভিন্ন ভিন্ন মধ্যম অংশটি বের করার প্রয়োজন হতে পারে:
- দ্বিতীয়ত, একাধিক এন্ট্রি সহ কিছু লগ ফাইলগুলিতে আপনাকে সম্ভবত আপনার প্রয়োজন কেবলমাত্রগুলি বের করতে হবে। তারপরে আপনি প্রথম এবং শেষ শব্দটি নির্দিষ্ট করতে পারেন এবং আপনার প্রয়োজনীয় সামগ্রীগুলি পেতে আমি এই নিবন্ধটি পদ্ধতিটি ব্যবহার করতে পারি।
এই ধরনের কাজ সম্পাদন করার জন্য, আমরা একটি ওয়ার্ড ম্যাক্রো চালানো পছন্দ করি। এই পদক্ষেপগুলি অনুসরণ করুন।
দুটি শব্দের মধ্যে সূচিপত্র বের করুন
- প্রথম এবং foremost, ওয়ার্ডে ভিবিএ সম্পাদক খুলতে "Alt + F11" টিপুন।
- পরবর্তী বাম কলামে "সাধারণ" প্রকল্প ক্লিক করুন।
- তারপরে মেনু বারের "সন্নিবেশ" ট্যাবে ক্লিক করুন।
- ড্রপ-ডাউন মেনু থেকে "মডিউল" চয়ন করুন।
- নতুন মডিউলের কোডিং স্পেসে প্রবেশ করতে ডাবল ক্লিক করুন এবং এই কোডগুলি এখানে পেস্ট করুন:
Sub ExtractContentsBetweenTwoWords()
Dim strFirstWord As String
Dim strLastWord As String
Dim objDoc As Document
Dim objDocAdd As Document
Dim objRange As Range
' Initialize and create a new blank document.
Set objDoc = ActiveDocument
Set objDocAdd = Documents.Add
objDoc.Activate
' Enter the first and last words.
strFirstWord = InputBox("Enter the first word:", "First Word")
strLastWord = InputBox("Enter the last word:", "Last Word")
' Find and extract contents and insert them into the new document.
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Text = strFirstWord & "*" & strLastWord
.MatchWildcards = True
.MatchWholeWord = True
Do While .Execute
Selection.MoveStart Unit:=wdCharacter, Count:=Len(strFirstWord)
Selection.MoveEnd Unit:=wdCharacter, Count:=-Len(strLastWord)
objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
Selection.Collapse wdCollapseEnd
Loop
End With
End With
End Sub
- পরবর্তী কোডগুলি চালাতে "রান" ক্লিক করুন বা "F5" টিপুন।
- "প্রথম শব্দ" ইনপুট বাক্সে, প্রথম শব্দটি প্রবেশ করান। মনে রাখবেন ম্যাক্রো কেস সংবেদনশীল। সুতরাং প্রয়োজনে শব্দটি আরম্ভ করুন।
- তারপরে "শেষ শব্দ" বাক্সে যেতে "ঠিক আছে" ক্লিক করুন।
- একইভাবে, শব্দটি প্রবেশ করান এবং "ঠিক আছে" ক্লিক করুন। শব্দের সূচনা অনুসারে একই নিয়মটি অনুসরণ করতে ভুলবেন না।
একটি নতুন দস্তাবেজ খোলা থাকবে এবং উত্তোলিত সমস্ত সামগ্রী সেখানে উপস্থিত হবে।
বন্ধনীগুলিতে সূচিপত্র বের করুন
যেমনটি আমরা উল্লেখ করেছি, কিছু সামগ্রী বন্ধনীতে রয়েছে in তারপরে আপনি যা করতে পারেন তা এখানে:
- টু এসtarবন্ধ, ম্যাক্রো ইনস্টল এবং চালানোর জন্য আপনাকে উপরের পদক্ষেপগুলি অনুসরণ করতে হবে।
- এখন বন্ধনীর ধরণ অনুসারে, আপনি নীচে সম্পর্কিত ম্যাক্রো চয়ন করতে পারেন:
ধনুর্বন্ধনী জন্য {}:
Sub ExtractContentsInBraces()
Dim objDoc As Document
Dim objDocAdd As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objDocAdd = Documents.Add
objDoc.Activate
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "\{(*)\}"
.MatchWildcards = True
Do While .Execute
Selection.MoveStart Unit:=wdCharacter, Count:=1
Selection.MoveEnd Unit:=wdCharacter, Count:=-1
objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
Selection.Collapse wdCollapseEnd
Loop
End With
End With
End Sub
- বর্গাকার বন্ধনীগুলির জন্য []:
কেবল এই কোড লাইনটি প্রতিস্থাপন করুন:
.Text = "\{(*)\}"
সঙ্গে:
.Text =\[(*)\]
- তারপরে প্যারেন্টেসিসের জন্য ():
পদক্ষেপ 3 এ একই কোড লাইনটি প্রতিস্থাপন করুন:
.Text = "\((*)\)"
- এবং অ্যাঙ্গেল বন্ধনীগুলির জন্য <>:
পরিবর্তে এই লাইনটি ব্যবহার করুন:
.Text = "\<(*)\>"
একটি ডেটা বিপর্যয় সামলান
আমাদের হিসাবে একটি উচ্চ সংযুক্ত শব্দে, ডেটা সুরক্ষার সমস্ত সময় মাথায় রাখা জরুরী। আরও কী, একটি ডেটা বিপর্যয়ের সময়ে কী করা উচিত তা অবশ্যই জানতে হবে। এবং আপনার সেরা পছন্দ একটি পেতে ডক্স রিপেয়ার টুল.
লেখকের ভূমিকা:
ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সএলএস পুনরুদ্ধার এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com




