আপনার শব্দ নথিতে তারিখ অনুসারে সংশোধনীগুলি দেখার এবং স্বীকার করার 4 টি দ্রুত উপায় Quick

শব্দ সমাধান সেপ্টেম্বর 28, 2025

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

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

3 তারিখ দ্বারা সংশোধনী দেখার উপায়

প্রথমে, আসুন তারিখ অনুসারে পুনর্বিবেচনাগুলি দেখার 3 টি উপায় একবার দেখে নেওয়া যাক।

পদ্ধতি 1: "পর্যালোচনা ফলকে" ট্রিগার করুন

শুরুতে, “রিভিউ” ট্যাবে ক্লিক করুন।
তারপরে "পর্যালোচনা ফলক" এর পিছনে উল্টো ত্রিভুজ বোতামটি ক্লিক করুন।
এরপরে ড্রপ-ডাউন তালিকার "পেন অনুভূমিক পর্যালোচনা" চয়ন করুন।

এখন ওয়ার্ড উইন্ডোর নীচে একটি উইন্ডো খোলা থাকবে। উইন্ডোতে সেগুলি সংশোধন এবং তারিখ রয়েছে।

পদ্ধতি 2: নির্দিষ্ট তারিখে করা সংশোধনগুলি বের করুন

সবার আগে, ভিবিএ সম্পাদক খোলার জন্য "বিকাশকারী" ট্যাব এবং তারপরে "ভিজ্যুয়াল বেসিক" কমান্ডটি ক্লিক করুন। বিকল্প উপায় হ'ল "Alt + F11" টিপুন।
তারপরে "সাধারণ" এবং তারপরে "sertোকান" ক্লিক করুন।
এর পরে একটি নতুন সন্নিবেশ করতে "মডিউল" নির্বাচন করুন।
সম্পাদনা অঞ্চলটি সক্রিয় করতে নতুন মডিউলটিতে ডাবল ক্লিক করুন।
তারপরে বেলিং কোডগুলি পেস্ট করুন:

Sub ExtractRevisionsOfSpecificDate()
  Dim objRevision As Revision
  Dim objDoc As Document, objNewDoc As Document
  Dim dtRevisionDate As Date
  Dim strRevisionDate As String
  Dim varRevisionType As Variant
  Dim objTable As Table
 
  varRevisionType = Array("Replace", "Insert", _
    "Property", "Delete", "ParagraphNumber", "NoRevision", "DisplayField", _
    "Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _
    "ParagraphProperty", "StyleDefinition")

  strRevisionDate = InputBox("Input a revision date:")
  If strRevisionDate <> "" Then
    IsDate (strRevisionDate)
  Else
  End If
 
  dtRevisionDate = CDate(strRevisionDate)

  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add 
  Set objTable = objNewDoc.Tables.Add(Range:=objNewDoc.Range, _
    numrows:=1, numcolumns:=3)
  nRow = 1
  With objTable
    .Cell(1, 1).Range.Text = "Page"
    .Cell(1, 2).Range.Text = "Line"
    .Cell(1, 3).Range.Text = "Revision Type"
 
  For Each objRevision In objDoc.Revisions
    If CDate(Left(Format(objRevision.Date, "MM/dd/yyyy"), 10)) = dtRevisionDate Then
      .Rows.Add
      nRow = nRow + 1
      .Cell(nRow, 1).Range.Text = objRevision.Range.Information( _
        wdActiveEndAdjustedPageNumber)
      .Cell(nRow, 2).Range.Text = objRevision.Range.Information( _
        wdFirstCharacterLineNumber)
      .Cell(nRow, 3).Range.Text = varRevisionType(objRevision.Type)
    End If
  Next objRevision
  End With
End Sub

এরপরে, "রান" ক্লিক করুন।
এখন ডায়ালগ বক্স আছে। আপনি যে সমস্ত সংশোধনী দেখতে চান তাতে তারিখটি প্রবেশ করুন। এবং "ওকে" ক্লিক করুন।
ফলস্বরূপ, একটি নতুন দস্তাবেজ থাকবে। এটিতে নীচে যেমন দিনের সমস্ত সংশোধনী সহ একটি সারণী রয়েছে:

পদ্ধতি 3: একটি তারিখের আগে পুনর্বিবেচনাগুলি বের করুন

আপনি যদি কোনও তারিখের আগে তৈরি সমস্ত সংশোধনী রফতানি করতে পছন্দ করতে পারেন তবে ম্যাক্রোটি আপনি চালাতে পারেন এখানে।

প্রথমে, পদ্ধতি 4 তে প্রথম 2 টি ধাপ পুনরাবৃত্তি করুন।
তার পরিবর্তে নিম্নলিখিত কোডগুলি পেস্ট করুন:

Sub ExtractRevisionsBeforeSpecificDate()
  Dim objRevision As Revision
  Dim objDoc As Document, objNewDoc As Document
  Dim dtRevisionDate As Date
  Dim strRevisionDate As String
  Dim varRevisionType As Variant
  Dim objTable As Table
 
  varRevisionType = Array("Replace", "Insert", _
    "Property", "Delete", "ParagraphNumber", "NoRevision", "DisplayField", _
    "Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _
    "ParagraphProperty", "StyleDefinition")

  strRevisionDate = InputBox("Input a date:")
  If strRevisionDate <> "" Then
    IsDate (strRevisionDate)
  Else
  End If
 
  dtRevisionDate = CDate(strRevisionDate)

  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
  Set objTable = objNewDoc.Tables.Add(Range:=objNewDoc.Range, _
  numrows:=1, numcolumns:=3)
  nRow = 1
  With objTable
   .Cell(1, 1).Range.Text = "Page"
   .Cell(1, 2).Range.Text = "Line"
   .Cell(1, 3).Range.Text = "Revision Type"
 
  For Each objRevision In objDoc.Revisions
    If CDate(Left(Format(objRevision.Date, "MM/dd/yyyy"), 10)) < dtRevisionDate Then
      .Rows.Add
      nRow = nRow + 1
      .Cell(nRow, 1).Range.Text = objRevision.Range.Information( _
      wdActiveEndAdjustedPageNumber)
      .Cell(nRow, 2).Range.Text = objRevision.Range.Information( _
      wdFirstCharacterLineNumber)
      .Cell(nRow, 3).Range.Text = varRevisionType(objRevision.Type)
    End If
  Next objRevision
  End With
End Sub

"রান" বোতামটিও ক্লিক করুন।
একইভাবে, পপআপ করার জন্য একটি ডায়ালগ বক্স রয়েছে। কেবলমাত্র সেই তারিখটি ইনপুট করুন যা দেখার জন্য সমস্ত সংশোধনী প্রয়োজন। তারপরে "ওকে" ক্লিক করুন।

নির্দিষ্ট তারিখের আগে সংশোধনগুলি গ্রহণ করুন

ভিবিএ সম্পাদক খুলতে এবং নিম্নলিখিত কোডগুলি চালনার জন্য উপরের পদক্ষেপগুলি ব্যবহার করুন:

Sub AcceptRevisionsBeforeDate()
  Dim objRevision As Revision
  Dim dtTheDate As Date
  Dim strTheDate As String
 
  strTheDate = InputBox("Input the date before which all revisions should be accepted:")
  If strTheDate <> "" Then
    IsDate (strTheDate)
  Else
  End If
 
  dtTheDate = CDate(strTheDate)
 
  For Each objRevision In ActiveDocument.Revisions
    If objRevision.Date < dtTheDate Then
      objRevision.Accept
    End If
  Next objRevision
End Sub

ডায়লগ বাক্সে খোলে, একটি তারিখ টাইপ করুন এবং "ঠিক আছে" ক্লিক করুন।

ওয়ার্ড ফাইলগুলি পুনরুদ্ধার করার একটি কৌশল

শব্দ দুর্নীতির প্রতি সংবেদনশীল, সুতরাং লক্ষ লক্ষ ফাইলকে বিপদে ফেলে। শব্দের পতন মূল্যবান এবং গোপনীয় ডেটা মুছতে পারে। সুতরাং, আপনি একটি প্রয়োজন ওয়ার্ড ফাইল সমস্যা পুনরুদ্ধার সরঞ্জাম আপনার আটকে থাকা ডেটা মুক্ত করতে।

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

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