4 Mabilis na Mga Paraan upang Makita at Tanggapin ang Mga Pagbabago ayon sa Petsa sa Iyong Dokumento ng Salita

Sa artikulong ito, plano naming magpakita ng 4 na mabilis na paraan upang matingnan mo at matanggap ang mga pagbabago ayon sa petsa sa iyong dokumento sa Word.

Ang isang dokumento ay maaaring magkaroon ng maraming mga tagasuri. Samakatuwid, ang mga rebisyon na ito ay dapat gawin sa iba't ibang petsa o oras. Mas maaga, pinag-usapan namin kung paano tingnan at tanggapin ang mga pagbabago mula sa isang tukoy na tagasuri. Ngayon, ipakita namin sa iyo kung paano tingnan at tanggapin ang mga pagbabago ayon sa petsa.

3 mga paraan upang Makita ang Mga Pagbabago ayon sa Petsa

Una, tingnan natin ang 3 mga paraan upang matingnan ang mga pagbabago ayon sa petsa.

Paraan 1: Pag-trigger sa "Pagsusuri ng Pane"

1. Para magsimula, i-click ang tab na "Suriin".
2. Pagkatapos i-click ang nakabaligtad na pindutan ng tatsulok sa likod ng "Reviewing Pane".
3. Susunod na piliin ang "Reviewing Pane Horizontal" sa drop-down na listahan.

Ngayon ay magkakaroon ng isang window na bukas sa ilalim ng window ng Word. Sa window ay ang mga pagbabago at mga petsa kung saan ginawa ang mga ito.

Paraan 2: Mga Pagsusuri sa Kinukuha Ginawa sa isang Tiyak na Petsa

1. Una sa lahat, i-click ang tab na "Developer" at pagkatapos ang "Visual basic" na utos upang buksan ang VBA editor. Ang alternatibong paraan ay upang pindutin ang "Alt + F11".
2. Pagkatapos i-click ang "Normal" at pagkatapos ay "Ipasok".
3. Susunod na piliin ang "Modyul" upang magsingit ng bago.
4. Mag-double click sa bagong module upang buhayin ang lugar ng pag-edit.
5. Pagkatapos i-paste ang mga bellowing code:

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. Susunod, i-click ang "Run".
7. Ngayon ay mayroong kahon ng dayalogo. Ipasok ang petsa kung saan ginawa ang lahat ng mga pagbabago na nais mong tingnan. At i-click ang "OK".
8. Dahil dito, magkakaroon ng isang bagong dokumento. Nasa ito ay isang talahanayan kasama ang lahat ng mga pagbabago ng araw na iyon, tulad ng sa ibaba:

Paraan 3: Mag-extract ng Mga Pagbabago bago ang isang Petsa

Sa kaganapan maaari mong i-export ang lahat ng mga rebisyon na nilikha bago ang isang petsa, narito ang macro na maaari mong patakbuhin.

1. Sa una, ulitin ang unang 4 na hakbang sa pamamaraan 2.
2. Pagkatapos i-paste ang mga sumusunod na code sa halip:

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. I-click ang pindutan na "Run" din.
4. Katulad nito, mayroong isang dialog box na lumalabas. I-input lamang ang petsa kung saan kinakailangan ang lahat ng mga pagbabago upang matingnan. Pagkatapos i-click ang "OK".

Tanggapin ang Mga Pagbabago bago ang isang Tiyak na Petsa

1. Gamitin ang mga hakbang sa itaas upang buksan ang VBA editor at patakbuhin ang mga sumusunod na code:

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. Sa bukas na kahon ng dayalogo, mag-type ng isang petsa at i-click ang "OK".

Isang Trick upang Mabawi ang Mga Word File

Ang salita ay sensitibo sa katiwalian, kaya't iniiwan ang milyun-milyong mga file sa panganib. Maaaring mabura ng pagbagsak ng salita ang mahalaga at kumpidensyal na data. Sa gayon, kailangan mo ng a Tool sa pagbawi ng problema sa file ng salita upang mapalaya ang iyong nakulong data.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sira xls tool sa pag-aayos ng data at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa