একটি শব্দ নথির অংশে পাঠ্য সন্ধান এবং প্রতিস্থাপনের 4 কার্যকর পদ্ধতি

এই দস্তাবেজে, আমরা আপনাকে একটি ওয়ার্ড ডকুমেন্টের অংশে পাঠ্য সন্ধান এবং প্রতিস্থাপনের জন্য 4 টি কার্যকর পদ্ধতি দেখিয়ে খুশি।

সাধারণত, যখন আমরা ওয়ার্ডে "অনুসন্ধান এবং প্রতিস্থাপন" করি, তখন এর প্রভাব বিশ্বব্যাপী। সুতরাং, আজ আমরা আপনাকে কোনও দস্তাবেজের অংশে যেমন একটি নির্বাচন, একটি একক পৃষ্ঠা বা নির্দিষ্ট বিভাগে পাঠ্য সন্ধান এবং প্রতিস্থাপনের উপায়গুলি অফার করতে চাই।

পদ্ধতি 1: একটি নির্বাচনের বৈশিষ্ট্যটি "সন্ধান করুন এবং প্রতিস্থাপন করুন" ব্যবহার করুন

1. প্রথমত, নির্বাচন করুন tarপাঠ্য পেতে।
2. দ্বিতীয়ত, "সন্ধান করুন এবং প্রতিস্থাপন করুন" বক্সটি খুলতে "Ctrl + H" টিপুন।
3. এরপরে "কী সন্ধান করুন" পাঠ্য বাক্সে অনুসন্ধানের পাঠ্য এবং "প্রতিস্থাপন করুন" বাক্সে প্রতিস্থাপন পাঠ্য প্রবেশ করুন।
4. তারপরে "সমস্ত প্রতিস্থাপন করুন" বোতামটি ক্লিক করুন।
5. একটি বাক্স পপ আপ করবে, আপনি যদি কোনও নথির বাকী অংশে অনুসন্ধান চালিয়ে যেতে চান কিনা তা জিজ্ঞাসা করে। নিশ্চিত করুন যে আপনি "না" ক্লিক করেছেন।

পদ্ধতি 2: একটি নির্বাচনের পাঠ্য এবং প্রতিস্থাপন করতে ভিবিএ কোডগুলি চালান

1. প্রথমত, নথির সামগ্রীর একটি ব্যাপ্তি নির্বাচন করুন।
2. "Alt + F11" টিপে পরবর্তী ট্রিগার ভিবিএ সম্পাদক।
3. তারপরে "সাধারণ" ক্লিক করুন এবং "sertোকান" ক্লিক করুন।
4. মেনুতে "মডিউল" চয়ন করুন।
5. এবার ডাবল ক্লিক করে মডিউলটি খুলুন।
6. নিম্নলিখিত কোডগুলি অনুলিপি করুন এবং আটকান:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. পরবর্তী আঘাত "F5"।
8. দুটি ইনপুট বাক্স জিজ্ঞাসা করা হবে। দুটি বাক্সে যথাক্রমে সন্ধান এবং প্রতিস্থাপন পাঠ্য প্রবেশ করান।
9. এগিয়ে যেতে "ঠিক আছে" ক্লিক করুন।

আপনি পদ্ধতি 1 হিসাবে ঠিক একই প্রভাব অর্জন করতে হবে।

পদ্ধতি 3: একটি নির্ধারিত পৃষ্ঠায় পাঠ্যটি সন্ধান এবং প্রতিস্থাপনের জন্য ওয়ার্ড ম্যাক্রো চালান

নিম্নলিখিত ম্যাক্রো আপনাকে নির্দিষ্ট পৃষ্ঠায় পাঠ্য সন্ধান এবং প্রতিস্থাপন করতে সক্ষম করে।

1. প্রথমে 2 পদ্ধতিতে ম্যাক্রো ইনস্টল করুন এবং চালনা করুন।
2. তারপরে এই ম্যাক্রোর সাথে এটি পরিবর্তন করুন:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. এই কোডগুলি চালনার পরে, 3 টি ইনপুট বাক্স থাকবে। প্রথম বাক্সে একটি পৃষ্ঠা নম্বর লিখুন এবং দ্বিতীয়টিতে সন্ধানের পাঠ্য ইনপুট করুন এবং তৃতীয়টিতে পাঠ্য প্রতিস্থাপন টাইপ করুন।
4. এগিয়ে যেতে "ঠিক আছে" ক্লিক করতে ভুলবেন না।

পদ্ধতি 4: একটি বিভাগে পাঠ্য সন্ধান এবং প্রতিস্থাপন করতে ওয়ার্ড ম্যাক্রো চালান

1. একইভাবে, ম্যাক্রো ইনস্টল ও চালানোর জন্য পদ্ধতি 2 তে একই পদক্ষেপ গ্রহণ করুন।
2. পরিবর্তে শুধুমাত্র এই সময় এই ম্যাক্রো ব্যবহার করুন:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. প্রথম বাক্সে বিভাগ নম্বরটি লিখতে ভুলবেন না। এবং ইনপুট নিম্নলিখিত দুটি বাক্সে টেক্সট সন্ধান এবং প্রতিস্থাপন।
4. তবুও, এগিয়ে যেতে "ঠিক আছে" ক্লিক করুন।

শব্দ ইস্যু মোকাবেলা

আপনার দস্তাবেজটিতে অনেক ধরণের সমস্যা দেখা দিতে পারে। কিছু হ্যান্ডেল করা সহজ, অন্যদের আরও গুরুতর যা হতে পারে শব্দ দুর্নীতি। এই জাতীয় দৃশ্যে, আপনার ডেটা উদ্ধার করার জন্য আপনাকে অবশ্যই যত তাড়াতাড়ি সম্ভব একটি মেরামত সরঞ্জাম পাওয়া উচিত।

লেখকের ভূমিকা:

ভেরা চেন একটি ডেটা রিকভারি বিশেষজ্ঞ DataNumen, ইনক। যা তথ্য পুনরুদ্ধারের প্রযুক্তিগুলির সহ বিশ্বের শীর্ষস্থানীয় এক্সেল ফিক্স এবং pdf মেরামত সফ্টওয়্যার পণ্য। আরো তথ্যের জন্য, যান WWW.datanumen.com