4 Швидкі способи перегляду та прийняття виправлень за датою у документі Word

У цій статті ми плануємо відобразити 4 швидкі способи перегляду та прийняття змін за датою у вашому документі Word.

Документ може мати кілька рецензентів. Тому ці перегляди мають бути зроблені в іншу дату чи час. Раніше ми говорили про те, як переглянути та прийняти редакції від певного рецензента. Сьогодні давайте покажемо вам, як переглядати та приймати редакції за датою.

3 способи перегляду версій за датою

По-перше, давайте розглянемо 3 способи перегляду версій за датою.

Спосіб 1: Запустіть «Панель перегляду»

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 може знищити цінні та конфіденційні дані. Таким чином, вам потрібно a Інструмент для усунення проблем із файлом Word щоб звільнити ваші захоплені дані.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі інструмент виправлення пошкоджених даних xls та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com