在 Word 文档中按日期查看和接受修订的 4 种快速方法

在本文中，我们计划展示 4 种快速方式，供您在 Word 文档中按日期查看和接受修订。

一个文档可以有多个审阅者。 因此，这些修订必须在不同的日期或时间进行。 早些时候，我们讨论了如何查看和接受来自特定审阅者的修订。 今天，让我们向您展示如何按日期查看和接受修订。

按日期查看修订的 3 种方法

首先，让我们看一下按日期查看修订的 3 种方法。

方法一：触发“审阅面板”

1. 首先，点击“审核”选项卡。
2. 然后单击“审阅窗格”后面的倒三角按钮。
3. 接下来在下拉列表中选择“Reviewing Pane Horizo​​ntal”。

现在，Word 窗口底部将打开一个窗口。 窗口中显示修订和修订日期。

方法 2：提取在特定日期所做的修订

1. 首先，单击“Developer”选项卡，然后单击“Visual basic”命令打开 VBA 编辑器。 另一种方法是按“Alt+F11”。
2. 然后单击“正常”，然后单击“插入”。
3. 接下来选择“模块”插入一个新的。
4. 双击新模块以激活编辑区域。
5. 然后粘贴以下代码：

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. 接下来，单击“运行”。
7. 现在有对话框。 输入您要查看的所有修订的日期。 然后单击“确定”。
8. 因此，将有一个新文件。 上面是一张表格，包括了当天的所有修订，如下：

方法 3：提取日期之前的修订

如果您可能想要导出某个日期之前创建的所有修订，这里是您可以运行的宏。

1. 首先，重复方法 4 中的前 2 个步骤。
2. 然后粘贴以下代码：

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. 也单击“运行”按钮。
4. 同样，弹出一个对话框。 只需输入需要查看所有修订的日期。 然后单击“确定”。

在特定日期之前接受修订

1. 使用上述步骤打开 VBA 编辑器并运行以下代码：

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. 在打开的对话框中，键入日期并单击“确定”。

恢复 Word 文件的技巧

Word 对损坏很敏感，因此使数百万个文件处于危险之中。 Word collapse 可以消除有价值的机密数据。 因此，你需要一个 Word文件问题恢复工具 释放您被困的数据。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的 xls 数据修复工具 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com