În acest articol, intenționăm să afișăm 4 moduri rapide de a vedea și de a accepta revizuirile după dată în documentul Word.
Un document poate avea mai mulți examinatori. Prin urmare, aceste revizuiri trebuie făcute în date sau oră diferite. Mai devreme, am vorbit despre cum să vizualizați și să acceptați revizuirile de la un anumit examinator. Astăzi, să vă arătăm cum să vedeți și să acceptați revizuirile după dată.
3 moduri de a vizualiza revizuirile după dată
Mai întâi, să aruncăm o privire la cele 3 moduri de a vizualiza revizuirile după dată.
Metoda 1: declanșați „Paneul de revizuire”
- Pentru început, faceți clic pe fila „Revizuire”.
- Apoi faceți clic pe butonul triunghi inversat din spatele „Panoul de revizuire”.
- Apoi alegeți „Panoul de revizuire orizontal” din lista derulantă.
Acum va fi o fereastră deschisă în partea de jos a ferestrei Word. În fereastră sunt revizuirile și datele la care sunt făcute.
Metoda 2: Extrageți revizuirile efectuate la o anumită dată
- În primul rând, faceți clic pe fila „Dezvoltator” și apoi pe comanda „Visual Basic” pentru a deschide editorul VBA. O modalitate alternativă este să apăsați „Alt+ F11”.
- Apoi faceți clic pe „Normal” și apoi pe „Inserare”.
- Apoi alegeți „Modul” pentru a introduce unul nou.
- Faceți dublu clic pe noul modul pentru a activa zona de editare.
- Apoi lipiți codurile de mai jos:
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
- Apoi, faceți clic pe „Run”.
- Acum există caseta de dialog. Introduceți data la care sunt efectuate toate revizuirile pe care doriți să le vizualizați. Și faceți clic pe „OK”.
- În consecință, va exista un nou document. Pe el este un tabel care include toate revizuirile din ziua respectivă, cum ar fi mai jos:
Metoda 3: Extrageți revizuirile înainte de o dată
Dacă doriți să exportați toate revizuirile create înainte de o dată, iată macrocomandă pe care o puteți rula.
- La început, repetați primii 4 pași din metoda 2.
- Apoi lipiți următoarele coduri:
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
- Faceți clic și pe butonul „Run”.
- În mod similar, apare o casetă de dialog. Doar introduceți data înainte de care sunt necesare toate revizuirile pentru a le vizualiza. Apoi faceți clic pe „OK”.
Acceptați revizuirile înainte de o anumită dată
- Utilizați pașii de mai sus pentru a deschide editorul VBA și rulați următoarele coduri:
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
- În caseta de dialog deschisă, introduceți o dată și faceți clic pe „OK”.
Un truc pentru a recupera fișierele Word
Word este sensibil la corupție, lăsând astfel milioane de fișiere în pericol. Colapsul cuvântului poate șterge datele valoroase și confidențiale. Astfel, ai nevoie de un Instrument de recuperare a problemelor fișierelor Word pentru a vă elibera datele prinse.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv instrument de remediere a datelor xls corupt și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com