4 Cara Pantas untuk Melihat dan Menerima Semakan mengikut Tarikh di Dokumen Word Anda

Dalam artikel ini, kami berencana untuk menampilkan 4 cara cepat untuk Anda melihat dan menerima semakan mengikut tarikh dalam dokumen Word Anda.

Dokumen boleh mempunyai pelbagai pengulas. Oleh itu, semakan ini mesti dibuat pada tarikh atau masa yang berbeza. Sebelumnya, kami telah membincangkan cara melihat dan menerima semakan daripada pengulas tertentu. Hari ini, mari tunjukkan cara melihat dan menerima semakan mengikut tarikh.

3 cara untuk Melihat Semakan mengikut Tarikh

Pertama, mari kita lihat 3 cara untuk melihat semakan mengikut tarikh.

Kaedah 1: Mencetuskan "Panel Peninjauan"

1. Untuk bermula, klik tab "Semakan".
2. Kemudian klik butang segitiga terbalik di belakang "Mengkaji Panel".
3. Seterusnya pilih "Mengkaji Pane Horizontal" pada senarai juntai bawah.

Sekarang akan ada tetingkap yang terbuka di bahagian bawah tetingkap Word. Di tetingkap terdapat semakan dan tarikh ia dibuat.

Kaedah 2: Ekstrak Semakan yang dibuat pada tarikh tertentu

1. Pertama sekali, klik tab "Pembangun" dan kemudian perintah "Asas visual" untuk membuka editor VBA. Cara alternatif adalah dengan menekan "Alt + F11".
2. Kemudian klik "Normal" dan kemudian "Masukkan".
3. Seterusnya pilih "Module" untuk memasukkan yang baru.
4. Klik dua kali pada modul baru untuk mengaktifkan kawasan penyuntingan.
5. Kemudian tampal kod berikut:

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. Seterusnya, klik "Jalankan".
7. Sekarang ada kotak dialog. Masukkan tarikh di mana semua semakan yang anda ingin lihat dibuat. Dan klik "OK".
8. Akibatnya, akan ada dokumen baru. Di atasnya terdapat jadual yang merangkumi semua semakan pada hari itu, seperti di bawah:

Kaedah 3: Ekstrak Semakan sebelum Tarikh

Sekiranya anda ingin mengeksport semua semakan yang dibuat sebelum tarikh, berikut adalah makro yang boleh anda jalankan.

1. Pada mulanya, ulangi 4 langkah pertama dalam kaedah 2.
2. Kemudian tampalkan kod berikut:

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. Klik butang "Jalankan" juga.
4. Begitu juga, terdapat kotak dialog yang muncul. Cukup masukkan tarikh sebelum semua semakan diperlukan untuk dilihat. Kemudian klik "OK".

Terima Semakan sebelum Tarikh Tertentu

1. Gunakan langkah di atas untuk membuka editor VBA dan jalankan kod berikut:

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. Di kotak dialog terbuka, ketik tarikh dan klik "OK".

Trik untuk Memulihkan Fail Word

Word sensitif terhadap rasuah, sehingga meninggalkan jutaan fail dalam bahaya. Keruntuhan kata dapat menghapus data berharga dan sulit. Oleh itu, anda memerlukan Alat pemulihan masalah fail perkataan untuk membebaskan data anda yang terperangkap.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat memperbaiki data xls yang rosak dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com