သင့်နှုတ်ကပါဌ်စာတမ်းတွင် ရက်စွဲအလိုက် တည်းဖြတ်မှုများကို ကြည့်ရှုလက်ခံရန် အမြန်နည်းလမ်း 4 ခု

ဤဆောင်းပါးတွင်၊ သင့် Word document တွင် ရက်စွဲအလိုက် တည်းဖြတ်မှုများကို ကြည့်ရှုလက်ခံနိုင်စေရန် အမြန်နည်းလမ်း 4 ခုကို ပြသရန် စီစဉ်ထားပါသည်။

စာရွက်စာတမ်းတစ်ခုတွင် သုံးသပ်သူအများအပြားရှိနိုင်သည်။ ထို့ကြောင့် ဤပြင်ဆင်ချက်များကို မတူညီသောရက်စွဲ သို့မဟုတ် အချိန်ဖြင့် ပြုလုပ်ရပါမည်။ အစောပိုင်းတွင်၊ သီးခြားသုံးသပ်သူထံမှ ပြန်လည်ပြင်ဆင်မှုများကို မည်သို့ကြည့်ရှုလက်ခံရမည်ကို ကျွန်ုပ်တို့ပြောဆိုခဲ့ပြီးဖြစ်သည်။ ယနေ့၊ ရက်စွဲအလိုက် တည်းဖြတ်မှုများကို ကြည့်ရှုပြီး လက်ခံနည်းကို သင့်အား ပြသလိုက်ကြပါစို့။

ရက်စွဲအလိုက် ပြန်လည်ပြင်ဆင်မှုများကို ကြည့်ရန် နည်းလမ်း 3 ခု

ပထမဦးစွာ၊ ရက်စွဲအလိုက် ပြန်လည်ပြင်ဆင်မှုများကို ကြည့်ရှုရန် နည်းလမ်း 3 ခုကို ကြည့်ကြပါစို့။

နည်းလမ်း 1- "ပြန်လည်သုံးသပ်ခြင်းအကန့်" ကို အစပျိုးပါ။

1. စတင်ရန်အတွက် “Review” tab ကိုနှိပ်ပါ။
2. ထို့နောက် "ပြန်လည်သုံးသပ်ခြင်းအကန့်" နောက်ကွယ်ရှိ ဇောက်ထိုးတြိဂံခလုတ်ကို နှိပ်ပါ။
3. ထို့နောက် drop-down list တွင် "Reviewing Pane Horizontal" ကိုရွေးချယ်ပါ။

ယခု Word window ၏အောက်ခြေတွင်ဖွင့်ထားသော window တစ်ခုရှိလိမ့်မည်။ ဝင်းဒိုးတွင် ပြန်လည်ပြင်ဆင်မှုများနှင့် ၎င်းတို့ပြုလုပ်သည့် ရက်စွဲများရှိသည်။

နည်းလမ်း 2- သတ်မှတ်ရက်စွဲတွင် ပြုလုပ်ခဲ့သော တည်းဖြတ်မှုများကို ထုတ်ယူပါ။

1. ပထမဦးစွာ၊ "Developer" tab ကိုနှိပ်ပြီး VBA တည်းဖြတ်မှုကိုဖွင့်ရန် "Visual basic" command ကိုနှိပ်ပါ။ အခြားနည်းလမ်းမှာ “Alt+ F11” ကိုနှိပ်ပါ။
2. ထို့နောက် "Normal" ကိုနှိပ်ပြီး "Insert" ကိုနှိပ်ပါ။
3. ထို့နောက် အသစ်တစ်ခုထည့်သွင်းရန် "Module" ကိုရွေးချယ်ပါ။
4. တည်းဖြတ်ဧရိယာကို အသက်သွင်းရန် module အသစ်ကို နှစ်ချက်နှိပ်ပါ။
5. ထို့နောက် အောက်ပါကုဒ်များကို ကူးထည့်ပါ

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

6. ထို့နောက် "Run" ကိုနှိပ်ပါ။
7. ယခုတွင် dialog box ရှိသည်။ သင်ကြည့်ရှုလိုသော တည်းဖြတ်မှုအားလုံးကို ပြုလုပ်ထားသည့် ရက်စွဲကို ထည့်သွင်းပါ။ ပြီးလျှင် “OK” ကိုနှိပ်ပါ။
8. ထို့ကြောင့်၊ စာရွက်စာတမ်းအသစ်တစ်ခုပေါ်လာလိမ့်မည်။ ၎င်းတွင် အောက်ပါကဲ့သို့သော ထိုနေ့၏ ပြင်ဆင်မှုအားလုံး အပါအဝင် ဇယားတစ်ခုရှိသည်။

နည်းလမ်း 3- ရက်စွဲတစ်ခုမတိုင်မီ ပြန်လည်ပြင်ဆင်မှုများကို ထုတ်ယူပါ။

ရက်စွဲတစ်ခုမတိုင်မီ ဖန်တီးထားသည့် တည်းဖြတ်မှုများအားလုံးကို ထုတ်ယူလိုသည့်ကိစ္စတွင်၊ ဤနေရာတွင် သင်သုံးနိုင်သော မက်ခရိုဖြစ်သည်။

1. ပထမဦးစွာ နည်းလမ်း 4 တွင် ပထမအဆင့် 2 အဆင့်ကို ပြန်လုပ်ပါ။
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

3. “Run” ခလုတ်ကိုလည်း နှိပ်ပါ။
4. အလားတူ dialog box ပေါ်လာပါသည်။ ပြန်လည်ပြင်ဆင်မှုအားလုံးကို ကြည့်ရှုရန် လိုအပ်သည့် ရက်စွဲကိုသာ ထည့်သွင်းပါ။ ထို့နောက် "OK" ကိုနှိပ်ပါ။

သတ်မှတ်ရက်မတိုင်မီ တည်းဖြတ်မှုများကို လက်ခံပါ။

1. VBA editor ကိုဖွင့်ပြီး အောက်ပါကုဒ်များကို လုပ်ဆောင်ရန် အထက်ပါအဆင့်များကို အသုံးပြုပါ။

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

2. ဒိုင်ယာလော့ဂ်ဘောက်စ်ကိုဖွင့်ပြီး ရက်စွဲတစ်ခုကို ရိုက်ထည့်ပြီး “OK” ကိုနှိပ်ပါ။

Word ဖိုင်များကို ပြန်လည်ရယူရန် လှည့်ကွက်

Word သည် အကျင့်ပျက်ခြစားမှုကို ထိလွယ်ရှလွယ်သောကြောင့် ဖိုင်သန်းပေါင်းများစွာကို အန္တရာယ်ဖြစ်စေသည်။ စကားလုံးပြိုကျခြင်းသည် တန်ဖိုးကြီးပြီး လျှို့ဝှက်အချက်အလက်များကို ဖယ်ရှားနိုင်သည်။ ထို့ကြောင့် သင်တစ်ဦးလိုအပ်ပါသည်။ Word ဖိုင်ပြဿနာပြန်လည်ရယူရေးကိရိယာ သင်၏ပိတ်မိနေသောဒေတာကို လွတ်မြောက်စေရန်။

စာရေးသူနိဒါန်း:

Vera Chen သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ ပျက်စီးနေသော xls ဒေတာကို ပြင်ဆင်သည့်ကိရိယာ နှင့် pdf ဆော့ဖ်ဝဲ ထုတ်ကုန်များကို ပြုပြင်ခြင်း။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com