在Word文檔中按日期查看和接受修訂的4種快速方法

在本文中，我們計劃顯示4種快速方法，供您查看和接受Word文檔中按日期進行的修訂。

一個文檔可以有多個審閱者。 因此，這些修訂必須在不同的日期或時間進行。 之前，我們討論瞭如何查看和接受特定審閱者的修訂。 今天，讓我們向您展示如何按日期查看和接受修訂。

3種按日期查看修訂的方法

首先，讓我們來看看按日期查看修訂的 3 種方法。

方法一：觸發“查看面板”

1. 首先，點選「審核」標籤。
2. 然後單擊“查看窗格”後面的上下三角按鈕。
3. 接下來，在下拉列表中選擇“水平查看窗格”。

現在，在Word窗口的底部將打開一個窗口。 窗口中是修訂和修訂日期。

方法2：提取在特定日期進行的修訂

1. 首先，單擊“開發人員”選項卡，然後單擊“ 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崩潰會清除掉寶貴的機密數據。 因此，您需要一個 Word文件問題恢復工具 釋放您捕獲的數據。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的 xls 數據修復工具 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM