Word文書で日付別に改訂を表示して受け入れる4つの簡単な方法

この記事では、Word文書の日付ごとに改訂を表示して受け入れるための4つの簡単な方法を表示する予定です。

ドキュメントには複数のレビュー担当者を含めることができます。 したがって、これらの改訂は異なる日時に行う必要があります。 以前、特定のレビュー担当者からの改訂を表示して受け入れる方法について説明しました。 今日は、日付ごとに改訂を表示して受け入れる方法を紹介しましょう。

日付別にリビジョンを表示する3つの方法

まず、日付別にリビジョンを表示する3つの方法を見てみましょう。

方法1：「レビューペイン」をトリガーする

1. まず、「レビュー」タブをクリックしてください。
2. 次に、「レビューペイン」の後ろにある逆三角形のボタンをクリックします。
3. 次に、ドロップダウンリストで[ペインの水平方向の確認]を選択します。

これで、Wordウィンドウの下部にウィンドウが開きます。 ウィンドウには、改訂とそれらが行われた日付が表示されます。

方法2：特定の日に行われた改訂を抽出する

1. まず、[開発者]タブをクリックし、次に[VisualBasic]コマンドをクリックして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. これでダイアログボックスが表示されます。 表示するすべての改訂が行われた日付を入力します。 そして、「OK」をクリックします。
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. 同様に、ポップアップするダイアログボックスがあります。 表示するためにすべてのリビジョンが必要になる前の日付を入力するだけです。 次に「OK」をクリックします。

特定の日付より前に改訂を受け入れる

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. 開いたダイアログボックスで日付を入力し、「OK」をクリックします。

Wordファイルを回復するためのトリック

Wordは破損に敏感であるため、何百万ものファイルが危険にさらされます。 単語の崩壊は、貴重で機密データを一掃する可能性があります。 したがって、あなたは Wordファイルの問題回復ツール トラップされたデータを解放します。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したxlsデータ修正ツール (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com