Pada artikel ini, kami berencana untuk menampilkan 4 cara cepat bagi Anda untuk melihat dan menerima revisi berdasarkan tanggal di dokumen Word Anda.
Sebuah dokumen dapat memiliki beberapa peninjau. Oleh karena itu, revisi ini harus dilakukan pada tanggal atau waktu yang berbeda. Sebelumnya, kita telah berbicara tentang cara melihat dan menerima revisi dari peninjau tertentu. Hari ini, mari tunjukkan cara melihat dan menerima revisi berdasarkan tanggal.
3 cara untuk Melihat Revisi berdasarkan Tanggal
Pertama, mari kita lihat 3 cara untuk melihat revisi berdasarkan tanggal.
Metode 1: Memicu "Panel Peninjauan"
- Untuk memulai, klik tab “Tinjau”.
- Kemudian klik tombol segitiga terbalik di belakang “Reviewing Pane”.
- Selanjutnya pilih “Reviewing Pane Horizontal” pada daftar drop-down.
Sekarang akan ada jendela yang terbuka di bagian bawah jendela Word. Di jendela ada revisi dan tanggal pembuatannya.
Metode 2: Ekstrak Revisi yang Dibuat pada Tanggal Tertentu
- Pertama-tama, klik tab "Pengembang" dan kemudian perintah "Visual basic" untuk membuka editor VBA. Cara alternatifnya adalah dengan menekan “Alt+ F11”.
- Kemudian klik "Normal" dan kemudian "Sisipkan".
- Selanjutnya pilih "Modul" untuk memasukkan yang baru.
- Klik dua kali pada modul baru untuk mengaktifkan area pengeditan.
- Kemudian paste kode di bawah ini:
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
- Selanjutnya, klik "Jalankan".
- Sekarang ada kotak dialog. Masukkan tanggal pembuatan semua revisi yang ingin Anda lihat. Dan klik "Oke".
- Akibatnya, akan ada dokumen baru. Di atasnya ada meja yang berisi semua revisi hari itu, seperti di bawah ini:
Metode 3: Ekstrak Revisi sebelum Tanggal
Jika Anda ingin mengekspor semua revisi yang dibuat sebelum tanggal, inilah makro yang dapat Anda jalankan.
- Pertama-tama, ulangi 4 langkah pertama di metode 2.
- Kemudian rekatkan kode berikut sebagai gantinya:
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
- Klik tombol "Jalankan" juga.
- Demikian pula, ada kotak dialog yang muncul. Cukup masukkan tanggal sebelum semua revisi diperlukan untuk dilihat. Kemudian klik “Oke”.
Terima Revisi sebelum Tanggal Tertentu
- Gunakan langkah-langkah di atas untuk membuka editor VBA dan menjalankan kode 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
- Di kotak dialog yang terbuka, ketik tanggal dan klik "OK".
Trik untuk Memulihkan File Word
Word sensitif terhadap korupsi, sehingga meninggalkan jutaan file dalam bahaya. Runtuhnya kata dapat menghapus data berharga dan rahasia. Dengan demikian, Anda membutuhkan Alat pemulihan masalah file Word untuk membebaskan data Anda yang terperangkap.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat perbaikan data xls yang rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com