En este artículo, planeamos mostrar 4 formas rápidas para que vea y acepte revisiones por fecha en su documento de Word.
Un documento puede tener varios revisores. Por lo tanto, estas revisiones deben realizarse en una fecha u hora diferente. Anteriormente, hablamos sobre cómo ver y aceptar revisiones de un revisor específico. Hoy, le mostraremos cómo ver y aceptar revisiones por fecha.
3 formas de ver las revisiones por fecha
Primero, echemos un vistazo a las 3 formas de ver las revisiones por fecha.
Método 1: activar el "Panel de revisión"
- Para empezar, haga clic en la pestaña "Revisión".
- Luego, haga clic en el botón de triángulo invertido detrás del "Panel de revisión".
- A continuación, elija "Panel de revisión horizontal" en la lista desplegable.
Ahora habrá una ventana abierta en la parte inferior de la ventana de Word. En la ventana se encuentran las revisiones y las fechas en las que se realizan.
Método 2: Extraer las revisiones realizadas en una fecha específica
- En primer lugar, haga clic en la pestaña "Desarrollador" y luego en el comando "Visual basic" para abrir el editor de VBA. La forma alternativa es presionar "Alt + F11".
- Luego haga clic en “Normal” y luego en “Insertar”.
- A continuación, elija "Módulo" para insertar uno nuevo.
- Haga doble clic en el nuevo módulo para activar el área de edición.
- Luego pegue los siguientes códigos:
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
- A continuación, haga clic en "Ejecutar".
- Ahora está el cuadro de diálogo. Ingrese la fecha en la que se realizaron todas las revisiones que desea ver. Y haga clic en "Aceptar".
- En consecuencia, habrá un nuevo documento. En ella hay una tabla que incluye todas las revisiones de ese día, como a continuación:
Método 3: Extraer revisiones antes de una fecha
En caso de que desee exportar todas las revisiones creadas antes de una fecha, aquí está la macro que puede ejecutar.
- Al principio, repita los primeros 4 pasos del método 2.
- Luego pegue los siguientes códigos en su lugar:
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
- Haga clic en el botón "Ejecutar" también.
- Del mismo modo, aparece un cuadro de diálogo. Simplemente ingrese la fecha antes de la cual se necesitan todas las revisiones para verlas. Luego haga clic en "Aceptar".
Aceptar revisiones antes de una fecha específica
- Utilice los pasos anteriores para abrir el editor de VBA y ejecutar los siguientes códigos:
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
- En el cuadro de diálogo abierto, escriba una fecha y haga clic en "Aceptar".
Un truco para recuperar archivos de Word
Word es sensible a la corrupción, por lo que deja millones de archivos en peligro. El colapso de palabras puede borrar datos valiosos y confidenciales. Por lo tanto, necesita un Herramienta de recuperación de problemas de archivos de Word para liberar sus datos atrapados.
Introducción del autor:
Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo herramienta de reparación de datos xls corruptos y pdf reparar productos de software. Para más información visite www.datanumen.com