在 Word 文档中按日期查看和接受修订的 4 种快速方法 |
您所在的位置：网站首页 › word文档如何按时间排序 › 在 Word 文档中按日期查看和接受修订的 4 种快速方法 |
在 Word 文档中按日期查看和接受修订的 4 种快速方法
|
在本文中，我们计划展示 4 种快速方式，供您在 Word 文档中按日期查看和接受修订。 一个文档可以有多个审阅者。 因此，这些修订必须在不同的日期或时间进行。 早些时候，我们讨论了如何查看和接受来自特定审阅者的修订。 今天，让我们向您展示如何按日期查看和接受修订。 按日期查看修订的 3 种方法首先，让我们看一下按日期查看修订的 3 种方法。 方法一：触发“审阅面板” 到tart 与，单击“审阅”选项卡。 然后单击“审阅窗格”后面的倒三角按钮。 接下来在下拉列表中选择“Reviewing Pane Horizontal”。
现在，Word 窗口底部将打开一个窗口。 窗口中显示修订和修订日期。 
然后单击“正常”，然后单击“插入”。
接下来选择“模块”插入一个新的。
双击新模块以激活编辑区域。
然后粘贴以下代码：
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("替换", "插入", _ "属性", " Delete", "ParagraphNumber", "NoRevision", "DisplayField", _ "Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _ "ParagraphProperty", "StyleDefinition") strRevisionDate = InputBox("输入修订日期:") 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" 对于每个 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) 如果下一个 objRevision 以 End Sub 结尾
接下来，单击“运行”。
现在有对话框。 输入您要查看的所有修订的日期。 然后单击“确定”。
因此，将有一个新文件。 上面是一张表格，包括了当天的所有修订，如下：
方法 3：提取日期之前的修订
如果您可能想要导出某个日期之前创建的所有修订，这里是您可以运行的宏。 首先，重复方法 4 中的前 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("替换", "插入", _ "属性", " Delete", "ParagraphNumber", "NoRevision", "DisplayField", _ "Conflict", "Reconcile", "Style", "TableProperty", "SectionProperty", _ "ParagraphProperty", "StyleDefinition") strRevisionDate = InputBox("输入日期:") 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.添加 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) 如果下一个 objRevision 以 End Sub 结尾 也单击“运行”按钮。
同样，弹出一个对话框。 只需输入需要查看所有修订的日期。 然后单击“确定”。
在特定日期之前接受修订
使用上述步骤打开 VBA 编辑器并运行以下代码：
Sub AcceptRevisionsBeforeDate() Dim objRevision As Revision Dim dtTheDate As Date Dim strTheDate As String strTheDate = InputBox("输入应接受所有修订的日期:") If strTheDate "" Then IsDate (strTheDate) Else End If dtTheDate = CDate(strTheDate) 对于 ActiveDocument.Revisions 中的每个 objRevision If objRevision.Date < dtTheDate Then objRevision.Accept End If Next objRevision End Sub
在打开的对话框中，键入日期并单击“确定”。 
恢复 Word 文件的技巧
Word 对损坏很敏感，因此使数百万个文件处于危险之中。 Word collapse 可以消除有价值的机密数据。 因此，你需要一个 Word文件问题恢复工具 释放您被困的数据。 作者简介：Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 损坏的 xls 数据修复工具 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen |
【本文地址】